4.2.1 If … Then 语句 
If … Then 语句有两种语法格式。
（ 1 ）单行结构格式
If 条件 Then 语句
（ 2 ）块结构格式
If 条件 Then
语句块
End If
功能：若条件成立（值为真），则 Then 后面的语句或语句块，否则直接执行下一条语句或“ End If ”后的一条语句。
4.2.2 If … Then … Else 语句
If … Then … Else 语句有两种语法格式。
（ 1 ）单行结构格式
If 条件 Then 语句 1 Else 语句 2
（ 2 ）块结构格式
If 条件 Then
语句块 1
Else
语句块 2
End If
功能：首先测试条件，如果条件成立（值为真）， Then 后面的语句块 1 ；如果条件不成立（值为假），执行 Else 后面的语句块 2 。在执行 Then 或 Else 之后的语句块后，会从 End If 之后的语句继续执行。
[ 例 4.2] 输入 3 个数 a ， b ， c ，求其中的最大数。
（ 1 ）创建应用程序用户界面和设置对象属性。如图 4.1 所示。
4.2.3 IIf 函数
Iif 函数可用来执行一些简单的条件判断操作，其语法格式是：
Iif( 条件，条件为真时的值，条件为假时的值 )
功能：对条件进行测试，若条件成立（为真值），取第一个值（即“条件为真时的值”），否则取第二个值（即“条件为假时的值”）。
4.2.4 条件语句的嵌套
1 ．一般格式
在条件语句中， Then 和 Else 后面的语句块也可以包含另一个语句块，这就形成了条件语句的嵌套。如：
If 条件 1 Then
If 条件 2 Then
……
End If
Else
……
End If
[ 例 4.3] 根据不同的时间段发出问候语。
程序代码如下：
Private Sub Form_Load()
Dim h As Integer
Show
h = Hour(Time)
FontSize = 30
ForeColor = RGB(255, 0, 0)
BackColor = RGB(255, 255, 0)
If h < 12 Then
Print " 早上好！ "
Else
If h < 18 Then
Print " 下午好！ "
Else
Print " 晚上好！ "
End If
End If
End Sub
2.ElseIf 格式
语法格式如下：
If 条件 1 Then
语句块 1
ElseIf 条件 2 Then
语句块 2
ElseIf 条件 3 Then
语句块 3
……
[Else
语句块 n]
End If
|
第四章
