Захоплення Маніли

Do

Loop

End Select

Case Else

End If

End If

End Sub

End

End Sub

Loop

End If

End If

End If

Loop

If S > 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. Dim 2. Goto … 3. If … Then … Else 4. Select … Case …

5. For … Next 6. Do … Loop 7. Оператор присваивания

2. Условный оператор может быть:

1. Однострочным

2. Однострочным с альтернативной частью (с блоком Else)

3. Однострочным многоальтернативным (с блоками ElseIf)

4. Многострочным без альтернативной части

5. Многострочным с альтернативной частью (с блоком Else)

6. Многострочным многоальтернативным (с блоком Else и блоками

ElseIf)

3. Какие из следующих условных операторов записаны правильно?

1. If A < 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. If A < B Then C = A: A = B: B = C

4. Каково должно быть значение переменной Otmetka, чтобы Вас похвалили за экзамен по КП?

Otmetka = InputBox (“Какая отметка по КП?”)

Select Case Otmetka

Case 1,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

For J = 1 To 5

K = K+1

Next J

Next I

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. Какой результат будет выведен в Текстовое окно для следующего

фрагмента программы?

Dim S As Integer, J As Integer

S = 3: J = 1

Do Until S>12

S = S+J: J = J+1

Text1. Tex t = Str (S)

Варианты ответов: 1. 3 2. 11 3. 12 4. 13 5. 14

8. Какие значения увидит пользователь в последнем столбце результатов,

выдаваемых программой:

Dim I As Byte, J As Byte

For I = 1 To 4

For J = 1 To 5

Print J^I,

Next J

Print

Next I

Варианты ответов:

1. 1 1 1 1 2. 1 2 3 4 5 3. 2 4 8 15

4. 1 16 81 256 62 5. 2 4 8 16 6. 5 25 125 625

9. Оператор цикла с предусловием Do While < условие > … Loop

используется для повторения некоторого фрагмента кода программы:

1. До тех пор, пока условие истинно

2. До тех пор, пока условие ложно

3. Заданное число раз

4. Только бесконечное число раз

10. Какой результат будет выведен в Текстовое окно для следующего

фрагмента программы?

Dim S As Integer, J As Integer

S = 2: J = 1

S = S+J

J = J+1

Loop While S < 12

Txt1. Text = Str( S )

Варианты ответов:

1. 10 2. 11 3. 12 4. 13 5. 14

Сама війна тривала лише 114 днів. Джон Гей, майбутній держсекретар, назвав її «чудовою маленькою війною». Кінець цієї війни став також кінцем великої колись іспанської імперії Нового Світу. А ще він започаткував становлення США як світової потуги. США звільнили колонії Іспанії від її гніту, проте подекуди замінили його своїм власним. Війна з Іспанією врятувала багато життів, поклавши край повстанню на Кубі, зате призвела до участі США в іншому повстанні – на Філіппінах, і тим самим створила безліч проблем, з якими США увійшли в ХХ століття.

Іспано-американська війна не встигла ще добре початися, як американський морський флот отримав блискучу перемогу в несподіваному місці – у Манільській затоці. В той час як думка громадськості була зосереджена на Кубі, молодий Теодор Рузвельт подумував про іспанські Філіппіни. Як помічник міністра військово-морського флоту, він призначив комодора Джорджа Дьюї командиром невеличкого американського ескадрону в Азії і, в разі війни, наказав виступати проти Іспанії на Філіппінах. Президент Мак-Кінлі схвалив такий наказ.

Прибувши туди увечері 30 квітня з чотирма крейсерами та двома канонерками, Дьюї знищив або захопив усі іспанські військові кораблі в Манільській затоці. Іспанці втратили 381 людину, тоді як в ескадроні Дьюї було лише 8 поранених. Не маючи військових сил для окупації, Дьюї опинився у дуже незручному становищі. Поки він чекав на обіцяне підкріплення, німецькі та британські кораблі кружляли довкола, мов хижі круки, готові у будь-яку мить захопити Філіппіни, якщо цього не зроблять США. Підкріплення нарешті прибуло, і з допомогою філіппінських повстанців на чолі з Еміліо Агінальдо війська Дьюї 13 серпня увійшли в Манілу.

Дата добавления: 2014-01-04