Вариант контрольной работы по теме "Элементы языка программирования Visual Basic". Работа содержит 10 заданий. Из них первые четыре задания - тестовые с единственным верным ответом, следующие два - на поиск ошибки в готовом программном коде, остальные требуют самостоятельного создания программ.Контрольная работа по теме "Элементы языка программирования Visual Basic"
Контрольная работа № 4
«Среда программирования Visual Basic»
1. С какого слова начинается блок описания переменных:
1) Var
2) Type
3) Dim
4) Sub
2. Что означает запись в строке: p=InputBox(«Введите число», p%)?
1) В строке используется оператор ввода. В программе надо ввести целое число с
клавиатуры.
2) В строке используется функция ввода. В программе надо ввести целое число с
клавиатуры.
3) Эта запись не используется в этом языке программирования.
3. Как обозначается оператор присваивания в Visual Basic?
1)
:=
2)
:
3) =
4) Никак.
4. Что произойдет в результате выполнения фрагмента программы:
5.
6.
7.
8.
Private Sub Command1_Click()
picture1.scale(10,10)(10,10)
picture1.circle(0,0),5,vbGreen
End Sub ?
1) Будет задана система координат.
2) Будет построена зеленая окружность с центром в точке (0,0), радиусом 5.
3) Будет построен зеленый круг с центром в точке (0,0) радиуса 5.
9. Исправьте ошибки в записи программного кода:
10. Private Sub Command1_Click()
a = InputBox("Введите a")
11.
b = InputBox("Введите b")
12.
13.
c = InputBox("Введите с")
Print "a="; a; "b="; b; "c="; c
14.
D = (b ^ 2) (4 * a * c)
15.
16.
Print "D="; D
If D < 0 Then "Нет корней"
17.
If D = 0 Then "x="; (b) / (2 * a)
18.
If D > 0 Then "x1="; (b + Sqr(D)) / (2 * a); "x2="; (b Sqr(D)) / (2 * a)
19.
20.
End Sub
21. Исправьте ошибки в записи программного кода
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Private Sub Command1_Click()
'Задание масштаба
Picture1.Scale (10, 2)(10, 2)
'Построение графика функции
For X = 10 To 10 Step 0.01
Picture1.PSet (X, Sin(X))
'Ось Х
Picture1.Line (10, 0)(10, 0)
For bytI = 10 To 10
Picture1.PSet (bytI, 0)
Picture1.Print bytINext bytI
'Ось Y
Picture1.Line (0, 2)(0, 2)
For bytI = 2 To 2
Picture1.PSet (0, bytI)
Picture1.Print bytI
Next bytI
End Sub
33.
34.
35.
36.
37.
38.
39.
40.
41.
42. Напишите программу построения треугольника с вершинами в точках с
координатами
43. (3,3), (6,3) и (3,0).
44. Определите значение переменной c после выполнения следующего фрагмента
программы:
45.
46.
47.
48.
49.
50.
b:=35
a:=120
a:=a3*b
Если a>b
То c:=ab
Иначе c:ba
51.
52. Напишите программу построения графика функции y = cosx.
53. Напишите программу решения квадратного уравнения.
54.55.
Контрольная работа № 4.docx
