Page 49 - 4450

(Is=”3”). Блок Case Else виконується, якщо жодна з
попередніх умов не є істинною.
Приклад 1.
Private Sub Command1_Click()
n = Int(Rnd * 10) + 1 {генератор випадкових чисел}
Select Case n
Case 1
Print " internet"
Case 2
Print "Україна"
Case 3
Print "basic"
Case Else
Print "Ivanenko"
End Select
End Sub

Приклад 2. Обчислити, якщо а = 1, в = 3, x – задати
самостійно

Програмний код:
Private Sub Command1_Click() Private SubCommand2_Click()
Dim x, y As Single End
Dim a, b As Integer End Sub
x = Val(Text1)
a = Val(Text2)
b = Val(Text3)
Select Case x
Case Is < a
y = 1 - x
Case a To b
y = Exp(x)
Case Else
y = Log(x)
End Select Рисунок 5.1 – Інтерфейс
Text4 = y виконання прикладу
End Sub

47