Page 80 - 4192

5. Якщо виникне потреба змінити властивості шрифту в
формі, слід у вікні Properties (Свойства) в списку по алфавіту
обрати властивість Font, клацнути її, щоб відкрити вікно
Вибір шрифту, і виконати необхідні зміни.
6. Обов'язково встановити для властивості Autoredraw
значення Да (True).
7. Два рази клацнути по кнопці Пуск в формі. У вікні
Код з'явиться заголовок процедури та його кінець:
Private Sub Пуск_Click()

End Sub.
8. Після заголовку процедури набрати текст (код
програми).
9. Запустити програму на виконання, натиснувши кнопку
Начать на панелі Стандартная.
10. У вікні Форма1 клацнути по командній кнопці Пуск.
Ввести початкові значення х та z в вікні з повідомленням.
Результат виконання процедури буде показаний у вікні форми
(рис. 3.2).
Private Sub Пуск_Click()
Dim x!, y!, z!, p!
x = 1.5: y = -5
z = sqr(abs(x ^ 2 - y ^ 2)) / Tan(x)^2
p = ((y^2-x^2) ^ (1 / 3) + Log(Abs(x /y))) / Cos(z) ^ 2
Print "x="; x, "y="; y
Print
Print "z="; z, "p="; p
End Sub
Зверніть увагу, що виведення початкових даних та
результатів обчислень z і p оператором Print здійснюється
безпосередньо на форму

79