.RU
Карта сайта

Ii. Программирование на Visual Basic – первый уровень 24 - 42


47.


N = InputBox("Сколько всего кубиков?")
For i = 1 To N
a = InputBox("Введите сторону кубика")
V = a ^ 3 'Объем кубика
Debug.Print "Сторона кубика ="; a, "Объем кубика ="; V
Next i

48.


^ Компьютер спросит размеры только одного зала и три раза напечатает его площадь и объем:
Площадь пола= 300 Объем зала= 1200
Площадь пола= 300 Объем зала= 1200
Площадь пола= 300 Объем зала= 1200

49.


Компьютер напечатает результаты только для последнего зала:
Площадь пола= 50 Объем зала= 150

50.



  1. Компьютер напечатает результат, на 10 превышающий правильный

  2. Компьютер напечатает результат, в 2 раза превышающий правильный

  3. Компьютер напечатал бы 200 нарастающих значений счетчика

  4. Компьютер напечатает 1, если последнее число положительное, и 0 - если неположительное

  5. Компьютер запросит только одно число и напечатает 200, если оно положительное, и 0 - если неположительное

51.


c_полож = 0 'Обнуляем счетчик положительных чисел
c_отриц = 0 'Обнуляем счетчик отрицательных чисел
c_больше_10 = 0 'Обнуляем счетчик чисел, превышающих 10
N = InputBox("Сколько всего чисел?")
For i = 1 To N
a = InputBox("Введите очередное число")
If a > 0 Then c_полож = c_полож + 1
If a < 0 Then c_отриц = c_отриц + 1
If a > 10 Then c_больше_10 = c_больше_10 + 1
Next i
Debug.Print "Из них положительных -"; c_полож; ", отрицательных -"; c_отриц; _
", чисел, превышающих десятку -"; c_больше_10

52.


Dim a As Double, b As Double
Private Sub Command4_Click()
c = 0 'Обнуляем счетчик пар
Do
a = InputBox("Введите первое число пары")
b = InputBox("Введите второе число пары")
If a = 0 And b = 0 Then Exit Do
If a + b = 13 Then c = c + 1
Loop
Debug.Print c
End Sub

53.



  1. 18

  2. 10

  3. 5 и 8

  4. 3

  5. 10

  6. 3

  7. 5

54.


s = 0 'Обнуляем сумматор площади пола
For i = 1 To 40
Dlina = InputBox("Введите длину")
Shirina = InputBox("Введите ширину")
s = s + Dlina * Shirina 'Наращиваем сумматор площади пола
Next i
Debug.Print "Общая площадь пола="; s

55.


N = InputBox("Сколько учеников в классе?")
s = 0 'Обнуляем сумматор баллов
For i = 1 To N
Балл = InputBox("Введите оценку по физике")
s = s + Балл 'Наращиваем сумматор баллов
Next i
Debug.Print "Средний балл по физике ="; Format(s / N, "0.000")

56.


N = InputBox("Сколько сомножителей?")
proizv = 1 'Cумматор обнуляем, а накопитель произведения приравниваем 1. Почему?
For i = 1 To N
Число = InputBox("Введите очередной сомножитель")
proizv = proizv * Число 'Наращиваем произведение
Next i
Debug.Print "Произведение равно"; proizv

57.


1)


For k = 3 To 8
For l = 0 To 7
Debug.Print k; l
Next l
Next k

2)


For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
Debug.Print k; l; m; n
Next n
Next m
Next l
Next k

3)


i = 0 'Обнуляем счетчик
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
i = i + 1
Next n
Next m
Next l
Next k
Debug.Print i

4)


i = 0 'Обнуляем счетчик
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
If k <= l And l <= m And m <= n Then i = i + 1 : Debug.Print k; l; m; n
Next n
Next m
Next l
Next k
Debug.Print i

58.


N = InputBox("Сколько чисел?")
Min = InputBox("Введите число")
Номер_мин_числа = 1
For i = 2 To N
chislo = InputBox("Введите число")
If chislo < Min Then Min = chislo: Номер_мин_числа = i
Next i
Debug.Print Min, Номер_мин_числа

