Чтобы использовать оператор Do...While
1. В меню Файл выберите пункт Создать проект.
2. В диалоговом окне Создание проекта в области Шаблоны выберите Приложение Windows.
3. В поле Имя введите DoWhile и нажмите кнопку ОК.
Откроется новый проект Windows Forms.
4. Из Панели элементов перетащите один элемент управления TextBox и один элемент Button на форму.
5. Дважды щелкните элемент управления Button, чтобы открыть редактор кода.
6. В обработчик событий Button1_Click введите следующий код:
Dim sum As Integer = 0Dim counter As Integer = 0Do While sum < 100 sum = sum + CInt(Textbox1.Text) counter = counter + 1LoopMsgBox("The loop has run " & CStr(counter) & " times!")7. Нажмите клавишу F5 для запуска программы.
8. В текстовом поле введите число и нажмите кнопку.
Появится окно сообщения, отображающее, сколько раз число было добавлено само к себе до достижения 100.
9. В меню Отладка нажмите кнопку Остановить отладку для завершения программы. Оставьте этот проект открытым. Позже нужно будет добавить в него функции.
Дата добавления: 2015-08-08; просмотров: 566;