VB 第十讲

19
工程训练中心

二、选择结构
6、嵌套的选择结构 例：设计一个登录界面，并对输入的用户名和密码进行验证。 假设用户名 为：root，密码为：“abc123”。 解题思路：窗体上画两个文本框，用于输入用户名和密码，以及两个命令按钮， 若用户输入用户名或密码错误，则提示错误以及剩下登录的次数。 If Text1.Text <> "root" or Text2.Text <> "abc123" Then i=i+1 If i < 5 Then MsgBox "错误！你还有” & 5-i & “ 次机会" ElseIf i = 5 Then MsgBox “你没有登录机会了！" End End If Else MsgBox “登录成功！" End End If
18
工程训练中心

二、选择结构
6、嵌套的选择结构 例： 输入系数a，b，c，问能否构成三角形的3边；若能，则求此三角形 的面积 解题思路：a，b，c构成三角形的3边，必须俱备以下条件： ⑴ a，b，c均为正数 即 a>0 and b>0 and c>0； ⑵ a，b，c中任意两数之和大于第三个数 即 a+b>c and a+c>b and b+c>a ； (3)三角形的面积公式: p=(a+b+c)/2 s = Sqr(p * (p - a) * (p - b) * (p - c))
返回到条件判断，决定是否继续循环；若不成立，跳过这组操作，执行此结构后 面的操作。
N 条件 Y
条件
循环体
循环体
5
工程训练中心

一、结构化程序
（3）循环结构
■直到循环：首先执行一遍要循环的操作，然后判断条件是否成立，若 成立，则返回到这组操作的开始，重复执行这组操作；若不成立，执行此结构以
If
<条件> Then <语句块1> [Else <语句块2>]
7
工程训练中心

二、 选择结构
2、简单分支结构条件语句
True
条件
False
语句1
语句2
下一条语句
双分支选择结构流程图
8
工程训练中心

二、 选择结构
2、简单分支结构条件语句
例：编程求函数|x|的值。 解题思路：根据题意：x>=0，Abs(x)=x x<0，Abs(x)=－x
13
工程训练中心

二、选择结构
3、多分支情况语句
格式：
⑴先对“测试表达式”求值，而后顺序测试 Select Case<测试表达式> 与哪一个Case子句中的“表达式表列”相匹 配，找到就执行该分支的“语句块”，而后 Case <表达式表列1> 退出该分支；否则就执行“Case Else”分支的 <语句块1> 语句块，然后把控制转移到“End Select”后面 [Case < 表达式表列2 > 的语句； [<语句块2>]] ⑵“测试表达式”可以是数值表达式或字符 … 串表达式，通常为变量或常量； ⑶每个Case子句中的语句块可以是一行或多 [Case Else 行VB语句； [<语句块n>]] ⑷“表达式表列”中的表达式必须与测试表 End Select 达式的类型相同；
14
工程训练中心

二、选择结构
3、多分支情况语句
⑸”表达式表列“称为域值，可以是下列形式之一： ①<表达式1>[，<表达式2>]… 当“测试表达式”的值与其中之一相同时目就执行该Case子句中的语 句 块；例： Case 2，4，6，8，10 ②<表达式1> to <表达式2> 当”测试表达式“的值落在表达式1和表达式2之间时（包含表达式1 和 表达式2的值），执行该Case子句的语句块。书写时，把小值写在前 面 例：Case 2 to 10 ③Is <关系表达式> 当”测试表达式“的值满足”关系表达式“指定条件时，执行该 Case子句 的语句块。 例：Case Is>18*a „”测试表达式“的值大于18*a的值 15 工程训练中心
思考：若把“ case 5” 改成“case 3 ”，结果又会如何？
工程训练中心
16

二、选择结构
3、多分支情况语句
例： 商店售货，按购买货物的款数给予不同的优惠折扣，，编程计 算购货款数。 解题思路：利用inputbox输入“应付款”，根据其值，折算为“实付款”； 购货不足250元，无折扣； 购货满250元，不足500元，减价5％； 购货满500元，不足1000元，减价7.5％； 购货满1000元，不足2000元，减价10％； 购货满2000元，减价15％；
后的操作。
循环体 条件 N Y 条件
循环体
6
工程训练中心

