Основные принципы и концепции программирования на языке VBA в Excel - ответы
Количество вопросов - 142
Dim i As Range, myrange As ObjectSet myrange = Range("A:B")For Each i In myrangei = Int(Rnd() * 2)Next i
Select Case iCase 1, 3, 5s = s + iCase 2, 4, 6s = s - iCase Elses=s*iEnd SelectОтметьте неверное утверждение.
Select Case iCase 1, 3, 5s = s + iCase 2, 4, 6s = s - iEnd SelectЗначение переменной s не меняется, если
s=0 For i = -7 To 7 Select Case iCase is <0s = s - iCase -2, -4, -6s = s + iEnd SelectNext iВ приведенном фрагменте процедуры значение переменной s
s = 1For i = 2 To 20s = s * iIf s > 100 Then Exit ForNext i