Чтобы использовать оператор Do...Until
1. Добавьте следующий код под строкой MsgBox.
Язык Visual Basic
Dim sum2 As Integer = 0Dim counter2 As Integer = 0Do Until sum2 >= 100 sum2 = sum2 + CInt(Textbox1.Text) counter2 = counter2 + 1LoopMsgBox("The loop has run " & CStr(counter2) & " times!")2. Нажмите клавишу F5 для запуска программы.
3. В текстовом поле введите число и нажмите кнопку.
Появится второе окно сообщения, отображающее, сколько раз число было добавлено само к себе перед тем, как оно стало равным или больше 100.
Следующие действия
В этом разделе было рассмотрено, как использовать циклы Do...While и Do...Until для условного повторения кода. На этом этапе можно перейти на к следующему занятию Программный выбор между двумя возможностями. Оператор If... Then.
Дата добавления: 2014-11-29; просмотров: 1041;