《计算机语言VBCH04》由会员分享，可在线阅读，更多相关《计算机语言VBCH04（86页珍藏版）》请在金锄头文库上搜索。
1、中国石油大学（北京）计算机系Visual BasicVisual Basic程序设计程序设计 第第4章章 选择结构程序设计选择结构程序设计1第第4章章 选择结构程序设计选择结构程序设计4.1 选择结构程序的概念选择结构程序的概念4.2 条件表达式条件表达式4.3 单条件选择语句单条件选择语句IF 4.4 多分支条件选择语句多分支条件选择语句Select Case4.5 使用计时器控件使用计时器控件4.6 提供简单项选择择的控件提供简单项选择择的控件24.1 选择结构程序设计的概念选择结构程序设计的概念v语句的功能语句的功能l执行运算执行运算 控制程序流程控制程序流程v在在VB中，有三种结构可以
2、控制程序的流中，有三种结构可以控制程序的流程，分别是程，分别是顺序结构顺序结构，选择结构选择结构和和循环结循环结构构。3v在在VB中，实现选择结构的语句有：中，实现选择结构的语句有：If.Then.Else、If.Then.ElseIf、Select Case语句。语句。l其功能都是根据其功能都是根据表达式表达式的值有选择地执行一组的值有选择地执行一组语句。语句。4第第4章章 选择结构程序设计选择结构程序设计4.1 选择结构程序的概念选择结构程序的概念4.2 条件表达式条件表达式4.3 单条件选择语句单条件选择语句IF 4.4 多分支条件选择语句多分支条件选择语句Select Case4.5
3、使用计时器控件使用计时器控件4.6 提供简单项选择择的控件提供简单项选择择的控件5v4.2 条件表达式条件表达式l关系运算符与关系表达式关系运算符与关系表达式l布尔运算符与布尔表达式布尔运算符与布尔表达式条件表达式的取值为布尔值：条件表达式的取值为布尔值： 真真(True) 和假和假(False)64.2.1 关系运算符与关系表达式关系运算符与关系表达式v关系运算符是用来比较两个运算量之关系运算符是用来比较两个运算量之间的关系间的关系7VB提供的关系运算符有：提供的关系运算符有：运算符运算符含义含义例子例子结果结果小于小于15+1020False=小于或等于小于或等于10大于大于1020Fal
4、se=大于或等于大于或等于“This”=“That”True=等于等于“This” =“That”False不等于不等于“This”“That”True关系表达式是指用关系运关系表达式是指用关系运算符将两个表达式连接起算符将两个表达式连接起来的式子来的式子 假设关系成立，结果假设关系成立，结果为为True，假设关系不成，假设关系不成立，结果为立，结果为False。8v4.2 条件表达式条件表达式l关系运算符与关系表达式关系运算符与关系表达式l布尔运算符与布尔表达式布尔运算符与布尔表达式9表表4-2 布尔运算符布尔运算符 运算符运算符 名名 称称 例例 子子说说 明明NotNot非非Not (1
5、 0)Not (1 0)值为值为：FalseFalse，由真，由真变变假或由假假或由假变变真，真，进进行取行取“反反”操作操作AndAnd与与(4 5) And (3 5) And (3 5) Or (3 5) Or (3 4)值为值为：TrueTrue，两个，两个表达式中只要有一表达式中只要有一个个值为值为真，真，结结果就果就为为真，只有两个表真，只有两个表达式的达式的值值均均为为假，假，结结果才果才为为假假4.2.2 布尔运算符与布尔表达式布尔运算符与布尔表达式 数学式：数学式： 10X20，用，用VB程序中应表示为：程序中应表示为： 10=x And X20 10=x And X20 1
6、14.2.3 运算符的优先顺序运算符的优先顺序 not 23结果是？结果是？not(23)结果是？结果是？47) or 75 And 53结果是？结果是？Not 5 =5 Or 4*77结果是？结果是？12运算符的优先顺序运算符的优先顺序 在在一一个个表表达达式式中中进进行行多多种种操操作作时时，VB会会按按一一定定的的顺顺序序进进行求值，称这个顺序为运算符的优先顺序。行求值，称这个顺序为运算符的优先顺序。表表4-4 运算符的优先顺序运算符的优先顺序优先顺序运算符类型运算符1算术运算符算术运算符（指数运算）2（负数）3*、/（乘法和除法）4（整数除法）5Mod（求模运算）6+、（加法和减法）7
7、字符串运算符字符串运算符&（字符串连接）8关系运算符关系运算符=、=9布尔运算符布尔运算符Not10And11Or优先顺序运算符类型运算符1算术运算符算术运算符（指数运算）2（负数）3*、/（乘法和除法）4（整数除法）5Mod（求模运算）6+、（加法和减法）7字符串运算符字符串运算符&（字符串连接）8关系运算符关系运算符=、=9布尔运算符布尔运算符Not10And11OrNot 5 3 And 6 * 2 = 10 + 2例例42判断某个年份是闰年的根据是年判断某个年份是闰年的根据是年份满足下述条件之一。份满足下述条件之一。1能被能被4整除，但不能被整除，但不能被100整除的年整除的年份都是闰
8、年份都是闰年2能被能被100整除，又能被整除，又能被400整除的年整除的年份都是闰年份都是闰年设变量设变量y表示年份，那么表示年份，那么.14判断判断y是否满足条件是否满足条件(1)：y Mod 4 = 0 And y Mod 100 0判断判断y是否满足条件是否满足条件(2)：y Mod 100 = 0 And y Mod 400 = 015举例举例根据给定条件，列出表达式根据给定条件，列出表达式 例例1：用人单位招聘秘书：年龄小于：用人单位招聘秘书：年龄小于40岁，女性，学历专科岁，女性，学历专科或本科。写成条件表达式：或本科。写成条件表达式： 年龄年龄= 450)t2 = (s1 = 8
9、8 And s2 = 88 And s3 = 88 And s4 = 88 And s5 = 88)t3 = (s1 = 95 And s2 = 95 And s3 = 95 And s4 = 80 And s5 = 80)18第第4章章 选择结构程序设计选择结构程序设计4.1 选择结构程序的概念选择结构程序的概念4.2 条件表达式条件表达式4.3 单条件选择语句单条件选择语句IF 4.4 多分支条件选择语句多分支条件选择语句Select Case4.5 使用计时器控件使用计时器控件4.6 提供简单项选择择的控件提供简单项选择择的控件19单分支结构单分支结构1. IfThen语句语句(单分支结
10、构单分支结构) If Then 语句块语句块 End If 或或 If Then 可以是关系表达式、布尔表达式或数可以是关系表达式、布尔表达式或数值表达式非值表达式非0值为真，值为真，0为假。为假。20举例举例:两个数两个数x和和y，比较它们的大小，比较它们的大小，使得使得x大于大于y。 If xy Then t=x x=y y=t End If 或或 If xy Then t=x: x=y: y=t tyx两个数交换过程21双分支结构双分支结构If If Then Then 1ElseElse 2End IfEnd If三个数比较大小22双分支结构双分支结构例例4-3输入输入X，计算，计算Y
11、的值，其中的值，其中23x = Val(Text1.Text)If x = 0 Then y = 1 + x Else y = 12 * xEnd IfText2.Text = y24例例44学校对学习成绩优良的学生学校对学习成绩优良的学生进行奖励，获奖的条件如下：进行奖励，获奖的条件如下：1所考所考5门课的总分超过门课的总分超过450。2每门课的成绩都在每门课的成绩都在88分以上分以上3前前3门主课的成绩都在门主课的成绩都在95分以上，分以上，其他两门的成绩都在其他两门的成绩都在80分以上分以上25t1 = (s1 + s2 + s3 + s4 + s5 = 450)t2 = (s1 = 8
12、8 And s2 = 88 And s3 = 88 And s4 = 88 And s5 = 88)t3 = (s1 = 95 And s2 = 95 And s3 = 95 And s4 = 80 And s5 = 80)26If t1 Or t2 Or t3 Then Print 可以获奖可以获奖Else Print 不能获奖不能获奖End If27v设计程序：设计程序：v 1.身体质量指数身体质量指数BMI是衡量身体健康与是衡量身体健康与否的标准之一。科学家经过大量的统计、分析，否的标准之一。科学家经过大量的统计、分析，推导出计算公式为：推导出计算公式为：BMI=w/(hh)，其中，其中
13、w表示体重单位为千克，表示体重单位为千克，h表示身高单表示身高单位为米。一般认为其值在位为米。一般认为其值在20至至25之间为之间为“健康，否那么认为健康，否那么认为“欠健康。编写程序，欠健康。编写程序，输入某个人的身高和体重，判断并输出他她输入某个人的身高和体重，判断并输出他她健康与否。健康与否。v 2.输入某同学的身高、体重，换算成其标准输入某同学的身高、体重，换算成其标准体重。如果体重已超过标准体重，那么给他建体重。如果体重已超过标准体重，那么给他建议如议如“你该运动哟；如果没有那么恭喜你该运动哟；如果没有那么恭喜他！如他！如“嗯嗯!标准身材标准身材!)284.3.2 IIF函数函数vI
14、If函数的语法结构为：vIIf(条件表达式,真局部,假局部)vx = Val(text1.Text)vy = IIf(x = 0, 1 + x, 1 - 2 * x)v相当于：？If x=0 then y=1+x else y=1-2*x294.3.4 If语句的嵌套语句的嵌套vIf语句的嵌套是指语句的嵌套是指If或或Else后面的语句后面的语句块中又包含块中又包含If语句。语句。30【举例】【举例】一元二次方程求解一元二次方程求解 D = b * b - 4 * a * c 二次方程求根的判别式二次方程求根的判别式 If a = 0 Then a=0, 不是二次方程不是二次方程 x1 = x
15、2 = Else If D = 0 Then D0，方程有两个实根，方程有两个实根 x1 = (-b + Sqr(D) / (2 * a) x2 = (-b - Sqr(D) / (2 * a) Else x1 = 无实根无实根 a0, D0, 无实根无实根 x2 = x1 End IfEnd If31举例举例根据不同的时间段发出问候语根据不同的时间段发出问候语h = Hour(Time) If h 12 Then Print “上午好！上午好！Else If h 18 Then Print 下午好！下午好！ Else Print 晚上好！晚上好！ End IfEnd If32设计一程序设计一
16、程序 33例例4-8输入输入w，计算，计算x的值的值If w = 50 Then x = 0.25 * wElse If w = 100 Then x = 0.25 * 50 + 0.35 * (w - 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) End IfEnd If34例例4-9输入输入x，计算，计算y的值的值Y=X (x1000)0.95X (1000x2000)0.9X (2000x3000)0.85X (3000x5000)0.8X (x5000)35v程序运行界面如以下图。程序运行界面如以下图。【思考与练习【思考与练
17、习1】36v计算个人所得锐计算个人所得锐v 0 1200：0%v 12001700：5%v 17003200：10%v 32006200：15%v 620021200：20%v 21200以上：以上：25%【思考与练习【思考与练习2】37补充：算法的概念补充：算法的概念 v简单地说，算法就是解决问题的方法和步简单地说，算法就是解决问题的方法和步骤。骤。v程序设计依赖于算法，算法是程序的灵魂程序设计依赖于算法，算法是程序的灵魂384.3.4 If语句的嵌套语句的嵌套2ElseIf语句语句v语法结构为：语法结构为：If 条件1 Then 语句序列1ElseIf 条件2 Then 语句序列2 .El
18、se 其他语句序列End If39使用使用ElseIf语句语句v改写改写例例4-9If x 1000 Then y = xElseIf x 2000 Then y = 0.95 * xElseIf x 3000 Then y = 0.9 * xElseIf x 5000 Then y = 0.85 * xElse y = 0.8 * xEnd If40使用使用ElseIf语句语句v例例 百分制成绩百分制成绩mark，显示对应的五级制成绩，显示对应的五级制成绩vIf mark 60 Then v Print 不及格不及格 vElseIf mark 70 Then v Print 及格及格 vEl
19、seIf mark 80 Then v Print 中中 vElseIf mark 90 Then v Print 良良 vElse v Print 优优 vEnd If 41第第4章章 选择结构程序设计选择结构程序设计4.1 选择结构程序的概念选择结构程序的概念4.2 条件表达式条件表达式4.3 单条件选择语句单条件选择语句IF 4.4 多分支条件选择语句多分支条件选择语句Select Case4.5 使用计时器控件使用计时器控件4.6 提供简单项选择择的控件提供简单项选择择的控件424.4.1 Select Case结构与语法结构与语法Select Case 测试条件测试条件 Case 表
20、达式列表表达式列表1语句块语句块1 Case 表达式列表表达式列表2语句块语句块2 Case Else语句块语句块n+1End Select434.4.1 Select Case结构与语法结构与语法 v表达式表有三种方法可以确定设定值v(1)一组值(用逗号隔开)。例如：v Case 1,3,5 v(2)表达式1 TO 表达式2。例如：v Case 60 To 80v(3)Is关系式。例如：v Case Is5 在小于5范围取值44Select Case结构举例结构举例1用用Select Case语句实现语句实现例例4-9输入输入x，计算计算y的值的值Y=X (x1000)0.95X (1000
21、x2000)0.9X (2000x3000)0.85X (3000x5000)0.8X (x5000)45Select Case结构举例结构举例1Select Case x Case Is 1000 y = x Case Is 2000 y = 0.95 * x Case Is 3000 y = 0.9 * x Case Is = 90 Print 优优 Case Is = 80 80 To 89 Print 良良 Case 70 To 79 Print 中中 Case 60 To 69 Print 及格及格 Case Else Print 不及格不及格End Select47Select C
22、ase结构举例结构举例3v例例变量变量strC中存放了一个字符，判断该字符中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。是字母字符、数字字符还是其他字符。vSelect Case strCvCase a To z，A To ZvPrint strC + 是字母字符是字母字符vCase 0 To 9vPrint strC + 是数字字符是数字字符vCase ElsevPrint strC + 其他字符其他字符vEnd Select48v用用IF语句结构实现语句结构实现: If Ucase(strC) = A And Ucase (strC) = 0 And strC = 9 Th
23、en Print strC + 是数字字符 Else Print strC + 其他字符 End If49Select Case结构举例结构举例4v例例4-12根据月份和票张数决定票价的根据月份和票张数决定票价的优惠率。旺季优惠率。旺季7-9，票张数，票张数20，15%;票张数票张数20,5%;淡季淡季15，10、11月份，票张数月份，票张数20，30%;票张数票张数20,20%;其他情况一律优惠其他情况一律优惠10%50Select Case结构的应用结构的应用 Select Case m Case Is = 5, 10, 11 If n 20 Then r = 20 Else r = 30
24、 Case 7 To 9 If n 20 Then r = 5 Else r = 15 Case Else r = 10End Select51Select Case结构的应用结构的应用 例例4-9由计算机来当一年级的算术老师，要求给出一系列的110的操作数和运算符，学生输入该题的答案，计算机根据学生的答案判断正确与否，当结束时给出成绩。52上次内容回忆上次内容回忆1.关系运算符、逻辑运算符关系运算符、逻辑运算符l = = lNot And Or2.条件语句条件语句If3.多分支选择结构多分支选择结构Select Case53IF语句语句IfIf ThenThen 1ElseElse 2End
25、 IfEnd If 语句块语句块54Private Sub Form_Click()a = Val(InputBox(输入第一个数输入第一个数) b = Val(InputBox(输入第二个数输入第二个数) c = Val(InputBox(输入第三个数输入第三个数)If a b Then 如果如果ab那么交换那么交换a,b t = a a = b b = t End IfIf a c Then t = a: a = c: c = t 如果如果ac那么交换那么交换a,cIf b c Then t = b: b = c: c = t 如果如果bc 那么交换那么交换 b,cEnd Sub55IF的
26、嵌套的嵌套h = Hour(Time) If h 12 Then Print “上午好！上午好！Else If h 18 Then Print 下午好！下午好！ Else Print 晚上好！晚上好！ End IfEnd If56ElseIf语句语句If 条件1 Then 语句序列1ElseIf 条件2 Then 语句序列2 .Else 其他语句序列End If574.5 使用计时器控件使用计时器控件(Timer)v用于定时的，当到达预定时间时，系统会用于定时的，当到达预定时间时，系统会自动触发其自动触发其Timer事件事件v计时器控件在设计时显示为一个小时钟图计时器控件在设计时显示为一个小时
27、钟图标，而在运行时那么不可见标，而在运行时那么不可见58Timer控件使用举例控件使用举例1【例【例1】电子秒表电子秒表594.5 使用计时器控件使用计时器控件(Timer)2. 常用属性常用属性 Enabled属性：属性： True：计时；：计时；False停止停止计时计时 Interval属性：设置两个属性：设置两个Timer事件之间事件之间的时间间隔，其值以毫秒为单位的时间间隔，其值以毫秒为单位3. 事件事件 计时器控件只响应一个计时器控件只响应一个Timer事件。计时事件。计时器控件对象在间隔了一个器控件对象在间隔了一个Interval设定时设定时间后，便触发一次间后，便触发一次Tim
28、er事件事件60Timer控件使用举例控件使用举例2【例【例2】不断闪烁的字不断闪烁的字【例子】可以用【例子】可以用Timer控件制作简单的动画控件制作简单的动画程序程序614.6.1 选项按钮选项按钮 v又称单项选择按钮又称单项选择按钮(OptionButton) 62v一组单项选择钮控件可以提供一组彼此相一组单项选择钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选互排斥的选项，任何时刻用户只能从中选择一个选项，被选中工程左侧圆圈中会出择一个选项，被选中工程左侧圆圈中会出现一黑点。现一黑点。631Caption：文本标题：文本标题2Value True: 单项选择钮被选定单项选择
29、钮被选定 False: 单项选择钮未被选定单项选择钮未被选定主要属性：主要属性：4Style属性属性 当值为当值为0时，标准样式；当值为时，标准样式；当值为1时，图时，图形样式。形样式。64v【举例【举例1】单项选择按钮程序举例】单项选择按钮程序举例65Private Sub Optionl_Click() Text1.FontName = “黑体黑体End SubPrivate Sub Option2_Click()Text1.FontName = “楷体楷体_GB2312End Sub单项选择按钮的常用事件单项选择按钮的常用事件66【举例【举例2】单项选择按钮程序举例】单项选择按钮程序举例
30、67【举举例例3】控制文本框中文本的字体变化。】控制文本框中文本的字体变化。68Private Sub cmdOk_Click() If optFont1 = True Then Text1.FontName = 宋体宋体 If optFont2 = True Then Text1.FontName = 隶书隶书 If optFont3 = True Then Text1.FontName = 幼圆幼圆End SubPrivate Sub Form_Load() Text1.FontName = 宋体宋体 Text1.FontSize = 12 optFont1 = TrueEnd SubIf
31、 optFont1 = True Then Text1.FontName = 宋体宋体If optFont2 = True Then Text1.FontName = 隶书隶书If optFont3 = True Then Text1.FontName = 幼圆幼圆69【举举例例4 4 】输入两个运算数和运算符】输入两个运算数和运算符(+、-、*或或/)，组成算式并计算结果，组成算式并计算结果70Private Sub Command1_Click() a = Val(Text1.Text): b = Val(Text2.Text) Select Case True Case Option1.
32、Value + 运算运算 t = a + b Case Option2.Value - 运算运算 t = a - b Case Option3.Value * 运算运算 t = a * b Case Option4.Value / 运算运算 t = a / b End SelectEnd Sub714.6.2 复选框复选框 复选框复选框CheckBox一组复选框控件可一组复选框控件可以提供多个选项，它们彼此独立工作，所以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，选择以用户可以同时选择任意多个选项，选择某一选项后，该控件将显示某一选项后，该控件将显示 ,而去除此而去除此选
33、项后选项后消失。消失。72vValue属性属性v0：Unchecked未被选定未被选定v1：Checked选定选定v2：Grayed灰色，不可用灰色，不可用复选框的常用事件复选框的常用事件73复选框程序举例复选框程序举例【举举例例1】程序运行界面如下：】程序运行界面如下：74Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubFontItalic斜体：斜体：75单项选择钮和复选框综合举例单项选择钮和复选框综合举例【举例
34、【举例2】用单项选择钮和复选框】用单项选择钮和复选框设置文本框的字体设置文本框的字体76Sub Option1_Click()Text1.FontName = 宋体宋体“End Sub Sub Option2_Click()Text1.FontName = 黑体黑体“End Sub End Sub End Sub 77单项选择钮和复选框综合举例单项选择钮和复选框综合举例v思考与练习思考与练习编程实现如以下图所示功能编程实现如以下图所示功能78Private Sub Command1_Click() Dim str As String, link As String link = Chr(13)
35、 & Chr(10) If Option1.Value = True Then str = 计算机专业计算机专业 Else str = 机电专业机电专业 End If str = str & 选择了：选择了： & link If Check1.Value = 1 Then str = str & link & 高等数学高等数学 If Check2.Value = 1 Then str = str & link & 大学英语大学英语 If Check3.Value = 1 Then str = str & link & 程序设计程序设计 MsgBox str, vbYesNo, 采集信息采集信息
36、End Sub79实考试题精解实考试题精解1. 在窗体上画一个名称为在窗体上画一个名称为Comand1的命令按钮和两个名称分别为的命令按钮和两个名称分别为Text1,Text2的文的文本框，然后编写如下事件过程：本框，然后编写如下事件过程：Private Sub Command1_Click()Select Case nCase 1 to 20x=10Case 2,4,6x=20Case Is10C)Case Is10 And Is1081实考试题精解实考试题精解3. 在窗体上画一个名称为在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程：的命令按钮，然后编写如下事件过程：
37、Private Sub Command1_Click()x=InputBox(Input)Select Case xCase 1,3Print 分支分支1 Case Is4 Print 分支分支2 “Case Else Print Else分支分支 “ End SelectEnd Sub程序运行后，如果在输入对话框中输入程序运行后，如果在输入对话框中输入2，那么窗体上显示的是，那么窗体上显示的是。A)分支分支1 B)分支分支2 C)Else分支分支 D)程序出错程序出错(2004.9)82实考试题精解实考试题精解4.在窗体上画一个名称为在窗体上画一个名称为Timer1的计时器的计时器控件，要求
38、每隔秒发生一次计时器事件，控件，要求每隔秒发生一次计时器事件，那么以下正确的属性设置语句是那么以下正确的属性设置语句是。B)Timer1.Interval=5C) Timer1.Interval=50D) Timer1.Interval=50083实考试题精解实考试题精解5.在窗体上画一个文本框和一个计时器控件，名称分别是在窗体上画一个文本框和一个计时器控件，名称分别是Text1和和Timer1，在属性窗口把计时器的，在属性窗口把计时器的Interval属性设置为属性设置为1000,Enabled属性设属性设置为置为False。程序运行后，如果单击命令按钮，那么每隔一秒钟在文本框。程序运行后，
39、如果单击命令按钮，那么每隔一秒钟在文本框中显示一次当前时间。以下是实现上述操作的程序：中显示一次当前时间。以下是实现上述操作的程序：Private Sub Command1_Click()End SubPrivate Sub Timer1_Timer ()Text1.text=TimeEnd Sub在填空处应填入的内容是。在填空处应填入的内容是。 A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False84实考试题精解实考试题精解6. 在窗体上画两个单项选择按钮，名称分别是在窗体上画两个单项选择按钮，名称分别是Option1,O
40、ption2,标题分别为标题分别为“宋体和宋体和“黑体；一个复选框，名称为黑体；一个复选框，名称为Check1,标题为标题为“粗体；一个文本框，名称为粗体；一个文本框，名称为Text1，Text属性为属性为“改改变文字字体。要求程序运行时，变文字字体。要求程序运行时，“宋体单项选择按钮和宋体单项选择按钮和“粗粗体复选框被选中，那么能够实现上述要求的语句序列是体复选框被选中，那么能够实现上述要求的语句序列是A)Option1.Value=TrueCheck1.Value=FalseB) Option1.Value=True Check1.Value=TrueC) Option2.Value=FalseCheck1.Value=TrueD) Option1.Value=True Check1.Value=185实考试题精解实考试题精解7. 当一个复选框被选中时，它的当一个复选框被选中时，它的Value的的属性的值是属性的值是 A)3 B)2 C)1 D)086
