Введение в информатику. Хамухин А.А. - 102 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

101
Цикл Do-Loop позволяет внести в эту процедуру еще несколько изменений.
Например, в следующей программе Рro34 ключевое слово Do оставлено в начале
цикла, а условие завершения и ключевое слово Until переместились в его конец, за
ключевое слово Loop. В таком варианте цикл обязательно выполняется хотя бы
один раз, поскольку условие завершения не проверяется, пока не будут выполнены
все инструкции из тела цикла. Поэтому мы можем удалить инструкцию для
инициализации переменной L.
Sub Pro34()
Dim L As Integer
Do
L = Int(100 * Rnd())
Beep
Loop Until L =7
MsgBox "Выпало число = " & L & ". Вы выиграли! (шутка)"
End Sub
А теперь заменим ключевое слово Until в конце цикла словом While. Тогда мы
сможем вернуть в условие знак неравенства вместо знака равенства:
Sub Pro35()
Dim L As Integer
Do
L = Int(100 * Rnd())
Beep
Loop While L <> 7
MsgBox "Выпало число = " & L & ". Вы выиграли! (шутка)"
End Sub
Теперь приведем один из возможных вариантов реализации примера 30, только
вычислять будем не произведение, а сумму элементов массива.
Sub Pro36()
Dim Base(10) As Double
Dim Power As Integer
Dim Result As Double
Dim Count1 As Integer
Power = 5
Result = 0
Count1 = 1
Do Until Count1 > Power
Result = Result + Base(Count1)
Count1 = Count1 +1
Loop
MsgBox "Произведение первых 5 элементов массива = " & Result
End Sub

Страницы