Программная единица

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) ' Два вызова п/п Function Sum1

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