59.


Dim N As Integer, Min As Integer, Max As Integer, Рост As Integer
Private Sub Command1_Click()
N = InputBox("Сколько одноклассников?")
Min = 500 'Заведомо невозможно огромный рост
Max = 0 'Заведомо ничтожный рост
For i = 1 To N
Рост = InputBox("Введите рост")
If Рост < Min Then Min = Рост
If Рост > Max Then Max = Рост
Next i
If Max - Min > 40 Then Debug.Print "Правда" Else Debug.Print "Неправда"
End Sub

60.


'На форме Form1 ближе к краю размещены два маленьких объекта-"кнопки" Image1 и Image2
'с уже загруженными в них картинками, а также большой объект Image3.
Private Sub Image1_Click() 'ЧТО ДОЛЖНО ПРОИЗОЙТИ ПРИ ЩЕЛЧКЕ МЫШКОЙ ПО "КНОПКЕ" Image1:
Image3.Stretch = False 'Это чтобы большая "рамка" Image3 приняла форму и размеры картины
Image3.Visible = False 'А это чтобы большая картина не мелькала при преобразованиях Image3
Image3.Picture = Image1.Picture 'Копируем картинку с "кнопки" в большую "рамку"
Image1.BorderStyle = 1 'А это чтобы мы видели, какую картинку уже смотрели
Form_Factor = Form1.Width / Form1.Height 'Это продолговатость формы
Image_Factor = Image3.Width / Image3.Height 'Это продолговатость "рамки" Image3, принявшей картинку
If Image_Factor > Form_Factor Then 'Если картинка продолговатей, чем форма, ТО ...
Image3.Width = 0.9 * Form1.Width 'картинка, конечно, должна быть чуть поуже формы (на 1/10)
Image3.Left = 0.05 * Form1.Width 'а это для симметричности по горизонтали (на 1/20 от левого края)
Image3.Height = Image3.Width / Image_Factor 'А это чтобы не исказились пропорции картинки
Image3.Top = (Form1.Height - Image3.Height) / 2 'А это для симметричности по вертикали
Else 'ИНАЧЕ ...
Image3.Height = 0.9 * Form1.Height 'Картинка, конечно, должна быть чуть покороче формы (на 1/10)
Image3.Top = 0.05 * Form1.Height 'А это для симметричности по вертикали (на 1/20 от верхнего края)
Image3.Width = Image3.Height * Image_Factor 'А это чтобы не исказились пропорции картинки
Image3.Left = (Form1.Width - Image3.Width) / 2 'А это для симметричности по горизонтали
End If
Image3.Stretch = True 'А это для того, чтобы картина приняла размеры "рамки" после ее успешных преобразований
Image3.Visible = True 'А вот теперь можно полюбоваться картиной
End Sub
Private Sub Image2_Click() 'ЧТО ДОЛЖНО ПРОИЗОЙТИ ПРИ ЩЕЛЧКЕ МЫШКОЙ ПО "КНОПКЕ" Image2:
Image3.Stretch = False
Image3.Visible = False
Image3.Picture = Image2.Picture
Image2.BorderStyle = 1
Form_Factor = Form1.Width / Form1.Height
Image_Factor = Image3.Width / Image3.Height
If Image_Factor > Form_Factor Then
Image3.Width = 0.9 * Form1.Width
Image3.Left = 0.05 * Form1.Width
Image3.Height = Image3.Width / Image_Factor
Image3.Top = (Form1.Height - Image3.Height) / 2
Else
Image3.Height = 0.9 * Form1.Height
Image3.Top = 0.05 * Form1.Height
Image3.Width = Image3.Height * Image_Factor
Image3.Left = (Form1.Width - Image3.Width) / 2
End If
Image3.Stretch = True
Image3.Visible = True
End Sub

61.


