Який результат виконання фрагменту кода на VBA?
Dim i As Integer
For i = 0 To 4
Select Case i
Case 1
Debug.Print "Один" : GoTo brk
Case 0
Debug.Print "Нуль"
Case 2
Debug.Print "Привіт світ"
End Select
Next i
brk:
Dim i As Integer
For i = 0 To 4
Select Case i
Case 1
Debug.Print "Один" : GoTo brk
Case 0
Debug.Print "Нуль"
Case 2
Debug.Print "Привіт світ"
End Select
Next i
brk:
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
Вообще-то - не скомпилируется, метка brk не определена
А задумывалось, наверное, так
Это цикл от 0 до 4,
в котором, в операторе выбора Select Case
в зависимости от счетчика цикла - переменной i
выводится:
Если i = 0 --"Нуль",
Если i = 1 --"Один", потом переход на метку brk, которой нет
Если убрать оператор GoTo brk,
то для i = 2 напечатает "Привіт світ"
Прокрутит еще дважды цикл для i = 3 и i = 4 просто так.