TP5V1.0

第3页
选择结构
IF语句
单行结构条件语句
If…Then结构 If…Then…Else结构
多分支If结构
If…Then…ElseIf结构 If嵌套
IIF函数 Select Case语句
第4页
IF语句
If…Then结构
格式：If 表达式 Then 语句块 End If 功能：如果表达式的值为真（True），执行Then后的语句块内容； 否则不执行语句块内容。 说明：
Private Sub Command1_Click() Dim x As Integer x = InputBox("请输入一个数", "输入对话框", 0) If x Mod 2 = 0 Then MsgBox “x 是偶数” Else MsgBox "x 是奇数 " End Sub
第8页
IF语句
IIF函数
IIf函数
格式： IIf(条件, 表达式1, 表达式2) 功能：当条件为真（True），该函数返回表达式1的值，否则返 回表达式2的值。其中，函数的三个参数都是必须的，不可省略 。 说明：
在使用IIf函数时，必须将其返回值赋值给一个变量，不可以单独调用。 IIf(x = 1, “Yes”, “No”),需为:a = IIf(x = 1, “Yes”, “No”),或作为其他 函数的参数。 在使用IIf函数时，第2和第3个参数必须只能为一条语句，而且必须是 有返回值的。
表达式可以是：关系表达式、逻辑表达式、算术表达式。若为算术 表达式，值为0则为假，非0则为真。 如果是单行If格式，所有的代码必须写在同一行中，绝对不能换行且 不能出现End If。 Else中的条件范围为除If中条件的所有条件。
第7页
示例
例：接受用户输入一个数，判断是奇数还是偶数？
分析：1、如何获得用户输入一个数 2、什么是偶数？能被2整除的数，得表达式x mod 2=0 同时， x mod 2<>0的数为奇数，只有两个分支 代码如下：
IF语句
If嵌套:
所谓If嵌套，是指在If的Then或者Else语句块中还可以嵌套If结构， 以达到多分支的目的。 例：编写一个程序，根据用户输入的某个学生的成绩评出优、良、 中等、及格和不及格五个等级。同时注意成绩的有效范围为0到 100之间
第11页
示例
Private Sub Command1_Click() Dim score As Integer score = InputBox("请输入一个数", "输入对话框 ", 0) If score >= 0 And score <= 100 Then If score < 60 Then Print "不及格" ElseIf score < 70 Then Print "及格" ElseIf score < 80 Then Print "中等" ElseIf score < 90 Then Print "良好" Else Print "优" End If Else Print "成绩无效" End If End Sub
Private Sub Command1_Click() Dim x As Integer x = InputBox("请输入一个数", "输入对话框", 0) If x Mod 2 = 0 Then MsgBox "x 是偶数" End Sub
第6页
IF语句
If…Then…Else结构
格式：If 表达式 Then 语句块1 Else 语句块2 End If 功能：该结构用于解决"二选一"的问题。当表达式的值为真，执 行语句块1的语句内容；否则执行语句块2的语句内容 说明：
表达式可以是：关系表达式、逻辑表达式、算术表达式。若为算术 表达式，值为0则为假，非0则为真。 如果是单行If格式，所有的代码必须写在同一行中，绝对不能换行且 不能出现End If。
第5页
示例
例：接受用户输入一个数，判断是否为偶数？
分析：1、如何获得用户输入一个数 2、什么是偶数？能被2整除的数，得表达式x mod 2=0 代码如下：
程序运行后,单击命令按钮,窗体上显示的是（C）
a.-5 b.25 c.1 d.-1
第14页
热点考题
[2005.4]在窗体上画一个命令按钮和一个文本框,名称分别为 Command1和Text1,然后编写如下程序:
Private Sub Command1_Click() a=InputBox(“请输入日期(1~31)”) t=“旅游景点:” _ & IIF(a>0 And a<=10,”长城”,“”) _ & IIF(a>10 And a<=20,” 故宫”,“”) _ & IIF(a>20 And a<=31,”颐和园”,“”) Text1.Text=t End Sub
当表达式结果与多个Case表达式列表的值匹配时，则只执行第一 个匹配的Case语句对应的语句块 Case Else子句必须放在全部Case子句语句后面。当表达式的值 与前面所有Case语句均不匹配时，才执行Case Else子句部分。 这个子句可以省略
第17页
示例
例：邮局向国外寄包裹的收费计算如下：当包裹重量不超 过15克时收费5元；当包裹重量为15克至30克时收费9元； 当包裹重量为30至45克时收费12元；当包裹重量为45克 至60克时收费14元；当包裹重量为60克至75克时收费16 元；当包裹重量超过75克时收费20元。请编写一个程序 根据包裹重量计算邮费。
If…Then…ElseIf结构
格式：If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 [ElseIf 表达式3 Then 语句块3] …… [Else 语句块n] End If 功能：如表达式1为真则执行语句块1；否则测试表达式2的值， 为真则执行语句块2；依次类推至找到一个值为真的表达式则执行 相应的语句块；若都不为真时，执行Else后语句块内容。
第13页
热点考题
[2008.4]现有语句 y=iif(x>0,x mod 3,0),设x=10,则y的值 (B)
a) 0 b) 1 c) 3 d) 语法错误
[2004.4]在窗体上画一个名称为Command1的命令按钮, 然后编写如下事件过程:
Private Sub Command1_Click（） x=-5 If Sgn（x）Then y=Sgn（x^2） 先算if了，else就不算了 Else y=Sgn（x） EndIf Print y End Sub
第15页
Select Case语句
Select Case语句
格式：Select Case 测试表达式 Case 表达式列表1 语句块1 [Case 表达式表列2 [语句块2]] …… [Case Else [语句块n]] End Select
先计算“测试表达式”，从上向下依次检查每个Case后的条件表达式，如果满足 一个Case条件表达式，则执行相应的语句块，然后忽略其余的Case条件，直接 执行End Select后面的语句，如果不满足任何一个Case条件表达式，则执行 Case Else后的语句（也可以没有Case Else语句）
程序运行后,如果从键盘上输入16,则在文本框中显示的内容是（D） a.旅游景点:长城故宫 b.旅游景点:长城颐和园 c.旅游景点:颐和园 d.旅游景点:故宫 [2005.4]设a=“a”,b=“b”,c=“c”,d=“d”,执行语句x=IIF((a<d),”A”,”B”) 后,x的值是（D） a.”a” b.”b” c.”B” d.”A”
主讲：陶夏至 QQ：83069659

第五章
控制结构
考纲要求
选择结构:单行结构条件语句;块结构条件语句;IIF函数 For循环控制结构 当循环控制结构 Do循环控制结构 多重循环 Goto型控制语句:Goto语句;On-Goto语句
第2页
知识地图
控制结构 选择结构 FOR循环结构
当型循环结构
DO循环结构 多重循环
第16页
Select Case语句
说明：
测试表达式可以是数学表达式、字符串表达式、逻辑表达式或混 合表达式。 Case子句后的表达式列表可是以下几种格式：
表达式1，表达式2，……，表达式n 例： Case 2,4,6,8, "VB "，"程序设计" 表达式1 to 表达式2 例： Case 60 to 100 Case "a" to "z" Is 表达式 例： Case is<60 Case is>=60 and is<=100（错误） 还可以是上述三种格式的结合 例： Case 2，4，6，8，10 to 15,is>100
Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case -10 to 10 y=-x End Select End Sub
Case 60 To 75 b = 16 Case Else b = 20 End Select
Print "邮资为：" & b Else
Print "重量输入不合理" End If End Sub
第20页
热点考题
[2006.4]在窗体上画一个命令按钮（名称为Command1）和1个文本 框（名称为Text1）,然后编写如下事件过程: