Вопросы к компьютерному тесту по VBA №2
Выберите пункт меню для создания пользовательской формы
Выбери инструмент для создания поля ввода текста или числа:
Выбери инструмент для создания названия поля
Когда будет выполняться код, введенный в помеченную (----) область?
Visual Basic for Applications (VBA) это…
Выберите объекты VBA:
Выберите свойства объектов VBA:
UserForm ...
Где запускается код макроса на выполнение:
Для чего используется метод Range?
Дана запись кода в виде:
Private Sub CommandButton3_Click()
Dim слагаемое1 As Single
Dim слагаемое2 As Single
слагаемое1 = 2
слагаемое2 = 2
MsgBox (слагаемое1 * слагаемое2)
End Sub
Какое сообщение появится на экране при нажатии кнопки?
Дана запись кода в виде:
Private Sub CommandButton3_Click()
Dim слагаемое1 As String
Dim слагаемое2 As String
слагаемое1 = 2
слагаемое2 = 2
MsgBox (слагаемое1 & «*» & слагаемое2)
End Sub
Какое сообщение появится на экране при нажатии кнопки?
Выберите тип данных для …
С помощью какого инструмента можно создать "Командную кнопку"?
В каком поле можно изменить название заголовка пользовательской формы?
Что будет выведено на экран при выполнении следующего кода?
Sub ()
a=2
For i=1 to 5
a=a+5
MsgBox a
Next i
End Sub
Выберите типы данных:
Какая последовательность цифр выведется на экран в результате выполнения кода:
For i = 10 to 1 Step -1
MsgBox iCounter
Next
Какое действие произойдет при выполнении этого кода?
Sub Auto_open()
Application. Visible = False
UserForm1.Show
End Sub
Что будет выведено в TextBox1 при нажатии сначала ToggleButton1, а затем CommandButton1 ? Код программы:
Private Sub CommandButton1_Click()
If (ToggleButton1.Value = False) Then
TextBox1.Value = "ВЫВОД ЗАПРЕЩЕН!"
Else
TextBox1 = "ВЫВОД РАЗРЕШЕН!"
End If
End Sub
Что будет отображаться в Textbox1 и Textbox2 после нажатия кнопки CommandButton1:
Private Sub CommandButton1_Click()
Dim txt As String
txt = "VBA"
TextBox1.Text = " "
TextBox2.Text = " "
If (CheckBox1.Value = False) Then TextBox2.Text = txt
Else TextBox1.Text = "Галки нет!"
End Sub
Что произойдёт после нажатия на ToggleButton1:
Private Sub ToggleButton1_Click()
If (CheckBox1.Value = True) Then
MsgBox (CheckBox1.Caption)
Else
MsgBox (ToggleButton1.Caption)
End Sub
Private Sub CheckBox1_Click()
MsgBox "VBA"
End Sub
Какие цифры выведутся на экране при запуске следующего кода:
Dim stolb As Integer
Dim stroka As Integer
Dim i As Integer
stolb = 3
stroka = 5
For i = 1 To 9 Step 2
MsgBox (Cells(i, stolb))
Next
Когда на экран выведеться сообщение "ПРИВЕТ!"
Private Sub UserForm_Initialize()
MsgBox "ПРИВЕТ!"
End Sub
Чем отличаются кнопки ComandButton и TuggleButton?
Необходимо запустить цикл, выдающий в сообщениях последовательно цифры от 10 до 20. Какие данные необходимо ввести в Textbox1 и Textbox2?
Код программы:
Private Sub CommandButton1_Click()
Dim b As Integer
Dim e As Integer
e = TextBox1.Value
e = e + 1
b = TextBox2.Value
For i = b To e
MsgBox i
Next
End Sub
В Excel записаны цифры (скриншот).
С помощью какой программы можно вывести значения нечетных ячеек?
Выберите правильную команду, чтобы записать данные из ячейки C4 в Textbox1
Значение переменных
Column="С"
Row=4
На картинке представлена форма.
Код программы
Private Sub CommandButton1_Click()
If (ToggleButton1.Value = False) Then
MsgBox ("Msgbox")
End If
End Sub
В каком случае появится сообщение "Msgbox"
Выбирите элементы на рисунке
