Page 58 - 4788

Else
Оператор2
End If
Приклад
Private Sub Command1_Click()
a = 6
If a = 7 Then
Print "visual"
Else
Print "basic"
End If
End Sub

Приклад. Упорядкувати числа за спаданням.

Програмний код:
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Max = a
If b > Max Then Max = b
If c > Max Then Max = c
Print Max
Min = a
If b < Min Then Min = b
If c < Min Then Min = c
If a < Max And a > Min Then Print a
If b < Max And b > Min Then Print b
If c < Max And c > Min Then Print c
Print Min
End Sub
Рисунок 4.1 – Інтерфейс
виконання прикладу

56