Private Sub Command1_Click()
BackColor = vbWhite 'красим форму в белый цвет
Circle (3300, 1200), 400 'голова
DrawWidth = 5 'увеличиваем толщину линий и точек
PSet (3450, 1100) 'глаз
PSet (3150, 1100) 'глаз
Line (3200, 1400)-(3400, 1400) 'pот
DrawWidth = 1 'возвращаем обычную толщину линий и точек
ForeColor = vbRed 'красный цвет линий и текста
Line (3300, 1200)-(3300, 1300) 'нос
Line (3300, 1200)-(3050, 1300) 'нос
Line (3300, 1300)-(3050, 1300) 'нос
ForeColor = vbBlack 'черный цвет линий и текста
Circle (3300, 2200), 600 'сеpедина
Line (3500, 1630)-(4550, 1830), , B 'pука
Line (2030, 1630)-(3080, 1830), , B 'pука
FillStyle = vbSolid 'приказ рисовать элементы со сплошной (vbSolid) заливкой
FillColor = vbYellow 'желтая заливка
Line (3000, 300)-(3600, 800), , B 'шапка
FillColor = RGB(220, 220, 220) 'серая заливка
Circle (3300, 3600), 800 'низ
DrawWidth = 3 'увеличиваем толщину линий и точек
ForeColor = vbBlue 'синий цвет линий и текста
Line (2200, 1300)-(1800, 4400) 'посох
Font = "Times" 'название шрифта
Font.Italic = True 'курсив
Font.Bold = True 'полужирный
Font.Size = 14 'размер шрифта
CurrentX = 2700 'координаты начала печати
CurrentY = 3300
Print "Снеговик"
CurrentX = 2830
Print "Ефрем"
End Sub

62.


Dim c As Long, R As Long, G As Long, B As Long
Private Sub Command1_Click()
x = InputBox("Введите горизонтальную координату точки")
y = InputBox("Введите вертикальную координату точки")
c = Point(x, y) 'Определяем код цвета заданной точки
R = c Mod 256 'Количество красного
BG = c \ 256 'Промежуточный результат
G = BG Mod 256 'Количество красного
B = BG \ 256 'Количество красного
Debug.Print c, R, G, B, "Проверка -"; B * 256 * 256 + G * 256 + R
'Следующие три строки - для проверки на глазок правильности определения R,G,B:
Circle (x, y), 200
DrawWidth = 20
PSet (x, y), RGB(R, G, B)
'Определяем, какого цвета больше - R,G или B:
If R > G And R > B Then
Debug.Print "Красного больше"
ElseIf G > R And G > B Then
Debug.Print "Зеленого больше"
ElseIf B > R And B > G Then
Debug.Print "Синего больше"
Else
Debug.Print "Два самых ярких или три цвета одинаково интенсивны"
End If
End Sub

63.


Программа отличается от той, что в разделе, одним числом:
x = x + 120

64.


Программа отличается от предыдущей двумя числами:
x = 200
Do Until x > 8000

65.


Вместо 100 пишем 200.

66.


Dim x As Long, y As Long
Private Sub Command1_Click()
x = 100
y = 6000
Do Until x > 9000
PSet (x, y)
x = x + 100
y = y - 60
Loop
End Sub

67.


x = 4000: y = 3000: R = 100
Do Until R > 2500
Circle (x, y), R
R = R + 100
Loop

68.


Private Sub Command3_Click()
BackColor = RGB(0, 0, 150)
ForeColor = vbYellow
'Компакт-диск:
x = 4000: y = 3000: R = 500
Do Until R > 2500
Circle (x, y), R
R = R + 20
Loop
'Летающая тарелка:
x = 10000: y = 3000: R = 500
Do Until R > 2500
Circle (x, y), R, , , , 1 / 2
R = R + 20
Loop
End Sub

69.


x = 4000: y = 500: R = 0
Do Until R > 2500
Circle (x, y), R, , , , 1 / 2
R = R + 50
y = y + 150
Loop

70.


x = 400: y = 500: R = 0
Do Until R > 1500
Circle (x, y), R
R = R + 20
y = y + 60
x = x + 120
Loop

71.


