分支语句使用举例
例题3： 输入一个整数n，若n为负数，则计算n2，否则计算n的平方根。打印计算结果。
Private Sub Form_Click()
Dimn As Integer
Dim y As Double
n = InputBox("请输入一个整数")
If n < 0 Then
y = n * n
Else
y = Sqr(n)
End If
Print"y=", y
End Sub
例题4： 输入3个整数，将其中最大的数打印出来
Private Sub Form_Click()
Dimmax As Integer
Dim a As Integer, b As Integer, c As Integer
a = InputBox("请输入第一个数")
b = InputBox("请输入第二个数")
c = InputBox("请输入第三个数")
max = a
If max < b Then max = b
If max < c Then max = c
Print "最大的数是：",max
End Sub
例题5： 输入整数n，若n=0，打印“Sunday”，若n=1，则打印 “Monday”，……，若n=6，则打印“Saturday”，若n为其他整数，则打印“Error!”
Private Sub Form_Click()
Dimn As Integer
n = InputBox("请输入一个整数")
Select Case n
Case 0
Print "Sunday"
Case 1
Print "Monday"
Case 2
Print "Tuesday"
Case 3
Print "Wednesday"
Case 4
Print "Thursday"
Case 5
Print "Friday"
Case 6
Print "Saturday"
Case Else
Print "Invalid inputdata"
End Select
End Sub