VB选择性语句

1 单一选择的If…Then 语句
运行此程序,用鼠标单击窗口后,会弹出如图6-1(a)所 示的“单击按钮实验”信息框，用鼠标单击最左边的 “终止”按钮，MsgBox函数就会把值3返回赋给变量 st，这样以“st=？”作为条件表达式来判断应该执 行哪一个语句时，就会在窗口上显示出“你单击的是 ‘终止’按钮”信息。如图6-1(b)所示若将窗体 Click事件过程代码中的语句：If st = 3 Then ck1.Print "你单击的是'终止'按钮"改写成：If st = 3 Then ck1.Print "你单击的是'终止'按钮": Ck1.Print st那么在用鼠标单击图6-1（a）里的“终 止”按钮后，窗体上的显示情形如图6-1（c）所示。
1 单一选择的If…Then 语句
1.1．单行语句
用 If...Then 结构有条件地执行一个语句 一般格式如下： If < 表达式> Then <语句> 遇到If...Then 语句时,首先测试条件表达式，如果为真， 就执行语句，否则跳过该语句，执行下面的程序。 （1）If todayDate < Now Then todayDate = Now 注意：使用单行格式时，若<条件表达式>为真，要执行多 个语句，那么它们在一行里，中间用冒号“：”隔开。 If...T鼠标单击窗口后弹出一个具有 “终止”、“重试”、和“忽略”3个按钮的MsgBox信息框。用 鼠标单击其中的某一个按钮，根据MsgBox函数的返回值，在窗 口上告知是单击了信息框里的哪一个按钮。
例6-3 输入3个数a、b、c，求出其中最大数。
2 If...Then...Else语句


要输入3个数字比较大小，可以先将其中任意两个数进行 比较，然后取出其中较大的那个数与第三个数字进行比较即可。 界面设计如图6-3所示。 程序代码如下： Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then m = a 'm用来存放较大值
多行If…Then语句的使用
2 If...Then...Else语句
当要对多个相关条件判定时，就可以使用 If…Then…Else语句，可以完成根据条件满足或不满足情况下 应该执行的语句。 2.1 单行语句 语法： If 条件表达式 Then 语句1 Else 语句2 功能：首先测试条件表达式，如果条件成立（即值为 真），则执行Then后面的语句1。如果条件不成立（即值为 假），则执行Else后面的语句2。而在执行完Then或Else之后 的语句块后，后面的语句继续执行。单行的If…Then…Else一 般用于Then和Else后面只有单个语句的情况。 2.2.多行语句 可以用 If...Then...Else 块定义几个语句块，执行其中 一个语句。其语法格式也有两种形式：
1 单一选择的If…Then 语句
例6-2输入3个数，将它们从大到小排序。 代码如下:
Private Sub Command1_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If a<b Then t=a:a=b:b=t End If If a<c Then t=a:a=c:c=t End If If b<c Then t=b:b=c:c=t End If Text4.Text=a&”,”&b&”,”&c 图6-2 End Sub
1 单一选择的If…Then 语句
设置窗体的Name属性为ck1,编写ck1的Click事件过程代 码: Private Sub From_Click() st= MsgBox (“请单击对话框里的某一个按钮”，322，”单 击按钮实验” If st=3 Thenck1.Print “你单击的是’终止’按钮” If st=4 Thenck1.Print “你单击的是’重试’按钮” If st=5 Thenck1.Print “你单击的是’忽略’按钮” End Sub
VB选择性语句
内容
1 1 单一选择的if…then语句 2 if…then…else语句 3 4 5 嵌套选择语句 多重选择 GoTo语句
2
3 4 5 6 7 8
6 On…GoTo和On…Error语句 7 8 9 复选框 选项按钮 框架
9
1 单一选择的If…Then 语句
1 2 单行语句
多行语句
1 单一选择的If…Then 语句
6-1 (a)
6-1 (b)
6-1 (c)
1 单一选择的If…Then 语句

1.2
多行语句
多行语句与单行语句功能相同，但格式不同，一般格式如 下: If <条件表达式> Then <语句体> End If 需要注意的是，在多行块中，语句体往往由多个语句行组 成。
y=
2 If...Then...Else语句

（1）If <表达式> Then <语句块1> Else <语句块2> End If （2）If <表达式> Then<语句1>Else<语句2> 当<表达式>的值为真时，执行Then后面的语句块1（或语 句1），否则执行Else后面的语句块2（或语句2）。
2 If...Then...Else语句
2 If...Then...Else语句
Else m = b End If If c > m Then m = c Text4.Text = m End Sub
图6-3 If…Then…Else语句的使用

运行此程序时，先输入3个整数，然后单 击判断按钮，即可将最大数显示在文本框中。