y = 0 'Разлиновывать начинаем с верхнего края формы
Do Until y > Height 'Разлиновываем до нижнего края формы
Line (0, y)-(Width, y) 'Линию проводим до правого края формы
y = y + 200 'Расстояние между линиями = 200
Loop

72.


Private Sub Command2_Click()
'Разлиновываем горизонтальными линиями:
y = 0 'Разлиновывать начинаем с верхнего края формы
Do Until y > Height 'Разлиновываем до нижнего края формы
Line (0, y)-(Width, y) 'Линию проводим до правого края формы
y = y + 200 'Расстояние между линиями = 200
Loop
'Разлиновываем вертикальными линиями:
x = 0 'Разлиновывать начинаем с левого края формы
Do Until x > Width 'Разлиновываем до правого края формы
Line (x, 0)-(x, Height) 'Линию проводим до нижнего края формы
x = x + 200 'Расстояние между линиями = 200
Loop
End Sub

73.


Private Sub Command3_Click()
'Разлиновываем горизонтальными линиями:
y = 0 'Разлиновывать начинаем с верхнего края формы
Do Until y > Height 'Разлиновываем до нижнего края формы
Line (0, y)-(Width, y) 'Линию проводим до правого края формы
y = y + 200 'Расстояние между линиями = 200
Loop
'Разлиновываем косыми линиями:
x = 0 'Разлиновывать начинаем с левого края формы
Do Until x > Width + 2000 'Разлиновываем до правого края формы с запасом в 2000
Line (x, 0)-(x - 2000, Height) 'Линию проводим наискосок до нижнего края формы
x = x + 200 'Расстояние между линиями = 200
Loop
End Sub

74.


x = 100 'Квадраты начинаем рисовать от левого края формы
Do Until x > 8000 'Рисуем их до координаты 8000
Line (x, 3000)-(x + 1000, 4000), , B 'Ширина квадрата = 1000, высота = 4000-3000
x = x + 1500 'Шаг рисования квадратов = 1500
Loop

75.


Dim x As Integer, y As Integer 'Координаты левого верхнего угла каждого из 64 квадратов
Dim i As Integer 'i - номер столбца на доске (от 1 до 8 слева направо)
Dim j As Integer 'j -номер строки на доске (от 1 до 8 сверху вниз)
Private Sub Command2_Click()
For j = 1 To 8 'Пробегаем 8 клеток по вертикали сверху вниз
For i = 1 To 8 'Пробегаем 8 клеток по горизонтали слева направо
x = 1000 * i
y = 1000 * j
'ЕСЛИ сумма номеров столбца и строки четная, то заливка квадрата синяя, ИНАЧЕ желтая:
If (i + j) Mod 2 = 0 Then Цвет_заливки = vbBlue Else Цвет_заливки = vbYellow
Line (x, y)-(x + 1000, y + 1000), Цвет_заливки, BF 'рисуем закрашенный квадрат,
Next i
Next j
End Sub

76.


Dim x As Integer, y As Integer 'Координаты центров окружностей
Private Sub Command1_Click()
y = 1000 'По вертикали ковер простирается от 1000 до 6000 твипов
Do Until y >= 6000
x = 1000 'По горизонтали ковер простирается от 1000 до 8000 твипов
Do Until x >= 8000
Circle (x, y), 300
x = x + 150 'Расстояние между центрами окружностей - 150 твипов
Loop
y = y + 150
Loop
End Sub

77.


^ Вместо строки
Circle (x, y), 300
пишем строку
If x > 2000 Or y < 5000 Then Circle (x, y), 300

78.


Вместо строки
Circle (x, y), 300
пишем строку
If (x > 2000 Or y 4000 And x 3000 And y < 4000) Then Circle (x, y), 300
которую можно вольно перевести так:
ЕСЛИ (это не левый нижний угол) И НЕПРАВДА, что (это квадрат в центре), ТО рисуй кружок 2014-07-19 18:44
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • Контрольная работа
  • © sanaalar.ru
    Образовательные документы для студентов.