Захоплення Маніли
Do
Loop
End Select
Case Else
End If
End If
End Sub
End
End Sub
Loop
End If
End If
End If
Loop
IfS > MaxSum Then
Kol = 0
MaxSum = S
Txt2.Text = Str(S)
If S = MaxSum Then
Kol = Kol + 1
Txt3.Text = Kol
Txt1.Text = “”
Z = InputBox(“для продолжения ввода чисел – 1, завершения – 0”)
If Z <>1 Then
Lbl1.Caption = “Ввод завершен”
Private Sub CmdExit_Click ( )
Контрольные вопросы:
1. Какие операторы служат для создания программ с ветвлениями?
Варианты ответов:
1. Dim2. Goto… 3. If…Then…Else 4. Select…Case…
5. For…Next6. Do…Loop 7. Оператор присваивания
2.Условный оператор может быть:
1. Однострочным
2. Однострочным с альтернативной частью (с блоком Else)
3. Однострочным многоальтернативным (с блоками ElseIf)
4. Многострочным без альтернативной части
5. Многострочным с альтернативной частью (с блоком Else)
6. Многострочным многоальтернативным (с блоком Elseи блоками
ElseIf)
3.Какие из следующих условных операторов записаны правильно?
1. IfA < B Then C = A: A = B: B = C;
2. If A < B Then
C = A: A = B: B = C
3. If A < B Then
C = A: A = B: B = C
4. IfA < B Then C = A: A = B: B = C
4.Каково должно быть значение переменной Otmetka, чтобы Вас похвалили за экзамен по КП ?
Otmetka = InputBox(“Какая отметка по КП?”)
Select Case Otmetka
Case1,2
Print “Кошмар!”
Case 3
Print“Неважно”
Case 4
Print “Неплохо”
Case 5
Print “Молодец!”
Print “Таких оценок не бывает”
5. Какой результат будет выведен после выполнения следующего фрагмента
программы?
Dim K As Integer, I As Integer, J As Integer
K = 0
For I = 1 To 4
ForJ = 1 To 5
K = K+1
Next J
NextI
MsgBox “K=” & Str(K)
Варианты ответов:1. K= 5 2. K= 4 3. K= 9 4. K= 20 5. K=0
6.Оператор цикла с постусловием Do … Loop Until <условие>
используется для многократного повторения некоторого фрагмента
кода программы:
1. Заданное число раз 4. Пока условие неопределённое
2. Пока условие истинно 5. У оператора другое назначение
3. Пока условие ложно
7.Какой результат будет выведен в Текстовое окно для следующего
фрагмента программы?
DimSAs Integer,J As Integer
S = 3: J = 1
Do Until S>12
S = S+J : J = J+1
Text1.Text = Str(S)
Варианты ответов:1. 3 2. 11 3. 12 4. 13 5. 14
8.Какие значения увидит пользователь в последнем столбце результатов,
выдаваемых программой:
Dim I As Byte, J As Byte
For I = 1 To4
For J = 1 To 5
Print J^I,
Next J
Next I
Варианты ответов:
1. 1 1 1 1 2. 1 2 3 4 5 3. 2 4 8 15
4. 1 16 81 256 625. 2 4 8 166. 5 25 125 625
9.Оператор цикла с предусловием Do While <условие> … Loop
используется для повторения некоторого фрагмента кода программы:
1. До тех пор, пока условие истинно
2. До тех пор, пока условие ложно
3. Заданное число раз
4. Только бесконечное число раз
10.Какой результат будет выведен в Текстовое окно для следующего
фрагмента программы?
DimS As Integer,J As Integer
S = 2: J = 1
S = S+J
J = J+1
Loop WhileS < 12
Txt1.Text = Str(S)
Варианты ответов:
1. 10 2. 113. 12 4. 13 5. 14
Сама війна тривала лише 114 днів. Джон Гей, майбутній держсекретар, назвав її «чудовою маленькою війною». Кінець цієї війни став також кінцем великої колись іспанської імперії Нового Світу. А ще він започаткував становлення США як світової потуги. США звільнили колонії Іспанії від її гніту, проте подекуди замінили його своїм власним. Війна з Іспанією врятувала багато життів, поклавши край повстанню на Кубі, зате призвела до участі США в іншому повстанні – на Філіппінах, і тим самим створила безліч проблем, з якими США увійшли в ХХ століття.
Іспано-американська війна не встигла ще добре початися, як американський морський флот отримав блискучу перемогу в несподіваному місці – у Манільській затоці. В той час як думка громадськості була зосереджена на Кубі, молодий Теодор Рузвельт подумував про іспанські Філіппіни. Як помічник міністра військово-морського флоту, він призначив комодора Джорджа Дьюї командиром невеличкого американського ескадрону в Азії і, в разі війни, наказав виступати проти Іспанії на Філіппінах. Президент Мак-Кінлі схвалив такий наказ.
Прибувши туди увечері 30 квітня з чотирма крейсерами та двома канонерками, Дьюї знищив або захопив усі іспанські військові кораблі в Манільській затоці. Іспанці втратили 381 людину, тоді як в ескадроні Дьюї було лише 8 поранених. Не маючи військових сил для окупації, Дьюї опинився у дуже незручному становищі. Поки він чекав на обіцяне підкріплення, німецькі та британські кораблі кружляли довкола, мов хижі круки, готові у будь-яку мить захопити Філіппіни, якщо цього не зроблять США. Підкріплення нарешті прибуло, і з допомогою філіппінських повстанців на чолі з Еміліо Агінальдо війська Дьюї 13 серпня увійшли в Манілу.