Создание функции с параметрами

1. В меню Файл выберите Создать проект.

2. В диалоговом окне Создание проекта в области Шаблоны выберите Приложение Windows.

3. В поле Имя введите parameters и нажмите кнопку ОК.

Откроется новый проект Windows Forms.

4. С Панели элементов перетащите на форму два элемента управления Надпись.

5. Из панели элементов перетащите в форму элемент управления Button.

6. Дважды щелкните элемент управления Button, чтобы открыть редактор кода.

7. Сразу после строки End Sub обработчика событий Button1_Click добавьте следующую процедуру:

Function AddTwoNumbers(ByVal N1 As Integer, ByVal N2 As Integer) _ As Integer Return N1 + N2End Function

8. В процедуру Button1_Click добавьте следующий код:

Язык Visual Basic

Dim aNumber As Integer = CInt(Textbox1.Text)Dim bNumber As Integer = CInt(Textbox2.Text)MsgBox(AddTwoNumbers(aNumber, bNumber))

Этот код объявляет два целых числа и преобразует текст в двух текстовых полях к целочисленным значениям. Затем он передает эти значения функции AddTwoNumbers и выводит значение, возвращаемое в окне сообщения.

9. Нажмите клавишу F5 для запуска программы.

10. Введите число в каждом текстовом поле и нажмите кнопку. Добавляются два числа, и результат отображается в окне сообщения.

На следующем занятии будет рассказано, как использовать инструкцию For...Next для повторения действий.

Повторение действий в программе: использование цикла For... Next

На этом занятии будет рассказано, как использовать оператор For...Next для повторения действий в программе и для подсчета того, сколько раз были выполнены эти действия. При написании программы часто бывает необходимо повторять действия. Например, предположим, что нужно написать метод для отображения ряда чисел на экране. Для этого нужно повторить строку кода, которая выводит числа, необходимое число раз.

Цикл For...Next позволяет указать число, а затем повторить код внутри этого цикла указанное количество раз. В следующем примере показано, как цикл For...Next описывается в коде.

Dim i As Integer = 0For i = 1 To 10 DisplayNumber(i)Next

Цикл For...Next начинается с переменной-счетчикаi. Это переменная цикла, используемая для подсчета того, сколько раз он был выполнен. Следующая строка (For i = 1 to 10) сообщает программе, сколько раз требуется повторить цикл, а также описывает возможные значения переменной i. Выполнение цикла For...Next начинается с переменной i, содержащей первое значение (в данном случае —1). Затем программа выполняет строки кода между строками For и Next, в этом случае вызывая метод DisplayNumber с параметром i (в данном случае также равным 1).

При достижении строки Next1 добавляется к переменной i, и выполнение программы переходит обратно к строке For. Это повторяется до тех пор, пока значение i не станет больше, чем второе число в строке For, в этом случае 10. Как только это произойдет, выполнение программы продолжится со строки кода после строки Next.

Практическое задание

Для использования оператора For... Next

1. В меню Файл выберите команду Создать проект.

2. В диалоговом окне Создание проекта в области Шаблоны выберите Приложение Windows.

3. В поле Имя введите ForNext и нажмите кнопку ОК.

Откроется новый проект Windows Forms.

4. Из Панели элементов перетащите один элемент управления TextBox и один элемент Button на форму.

5. Дважды щелкните элемент Button, чтобы открыть редактор кода.

6. В обработчик событий Button1_Click введите следующий код:

Язык Visual Basic

Dim i As Integer = 0Dim NumberOfRepetitions As Integer = CInt(Textbox1.Text)For i = 1 To NumberOfRepetitions MsgBox("This line has been repeated " & i & " times")Next

7. Нажмите клавишу F5 для запуска программы.

8. В текстовом поле введите число и нажмите кнопку.

Окно сообщения появится столько раз, сколько было указано в текстовом поле.

В этом разделе было рассмотрено, как использовать цикл For...Next для повторения кода заданное число раз. Теперь можно перейти к следующему занятию серии Программный выбор между двумя возможностями. Оператор If... Then или изучить другой тип цикла в разделе Подробное рассмотрение. Повторения операций в цикле Do... While или Do... Until, пока не будет выполнено условие.

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