Контрольная работа по информатике. Программирование на vb6 «Начальные сведения. Линейная структура»

Вариант 1

1. Объясните, что произойдет в результате выполнения данной программы?
Private Sub пуск_Click()
Dim A As Byte
Dim B As Integer
X = 20000: Y = 45000
A = X / 10 ^ 3 + Y / 10 ^ 3
D = A + X
B = Y - X
Print A, B, D
End Sub

2. Напишите программу, вычисляющую значение функции у = 5х2 + 2х – 4. Значение аргумента х = 1,2. Результат должен быть напечатан непосредственно на экранной форме.

3.Напишите программу для вычисления функции из предыдущей задачи с той разницей, что значение аргумента должно быть целым числом и должно вводиться в текстовое поле. Результат выводится также в текстовое поле.

4. Напишите программу вычисления длины отрезка АВ по формуле:
АВ =
·(х2 – х1)2 + (у2 –у1)2 , координаты отрезка вводятся с помощью системного окна ввода, а результат выводится с помощью окна сообщения. На экранной форме появляется изображение отрезка синего цвета с заданными координатами.

Вариант 3
1. Объясните, какие числа будут напечатаны в результате выполнения данной программы и почему?
Private Sub пуск_Click()
Dim Х As Integer
Dim У As Integer
Х = 5 / 2: У = 10 / 3: К = Х / У
Print Х, У, К
End Sub

2. Напишите программу, вычисляющую значение функции у = 2х + 8 Значение аргумента х = 32,569. Результат должен быть напечатан непосредственно на экранной форме.

3.Напишите программу для перевода смешанной дроби в обыкновенную. Пусть значения целой части, числителя и знаменателя дробной части вводятся в текстовые поля. Результат должен быть напечатан на экранной форме.

4. Напишите программу вычисления координаты середины отрезка по формуле
HYPER13 EMBED Equation.3 HYPER14HYPER15, HYPER13 EMBED Equation.3 HYPER14HYPER15.
Координаты отрезка вводятся с помощью системного окна ввода, а результат выводится с помощью окна сообщения. На экранной форме появляется изображение отрезка желтого цвета с заданными координатами.
Вариант 2

1. В тексте программного кода отсутствует строка с объявлением типа числовой переменной Число, но в работающей программе эта строка есть. Восстановите пропущенную строку, если известно, что после запуска программы появилось сообщение об ошибке.
Private Sub Command1_Click()
Const G = 4000: Const H = 4300

Число = H - G
Строка = "OK!"
Print Число, Стр
·ока
End Sub

2. Напишите программу, вычисляющую площадь прямоугольника. Стороны прямоугольника равны 3,25 и 4,181. Результат после выполнения программы появляется на экранной форме.
3. Напишите программу для вычисления площади квадрата. Длина стороны квадрата должна вводиться в текстовое поле. Результат выводится также в текстовое поле.

4. Напишите программу для вычисления площади круга. Радиус круга вводится с помощью системного окна ввода, а результат появляется в окне сообщения. На экранной форме появляется изображение круга красного цвета, радиус которого равен числу, вводимому через окно ввода.



Вариант 4
1. В тексте программного кода отсутствует строка с объявлением типа числовой переменной Число, но в работающей программе эта строка есть. Восстановите пропущенную строку, если известно, что после запуска программы появилось сообщение об ошибке.
Private Sub Command1_Click()
Const G = 4000: Const H = 4300

Число = H - G
Строка = "OK!"
Print Число, Строка
End Sub

2. Напишите программу, вычисляющую длину окружности .Радиус окружности равен 19,6. Результат после выполнения программы появляется на экранной форме.

3. Напишите программу для вычисления площади прямоугольника. Длины сторон прямоугольника должны вводиться в текстовые поля. Результат выводится также в текстовое поле.

4. Напишите программу для вычисления площади квадрата. Сторона квадрата вводится с помощью системного окна ввода, а результат появляется в окне сообщения. На экранной форме появляется изображение не закрашенного квадрата белого цвета, сторона которого равна числу, вводимому через окно ввода.
Кравченко Лора Викторовна
Учитель физики и информатики
Горловская общеобразовательная школа № 1,
Город Горловка, Донецкая область, 2005 год
Root Entry

Приложенные файлы

  • doc file8
    Размер файла: 121 kB Загрузок: 0

Добавить комментарий