Page 109 - 4450

P=Atn(a)+4.7*b
Print Tab(5);”Результати обчислень”
Print Spc(5);”a=”; a; Spc(5);”b=” ; b; Spc(5); “p=”; p
End sub
7. У меню Разработать обрати команду Добавить
модуль. З’явиться вікно Add Module. Вибрати Новый і
натиснути кнопку Открыть.
8. З’явиться вікно Проект1-Модуль 1(Код).
Надрукуємо ім’я процедури Function SV(n,z) і натиснемо
Enter. З’явиться End Function (кінець процедури).
9. Після заголовка процедури набрати текст (тіло
процедури).
Function SV(n,z)
S=0
For i=1 to n
S=s+z(i)
Next i
SV=s
End Function
10. Запустити команду на виконання, натиснувши
кнопку Начать на панелі інструментів Стандартная.
11. У вікні Форма1 клацнути по командній кнопці Пуск.
Ввести розмір масиву n. (n<=5=розміру массиву х).
Результат виконання процедури буде показаний у вікні
форми (рис. 18.1).

107