Page 67 - 4450

Private Sub Command1_Click()
Dim First, Second ' Опис змінних
First = Val(Text1.Text)
Second = Val(Text2.Text)
If Option1.Value = True Then
Label1.Caption = First + Second
End If
If Option2.Value = True Then
Label1.Caption = First - Second
End If
If Option3.Value = True Then
Label1.Caption = First * Second
End If
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
У вікні Code буде відображена процедура
Command1_Click. Перший оператор процедури описує дві
змінні - загального використання типу варіант. У них будуть
зберігатися значення, введені в текстових полях. Цей тип
змінних досить гнучкий для використання з будь-якими
числовими даними.
First = Val (Text1 .Text) ‘надаємо значення змінним і
конвертуємо їх у числовий
формат
Second = Val (Text2.Text)
Функція Val перетворить текстовий аргумент у
числове значення. Це перетворення необхідне для
коректного виконання наступних операцій у програмі. За
замовчуванням дані, введені в текстове поле,
представляються текстовим рядком. Оператори -, *,^, /
працюють тільки з числами, тому при виборі користувачем
однієї з цих операцій Visual Basic автоматичне перетворить
значення у числа.

65