TP5V1.0

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）,然后编写如下事件过程:
第9页
示例
例：编写一个程序，根据用户输入的某个学生的成绩评出优、良、中等、及 格和不及格五个等级。
代码如下：
Private Sub Command1_Click() Dim score As Integer score = InputBox("请输入一个数", "输入对话框", 0) If score < 60 Then Print "不及格" ElseIf score < 70 Then Print "及格" ElseIf score < 80 Then Print "中等" ElseIf score < 90 Then Print "良好" Else Print "优" End If End Sub 第10页
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语句
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() 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
If…Then…ElseIf结构
格式：If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 [ElseIf 表达式3 Then 语句块3] …… [Else 语句块n] End If 功能：如表达式1为真则执行语句块1；否则测试表达式2的值， 为真则执行语句块2；依次类推至找到一个值为真的表达式则执行 相应的语句块；若都不为真时，执行Else后语句块内容。
第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语句）
ElseIf a <= 75 Then b = 16 Else b = 20 End If Print "邮资为：" & b Else Print "重量输入不合理" End If End Sub
第19页
示例
编写代码： Select Case语句实现
Private Sub Command1_Click() Dim a As Single, b As Integer a = InputBox("请输入货物的重量", "输 入对话框", 0) If a > 0 Then Select Case a Case Is <= 15 b=5 Case Is <= 30 b=9 Case 30 To 45 b = 12 Case 45 To 60 b = 14
主讲：陶夏至 QQ：83069659
第五章
控制结构
考纲要求
选择结构:单行结构条件语句;块结构条件语句;IIF函数 For循环控制结构 当循环控制结构 Do循环控制结构 多重循环 Goto型控制语句:Goto语句;On-Goto语句
第2页
知识地图
控制结构 选择结构 FOR循环结构
当型循环结构
DO循环结构 多重循环
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。
第5页
示例
例：接受用户输入一个数，判断是否为偶数？
分析：1、如何获得用户输入一个数 2、什么是偶数？能被2整除的数，得表达式x mod 2=0 代码如下：
当表达式结果与多个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元。请编写一个程序 根据包裹重量计算邮费。
表达式可以是：关系表达式、逻辑表达式、算术表达式。若为算术 表达式，值为0则为假，非0则为真。 如果是单行If格式，所有的代码必须写在同一行中，绝对不能换行且 不能出现End If。 Else中的条件范围为除If中条件的所有条件。
第7页
示例
例：接受用户输入一个数，判断是奇数还是偶数？
分析：1、如何获得用户输入一个数 2、什么是偶数？能被2整除的数，得表达式x mod 2=0 同时， x mod 2<>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 是偶数" End Sub
第6页
IF语句
If…Then…Else结构
格式：If 表达式 Then 语句块1 Else 语句块2 End If 功能：该结构用于解决"二选一"的问题。当表达式的值为真，执 行语句块1的语句内容；否则执行语句块2的语句内容 说明：
程序运行后,如果从键盘上输入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”
第18页
示例
编写代码：IF语句实现
Private Sub Command1_Click() Dim a As Single, b As Integer a = InputBox("请输入货物的重量", "输 入对话框", 0) If a > 0 Then If a <= 15 Then b=5 ElseIf a <= 30 Then b=9 ElseIf a <= 45 Then b = 12 ElseIf a <= 60 Then b = 14
第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
第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
程序运行后,单击命令按钮,窗体上显示的是（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
Private Sub Command1_Click() Dim score As Integer score = InputBox("请输入一个数", "输入对话框 ", 0) If score < 0 Or score > 100 Then Print "成绩无效" Else If score < 60 Then Print "不及格" ElseIf score < 70 Then Print "及格" ElseIf score < 80 Then Print "中等" ElseIf score < 90 Then Print "良好" Else Print "优" End If End If End Sub 第12页