第五章Visual Basic程序设计

– Case 60 To 100
河北理工大学理学院
5.2 选择结构
• 4）Is <关系表达式> 当“变量或表达式”的值满足“关系表达式”指定条件时，执 行该Case子句中的语句块。
– Case Is < 60
说明：
• 1、“变量或表达式”的值与“表达式表列”的值均不匹配的 时候，执行case else 子句。
Print strC + "是字母字符" Case "0" To "9" Print strC + "是数字字符" Case Else
Print strC + “是其它字符"
End Select
河北理工大学理学院
5.2 选择结构
例5.5(补) 已知坐标点(x，y)，判断其落在哪个 象限。
方法一 方法二 If x > 0 And y >0 Then Select Case x,y Case x > 0 And y > 0 Print "在第一象限" Print "在第一象限" ElseIf x < 0 And y > 0 Then Case x < 0 And y > 0 Print "在第二象限" Print "在第二象限" ElseIf x < 0 And y < 0 Then Case x < 0 And y < 0 Print "在第三象限" Print "在第三象限" ElseIf x > 0 And y <0 Then Case x > 0 And y <0 Print "在第四象限" Print "在第四象限" End If End Select
• 2、“变量或表达式”可以是数值表达式或字符串表达式。 • 3、Case子句可以是一行或多行语句。 • 4、“表达式表列”中的表达式必须与“变量或表达式”的类 型一致。
河北理工大学理学院
5.2 选择结构
例5.4(补) 变量strC中存放了一个字符，判断该 字符类型。
用多分支结构实现：
If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符"
河北理工大学理学院
5.1 算法及其描述
基本的循环结构有两种：当循环和直到循环。
• 当循环：首先判断条件是否成立，若成立，执行循环体再判断 条件，决定是否继续进行循环；若不成立，跳过这组操作，执 行此循环结构后面的操作。 • 直到循环：首先执行循环体，然后判断条件是否成立，若成立， 则继续进行循环操作；若不成立，执行此循环结构后面的操作。
If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符" ElseIf strC >="0" And strC <="9" Then Print strC + "是数字字符"
Else
Print strC + “是其它字符" End If
不管有几个分支，依次判断，当某条件满足，执行相应的语句，其 余分支不再执行；若条件都不满足，且有Else子句，则执行该语句 块，否则什么也不执行。
ElseIf不能写成 Else If。
河北理工大学理学院
5.2 选择结构
例5.2(补) 已知百分制成绩mark，显示对应的五级制 成绩。哪些正确，哪些错误？
重要的是学会两个数的交换Fra bibliotek若上述语句次序 变一下，结果如何？
河北理工大学理学院
5.2 选择结构
2. If…Then…Else语句(双分支结构) If <表达式> Then
<语句块1>
Else
<语句块2>
End If 或If <表达式> Then <语句1> Else <语句2> 例：文字移动
• 书写锯齿型 • If 与End If配对。
T x 与 y 交换 x >y y<z T y 与 z 交换 z 为最小数 F F x >y>z
x< y
T x 与 y 交换 使得 x >y
河北理工大学理学院
5.2 选择结构
5. Select Case语句(情况语句) Select Case 变量或表达式 Case 表达式列表1
方法一 方法二 If mark >= 90 Then If mark < 60 Then Print "优" Print "不及格" ElseIf mark >= 80 Then ElseIf mark < 70 Then Print "良" Print "及格" ElseIf mark >= 70 Then ElseIf mark < 80 Then Print "中" Print "中" ElseIf mark >= 60 Then ElseIf mark < 90 Then Print "及格" Print "良" Else Else Print "不及格" Print "优" End If End If 方法三 If mark >= 60 Then Print "及格" ElseIf mark >= 70 Then Print "中" ElseIf mark >= 80 Then Print "良" ElseIf mark >= 90 Then Print "优" Else Print "不及格" End If
河北理工大学理学院
5.2 选择结构
哪个能实现，哪个不能实现？ 方法二代码错误：
• 1. Select Case 后不能出现多个变量；
• 2. Case后不能出现变量及有关运算符。
例5.6 商店售货，按购买货物的多少分别给予 不同优惠折扣如下:编程计算购物款数。购物不 足250元，无折扣，购物满250元、不足500元， 减价5%，购物满500元、不足1000元，减价 7.5%，购物满1000元、不足2000元，减价 10%，购物满2000元，减价15%。
语句块1
Case 表达式列表2 语句块2
数值型或字符串表达式
…
[Case Else 语句块n+1] End Select
功能：根据“变量或表达式”的值，从多个语句块中 选择符合条件的一个语句块执行。
河北理工大学理学院
5.2 选择结构
<表达式列表>：与<变量或表达式>同类型的下面四种 形式之一：
5.2 选择结构
6. 条件函数 （1）IIf函数形式是：
IIf（表达式，当表达式为True时的值，当表达式 为False时的值） 例如，求x,y中大的数，放入Tmax变量中，语句 如下：
Tmax=IIf（x > y，x，y）
河北理工大学理学院
河北理工大学理学院
5.2 选择结构
分析:设购物款为m， 折扣为d，以上规定 可表示如下：
0
5% d= 7.5% 10%
Select Case m Case Is < 250 d=0 Case Is < 500 d = 0.05 Case Is < 1000 d = 0.075 Case Is < 2000
Text1.Text = Str(m)
Text2.Text = Str(d) Text3.Text = Str(m * (1 - d)) End Sub
河北理工大学理学院
5.2 选择结构
Private Sub Command2_Click() End End Sub 运行结果如下：
河北理工大学理学院
x0 x0
河北理工大学理学院
5.2 选择结构
3. If…Then…ElseIf语句(多分支结构) If <表达式1> Then
<语句块1>
ElseIf <表达式2>Then <语句块2> … [Else
语句块 n+1 ]
End If
河北理工大学理学院
5.2 选择结构
例5.1(补) 已知变量strC中存放了一个字符，判断该字符 是字母字符、数字字符还是其它字符。
• 1） <表达式>
– Case “A”
• 2）<表达式1>[,<表达式2>]…… 当“变量或表达式”的值与其中之一相同，就执行该Case子 句中的语句块。
– 即一组枚举表达式(用逗号分隔) Case 2,4,6,8
• 3）<表达式1> To <表达式2>
当“变量或表达式”的值落在表达式1和表达式2之间（含自 身），则执行该Case子句中的语句块。表达式1<表达式2。
或
If <表达式> Then <语句>
例:输入三个数，输出其中最大值。
河北理工大学理学院
5.2 选择结构
例：已知两个数x和y，比较它们的大小，使得 x大于y.