Чтобы использовать оператор 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; просмотров: 570;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.