二、 选择结构
1、简单分支选择结构条件语句 格式：
条件 Then 语句块1 [Else If 语句块2] EndIf
如： if a>b then max=a else max=b endif 可单行书写为：
功能：如果“条件”成立(其值为 True)或为非0值，则执行“语句块1”， 否则执行 “语句块2”。 其中：“条件”通常是关系表达式 或逻辑表达式；也可是数值表达式或 字符串表达式

一、结构化程序
2、选择结构
又称分支结构，根据给定的条件，选择执行一个分支的算法结构。 在选择结构中，必然要包括一个条件判断。
Y
条件
N Y
条件 B A B N
A
4
工程训练中心

一、结构化程序
（3）循环结构
■当循环：首先判断条件是否成立，若成立，执行要循环的一组操作再
Dim X As Single X = Val(InputBox("输入一个数")) If X > =0 Then Print “Abs(x)=”; x Else Print “Abs(x)=”; -x EndIf
9
工程训练中心

二、选择结构
IIf函数
用于执行简单判断及相应处理。 格式：IIf(条件，值1，值2) 功能：当“条件”为真时，函数值为值1，否则，函数值为值2。 说明： ⑴”条件“是逻辑表达式或关系表达式； (2) IIf函数与If…Then…Else的执行机制类似； If…Then…Else IIf函数 如： if a>b then max=a 等价于 max=IIf(a>b，a，b) else max=b endif
11
工程训练中心

二、选择结构
2、多分支结构条件语句
条件1 True False
条件2
语句块1 True
False
条件n 语句块2 True 语句块n
False
语句块n+1
下一条语句
Hale Waihona Puke 12工程训练中心
二、选择结构
2、多分支结构条件语句 例： 商店售货，按购买货物的款数给予不同的优惠折扣，，编程计 算购货款数。 解题思路：利用inputbox输入“应付款”，根据其值，折算为“实付款”； 购货不足250元，无折扣； 购货满250元，不足500元，减价5％； 购货满500元，不足1000元，减价7.5％； 购货满1000元，不足2000元，减价10％； 购货满2000元，减价15％；
Visual Basic 程序设计教程
第十讲 选择结构
内蒙古科技大学工程训练中心 韩 艳

主要内容
• 算法及其描述 • If 语句的使用
2
工程训练中心

一、结构化程序
1、顺序结构 算法的每一操作是按从上到下的线性次序执行的。
A B C
A B C
3
工程训练中心
10
工程训练中心

二、选择结构
2、多分支结构条件语句
格式： If 条件1 Then 语句块1 [Elseif 条件2 Then 语句块2 …… [Elseif 条件n Then 语句块n [Else 语句块n+1 ] End If ⑴条件语句中的“条件”不但可以是逻辑表达 式 或关系表达式，还可以是数值表达式； ⑵依次测试条件，直到找到一个为True的条件， 执行相应的语句块。如果测试条件都不是True， 则执行Else后的语句块。
17
工程训练中心

二、选择结构
3、多分支情况语句 例： 从键盘上输入学生成绩，然后在文件框中显示其等级（按5级计分制输 出不及格、及格、中等、良好、优秀） 解题思路：利用inputbox输入成绩，根据其百分制成绩转换为5级制成绩； 0－59：不及格； 60－69：及格； 70－79：中等； 80－89：良好； 90－100：优秀；
20
工程训练中心

二、 选择结构
3、多分支情况语句 使用举例： 若变量x的值为1、3、5、7，则Select Case语句使用如下： Select case x case 1 case 3 case 5 case else End select „表示当x＝1时应执行的语句 „表示当x＝3时应执行的语句 „表示当x＝5时应执行的语句 „表示当x不等于1、3、5（即x＝7）时应执行的语句 print “x=1” print “x=3” print “x=5” print “x=7”