Главная / Программирование /
Visual Basic / Тест 2
Visual Basic - тест 2
Упражнение 1:
Номер 1
Используя полный синтаксис условной инструкции If…Then…Else создать пример нахождения минимального из двух значений а1 и а2
Ответ:
 (1) If a1 = a2 Then Min = a2 Else: Min = a1 End If 
 (2) If a1 < a2 Then Min = a2 Else Min = a1 End If 
 (3) If a1 < a2 Then Min = a1 Else: Min = a2 End If 
Номер 2
Используя краткий синтаксис условной инструкции If...Then...Else создать пример нахождения максимального из двух значений b1 и b2
Ответ:
 (1) If b1 > b2 Then Max = b1 Else: Max = b2 End If 
 (2) If b1 < b2 Then Max = b2 Else: Max = b1 End If 
 (3) If b1 < b2 Then Max = b1 Else Max = b2 End If 
Номер 3
Какое из утверждений является верным?
Ответ:
 (1) условная инструкция If…Then…Else обеспечивает единственый выбор 
 (2) наличие ElseIf позволяет анализировать дополнительные условия 
 (3) Else используется для обработки противоположных ситуаций 
 (4) если нужно проверять некоторое условие при наличии другого условия, то используются вложенные инструкции 
Упражнение 2:
Номер 1
Создать массив целых (использовать цикл For…Next) из 40 элементов; m(i) = i^4 + 11 Вычислить сумму первых 28 элементов. Выбрать правильный ответ
Ответ:
 (1) 2721819 
 (2) 3142370 
 (3) 3098566 
Номер 2
Создать массив целых (использовать цикл For…Next) из 30 элементов; m(i) = i^3 + 15. Вычислить сумму первых 18 элементов. ация массива начинается с 0. Выбрать правильный ответ
Ответ:
 (1) 23679 
 (2) 18981 
 (3) 23765 
Номер 3
Создать массив целых (использовать цикл For…Next) из 21 элементов; m(i) = i^2 + 17, i=0,...20 Вычислить сумму последних 15 элементов. Выбрать правильный ответ
Ответ:
 (1) 3528 
 (2) 3070 
 (3) 3112 
Упражнение 3:
Номер 1
Создать массив целых (использовать цикл For…Next) из 21 элемента; m(i) = i^3 + 17. Вычислить сумму первых 16 элементов. Выбрать правильный ответ
Ответ:
 (1) 13984 
 (2) 14526 
 (3) 14672 
Номер 2
Создать масив случайных вещественных чисел m(i) = Rnd(). Использовать инструкцию Randomize(3). (Инструкция Randomize(number) использует некоторое число для инициализации генератора случайных чисел функции Rnd()). Сравнить, равны ли с точностью 0,001 элемент m(1) и число 0.859
Ответ:
 (1) False 
 (2) True 
Номер 3
Создать массив данных типа String из 20 элементов; m(i) = Chr(97 + i) Является ли символ "g" элементом массива?
Ответ:
 (1) False 
 (2) True 
Упражнение 4:
Номер 1
В каком случае используется цикл Do Until…Loop с завершением:
Ответ:
 (1) если цикл продолжает повторяться все время, пока некоторое условие остается истинным 
 (2) если вместо условия продолжения вычислений формулируется условие его завершения 
Номер 2
Создать массив из 50 элементов m(i) =i Вычислить сумму его элементов с использованием Do While…Loop и Do Until…Loop
Ответ:
 (1) сумма есть 1195 
 (2) сумма есть 1275 
Номер 3
Создать массив из 5 целых m(i) = i^2. Вычислить сумму, используя Do While…Loop и Do Until…Loop. Как формулируется условие для Do While и для Do Until?
Ответ:
 (1) Do While i > 5 
 (2) Do While i < 5 
 (3) Do While i < 6 
 (4) Do Until i = 5 
 (5) Do Until i = 6 
Упражнение 5:
Номер 1
Какие из записей при использовании структуры выбора Select Case являются верными?
Ответ:
 (1) Case Is > 0 
 (2) Case = 0 
Номер 2
Какие из записей при использовании структуры выбора Select Case являются верными?
Ответ:
 (1) Case Is > "c" 
 (2) Case [a – d] 
 (3) Case RED 
Номер 3
Какие из записей при использовании структуры выбора Select Case являются верными?
Ответ:
 (1) Case "Madrid" 
 (2) Case Is = 2 
 (3) Case 1a 
Упражнение 6:
Номер 1
Отметить, где правильно проводится вызов процедуры Proc1?
Ответ:
 (1) If k > 70 Then Proc1 
 (2) Call Proc1(20, 15) 
Номер 2
Отметить, где правильно проводится вызов процедуры Proc1?
Ответ:
 (1) Call Proc1 21, 32 
 (2) Call Proc1 
Упражнение 7:
Номер 1
Какая из процедур Property присваивает значение свойству?
Ответ:
 (1) Property Let 
 (2) Property Get 
Номер 2
Синтаксис вызова какой из процедур Property представлен здесь:
Переменная = [объект].свойство?
Ответ:
 (1) Property Let 
 (2) Property Get 
Номер 3
Описание какой из процедур Property дано ниже:
Property имя_процедуры() As тип_данных
Ответ:
 (1) Property Let 
 (2) Property Get 
Упражнение 8:
Номер 1
Что возвращает выражение:
Chr(Asc(ch) + 1) здесь Dim ch As String ch = "kk"
Ответ:
 (1) значение типа Integer, представляющее код символа  
 (2) значение типа String, содержащее символ,
соответствующий указанному коду 
Номер 2
Что возвращает выражение:
Chr(Asc(ch1) + 2) здесь Dim ch1 As String
Ответ:
 (1) значение типа Integer, представляющее код символа 
 (2) значение типа String, содержащее символ,
соответствующий указанному коду 
Номер 3
Что возвращает выражение:
Asc(ch1) здесь Dim ch1 As String
Ответ:
 (1) значение типа Integer, представляющее код символа  
 (2) значение типа String, содержащее символ,
соответствующий указанному коду 
Упражнение 9:
Номер 1
Каков должен быть вывод в поле списка элементов массива, элемент которого определяется как: m(j) = Int(Rnd*1000), сформированного в процедуре For … Next (j =1 To 25)
Ответ:
 (1) List1.List(j) = m(j) 
 (2) List1.List(j – 1) = m(j) 
 (3) m(j) = List1.List(j) 
Номер 2
Где должны быть присвоены значения переменной х1 для обеспечения старта процедуры Private Sub Timer1_Timer():
Image1.Left = Int(80*Rnd()*x1)
End Sub
Ответ:
 (1) в процедуре Timer1_Timer() 
 (2) в любой процедуре проекта 
Номер 3
Где соблюден синтаксис использования метки?
Ответ:
 (1) Label44 = "Spanien" 
 (2) Label44.Caption = "Spanien" 
Упражнение 10:
Номер 1
Функция Fac вычисляет значение факториала числа. Какая инструкция является правильной?
Ответ:
 (1) x = Fac(Val(Text1.Text)) 
 (2) x = Fac(Text1.Text) 
Номер 2
Может ли инструкция If…Then…Else реализовать:
Ответ:
 (1) единственный выбор 
 (2) двойной выбор 
 (3) множественный выбор 
Номер 3
Куда попадает элемент массива mass(1) после выполнения фрагмента:
For j =1 To 5
List1(1).List(j-1) = mass(j)
…
Next
Ответ:
 (1) в нулевой элемент массива списка на 1 позицию списка 
 (2) в первый элемент массива списка на 1 позицию списка 
 (3) в первый элемент массива списка на нулевую позицию списка