где имя п/п -Sum1; x, n – формальные входные параметры;
Sub Sum2 (y, m, s) гдеимя п/п - Sum2; y,m – формальные входные параметры; s – формальный выходной параметр.
Программная единица
Private Sub Command1_Click() ' Заголовок основной программы
Dim x (1 To 10), y (1 To 10) As Single ' Описание массивов X, Y
Dim p1, p2, z As Single ' Описание переменных
Dim i As Integer
For i = 1 To 3 ' Цикл для ввода элементов масиива Х
x(i) = Val (InputBox (" Введите " & i & " элемент X "))
Next i
For i = 1 To 4 ' Цикл для ввода элементов масиива У
y(i) = Val (InputBox (" Введите " & i & " элемент Y "))
Next i
z = Sum1(x, 3) + Sum1(y, 4) ' Два вызова п/п FunctionSum1
TextBox1.text= z ' Вывод в TextBox1 результата работы п/п Function
Call Sum2 (x, 3, p1) ' 1- й вызов п/п Sub Sum2 (х, 3, р1 – фактические параметры)
Call Sum2 (y, 4, p2 ) ' 2- й вызов п/п Sub Sum2 (y, 4, p2 – фактические параметры)
z = p1 + p2 ' p1 и p2 – результаты 2 –х обращений к п/п Sub Sum2
TextBox2.text= z ' Вывод в TextBox2 результата работы п/п Sub Sum2
End Sub ' Конец основной программы
Function Sum1(x, n) As Single ' п/п Function (x, n – формальные параметры)
Dim i As Integer, S As single ' Описание переменных в подпрограмме
S = 0 ' Переменная для накопления суммы
|
|
For i = 1 To n ' Цикл для суммирования
S = S + x(i) ' Суммирование элементов в цикле
Next I ' Конец цикла
Sum1= s ' Присвоение имени подпрограммы переменной s
End Function ' Конец подпрограммы Function
Sub Sum2 (y, m, s) ' Заголовок п/п Sub Sum2 (y, m, s - формальные параметры)
Dim i As Integer ' Описание переменной в подпрограмме
s=0 ' Переменная для накопления суммы
For i = 1 To m ' Цикл для суммирования
s = s + y(i) ' Сумма элементов в цикле
Next i
End Sub ' Конец подпрограммы Sub
Private Sub CommandButton2_Click() ' Процедура окончания работы
End ' Закончить работу проекта
End Sub
При вводе: х(1)=1; х(2)=2; х(3)=3 и у(1)=1; у(2)=2; у(3)=3; у(4)=4;
Результат работы программной единицы приведен на рис. Л9.2.
Оформление протокола лабораторной работы
1. Отчет оформить на рабочем листе 1.
2. В заголовке лабораторной работы записать ее номер и цель проведения.
3. Записать условия индивидуальных заданий и порядок выполнения.
4. На листе 1 записать результаты решения.
5. Записать проект в личную папку под именем Лаб. 9.
6. Подготовиться для ответа на контрольные вопросы при защите лабораторной работы.
Контрольные вопросы
1. В каких случаях применяется подпрограмма?
2. Дайте определение программной единицы.
3. Где располагается подпрограмма?
4. Дайте определение глобальных и локальных переменных.
5. Приведите структуру подпрограммы Sub.
6. Приведите структуру подпрограммы Function.
7. Как осуществляется вызов подпрограммы Sub?
8. Как осуществляется вызов подпрограммы Function?
9. В чем отличие подпрограммы Function и Sub?
10. Понятие фактических параметров при вызове подпрограммы Sub.
11. Понятие фактических параметров при вызове подпрограммы Function.
|
|
12. Понятие формальных параметров в подпрограмме Sub.
13. Понятие формальных параметров в подпрограмме Function.
14. Соответствие между фактическими и формальными параметрами.
15. Как передается результат работы подпрограммы Function и Sub в основную программу.
Л а б о р а т о р н а я р а б о т а № 10