1. Какой результат будет выведен после выполнения следующего фрагмента программы:
Dim K As Integer, I As Integer, J As Integer
K = 0
For I = 1 To 4
For J = 1 To 5
K = K+1
Next J
Next I
MsgBox “K =” Str(K)

А. К =5
Б. К = 0
В. К = 4
Г. К = 9
Д. К = 1
Е. К = 20


2. Что будет происходить при запуске следующего фрагмента программного кода:
Dim n As Integer, i As Integer
n = InputBox(“Введите n”. “ Ввод количества элементов массива”)
ReDim a(n) As Single
For i = 1 To n
A (i) = InputBox (“Введите” & i & “число”, “ Ввод количества элементов массива”)
Next i
For I = 1 To n
Text1.Text = Text1.Text & “” & a(i)
Next i

А. Ни один из перечисленных ответов не верен
Б. Программа выведет массив А в элемент TextBox
В. Программа автоматически выйдет в основной режим VB
Г. Программа выдаст сообщение об ошибке
Д. Программа зависнет

3. Каков результат выполнения следующего программного кода?
Dim x As Byte: x = 267: Lable1.Caption = «Число X=» Lable2.Caption=x

А. х = 267
Б. Число х = 267
В. Сообщение об ошибке
Г. Число х = х