(VBA流程控制语句.docVIP

VBA流程控制语句一、条件（选择）语句 1、If 条件为真 Then 语句 如果条件为真则执行语句命令。 例1：在窗体中建立一个命令按钮和两个文本框Test0、Test1，在文本框Test0中输入一个数，单击命令按钮时在文本框Test1中显示相应的文字。Command0事件代码如下： Private Sub Command0_Click() a = Val(Text0) 输入的文本转换为数字 If a 0 Then Text1.Value = 您输入的是正数 If a 0 Then Text1.Value = 您输入的是负数 End Sub 2、If 条件为真 Then 语句1 Else 语句2 如果条件为真则执行语句1中的命令，否则执行语句2中的命令。 例2：Command0事件代码如下： Private Sub Command0_Click() a = Val(Text0) If a 0 Then Text1.Value = 您输入的是正数 else Text1.Value = 您输入的是0或负数 End Sub 3、If 条件为真 Then 语句序列1 Else 语句序列2 End if 如果条件为真则执行语句序列1中的命令（可能不止一行），否则执行语句序列2中的命令。 例3：Command0事件代码如下： Private Sub Command0_Click() a = Val(Text0) If a 0 Then Text1.Value = 您输入的是正数 Text1.ForeColor = 255 设置文本框的文字颜色 Else Text1.Value = 您输入的是0或负数 End If End Sub 4、If 条件1为真 Then 语句序列1 ElseIf 条件2为真 Then 语句序列2 ElseIf 条件3为真 Then 语句序列3 …… Else 语句序列 End if 如果条件1为真则执行语句序列1中的命令，之后跳出此结构去执行End if的下一条语句；否则继续判断条件2为真，如果条件2为真则执行语句序列2中的命令，之后跳出此结构去执行 End if的下一条语句；否则继续判断条件3为真，依此类推。 例4：Command0事件代码如下： Private Sub Command0_Click() a = Val(Text0) If a 0 Then Text1.Value = 您输入的是正数 ElseIf a = 0 Then Text1.Value = 您输入的是0或者不以数字开头的文本 Else Text1.Value = 您输入的是负数 End If End Sub 5、Select Case 表达式 Case 情况1 ?语句序列1 Case 情况2 语句序列2 …… Case 情况n 语句序列n Case Else 语句序列 End Select 计算表达式的值，如果其等于情况1，则?执行语句序列1，然后跳出select case （过程），否则，判断情况2，如果表达式的值等于情况2，则?执行语句序列2，依此类推；如果表达式的值都不等于情况1……至情况n，则执行Case Else后的语句序列。 情况1……情况n可以为下列4种形式之一： 1）包含一个值， 如：Case 1 2）包含多个值，多个值用逗号 (,) 分开，如：Case 2,3,4 3) 某个范围的值， 如：Case 3 To 7 4) Is和比较运算符的组合， 如：Case Is = 15 例5：Command0事件代码如下： Private Sub Command0_Click() a = Val(Text0) Select Case a Case 0 Text1.Value = 您输入的是0 Case 1, 3, 5, 7, 9 Text1.Value = 您输入的是1-10的奇数 Case 2, 4, 6, 8, 10 Text1.Value = 您输入的是1-10的偶数 Case 10 To 100 Text1.Value = 您输入的是10-100的数 Case Is 100 Text1.Value = 您输入的是大于100的数 End Select End Sub ????????? if ...then... 和select case 的区别： if a100 then text