Page 55 - 4788

Print b
End Sub

Приклад: Підрахуємо суму цифр тризначного числа.

Програмний код.
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a1 = a \ 100
Print " перше число="; a1
a2 = (a - a1 * 100) \ 10
Print "друге число= "; a2
a3 = a Mod 10
Print "третє число = "; a3
s = a1 + a2 + a3
Print "сума = "; s
End Sub

Рисунок 3.7 – Інтерфейс
виконання прикладу

Контрольні запитання

1. З яких вікон складається середовище VB?
2. Які властивості об’єктів використані при написанні
програми?
3. Як описуються статичні змінні?

Завдання для самостійного розв’язку

1. Розмістити на формі два компонента: кнопку і Label.
При затиснені на кнопку, на Label повинно з’явитися ваше
прізвище.

53