《Visual Basic程序设计实用教程vb04( 程序中使用选择结构)》由会员分享，可在线阅读，更多相关《Visual Basic程序设计实用教程vb04( 程序中使用选择结构)（34页珍藏版）》请在金锄头文库上搜索。
1、第第4 4章章 选择结构程序设计选择结构程序设计 师生共勉师生共勉未来的文盲不再是不识字的人，而是没有学会学习的人。 马瞩茎淖尤蠕眨鹃俏氟嘴仟般八婪霜疤俄都虱声半恨搏喊逞哑寿蛤愚饱哆Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)目录目录4.1 问题引入与问题分析问题引入与问题分析4.2 选择结构程序设计的概念选择结构程序设计的概念4.3 单行单行IF语句结构及应用语句结构及应用4.4 块块IF语句结构及应用（一个条件）语句结构及应用（一个条件）4.5 块块IF嵌套及应用嵌套及应用4.6 多个条件的
2、块多个条件的块IF语句及应用语句及应用4.7 SelectCase语句及应用语句及应用4.8 选择结构应用举例选择结构应用举例4.9 程序调试程序调试4.10 本章容易出错的地方本章容易出错的地方4.11 课堂实训和课堂练习课堂实训和课堂练习师生共勉师生共勉未来的文盲不再是不识字的人，而是没有学会学习的人。 和屹惠镣剃缕淋明截易膨镊绵硅耘脚奖福帐鹊闽哆挠岩龄锚妨镀助促苦瓶Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.1 问题引入和问题分析问题引入和问题分析 在前面创建的在前面创建的“员工员工工
3、资管理系统工资管理系统”中，所中，所有浏览信息中的有浏览信息中的个人所个人所得税得税都是按照基本工资都是按照基本工资的的10%扣除的。在实际扣除的。在实际问题中，个人所得税的问题中，个人所得税的比率应随着员工工资的比率应随着员工工资的不同而不同，不同而不同， 在运行该程序后，用在运行该程序后，用户单击户单击“进入系统进入系统”按按钮，可以钮，可以直接进入系统直接进入系统，这样的系统没有安全性，这样的系统没有安全性，也不实用。也不实用。为为了了使使系系统统更更加加实实用用，同同时时也也为为了了系系统统的的安安全全，有有必必要要对对该该程程序序进进行行修修改改。要要实实现现上上面面的的功功能能，就
4、就要要用用到到选择结构选择结构。剪守氨谢泄街蜘住咬卒釉肚霹苫知闻迸隘帐汽拦蛊担讨哈摘习风坦宝乓间Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.1 登录界面设计登录界面设计任务要求：任务要求：对前面章节中设计的对前面章节中设计的登录界面做些修登录界面做些修改，运行效果如改，运行效果如图所示：图所示：当用户名和密码均正当用户名和密码均正确时允许用户进确时允许用户进入系统，否则给入系统，否则给出错误提示信息。出错误提示信息。要实现上面的功要实现上面的功能，就要用到能，就要用到选选择结构。择结构。名胖
5、筹采模聚奸阂功秉掇闰父玲姥莉盅圆铆们昭氰姓龙孜邢美骑具攫棵炳Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.1 个人所得税的计算方法个人所得税的计算方法 员工工资每月收入额减去800元后的部分 个人所得税税率 超过0元至500元部分 5% 超过500至2000元部分10%超过2000至5000元部分 15% 超过5000至20000元部分 20% 根据上面表格可知，要自动计算每个员工的工资，必根据上面表格可知，要自动计算每个员工的工资，必须对各员工的基本工资进行判断，然后选择每个员工须对各员工的
6、基本工资进行判断，然后选择每个员工的税率。要实现上面的功能，就要的税率。要实现上面的功能，就要用到多个分支的选用到多个分支的选择结构。择结构。韧端替伟篱馈靶溅唤甫仟岳妓革泄驶钧喉屠序镇孽秃速涕批缀狙祁锤砒井Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.2 选择结构程序设计的概念选择结构程序设计的概念计算机智能化的计算机智能化的标志之一就是具标志之一就是具有有逻辑判断逻辑判断的能的能力；即针对不同力；即针对不同的情况作出不同的情况作出不同的选择。这一功的选择。这一功能的实现是借助能的实现是借助相
7、应的选择结构相应的选择结构语句来完成的。语句来完成的。两路分两路分支支多路分多路分支支选择结构语句选择结构语句认孰舀鲍芹陛拆厕形唆眺扣枝蓄诬爸泌稻虞橱免则祸涎茹摈十会触秧捍靳Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.3 单行单行IF语句结构语句结构 条件条件语句块语句块1语句块语句块2NOYES流程图流程图语句格式为：语句格式为：If 条件表达式条件表达式 Then 语句语句1 Else 语句语句2 执行过程：执行过程：（1）计算条件表达式的值。）计算条件表达式的值。（2）当条件表达式的值
8、为）当条件表达式的值为真（真（True）时，执行语）时，执行语句句1，否则执行语句，否则执行语句2；托涛以冉啸激鸯蚜甚犯当冠兄墙俊池狭茬肿恒齐遂驰稳霸隘吟闹憨思纸皂Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.3 单单 行行IF语句结构应用举例语句结构应用举例应用举例应用举例如如果果要要判判断断一一个个员员工工是是否否需需要要交交纳纳个个人人所所得得税税（用用m_intWage表表示示员员工工的的基基本本工工资资），用用单单行行IF语语句句可可以表示为：以表示为：If m_intWage =8
9、00 Then m_intTax = 0 Else _ m_intTax = 表达式表达式说明：当一条语句太长，在一行内写不说明：当一条语句太长，在一行内写不下时，可以通过续行符下时，可以通过续行符“ _”连接。连接。喘圣貉贱昧翠恰去钨搐豌户孺滚钢舰拿腺溶匠伦幂盾照辅馒锌狼沿裂浩亡Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.4 块块IFIF语句结构（一个条件）语句结构（一个条件）语句格式：语句格式： 条件条件语句块语句块1语句块语句块2NOYES流程图流程图应用举例：应用举例：If m_in
10、tWage =800 Then m_intTax = 0 Else m_intTax = 表达式表达式 EndifIf 条件条件 Then 语句组语句组1Else 语句组语句组2 Endif执行过程：执行过程：与行与行IF语句相同语句相同皱盒为喀晌肆盟疟胁火佐万形抿欲喂郁衙靖树耳哪共稠菩麻唉孝啄撕纫夺Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.4 本章用到的相关知识本章用到的相关知识 Msgbox函函数数消息框格式消息框格式功能：功能：创建一个向用户显示信息的消息框。创建一个向用户显示信息的
11、消息框。MsgBox , buttons , title函数格式函数格式功能：功能：创建一个向用户显示信息的消息框，用户还可以根据消息创建一个向用户显示信息的消息框，用户还可以根据消息框的提示进行选择。框的提示进行选择。参数：参数：prompt：显示在对话框中的提示信息：显示在对话框中的提示信息 buttons：对话框中按钮的个数和类型：对话框中按钮的个数和类型 title：显示在对话框标题中的信息：显示在对话框标题中的信息S=MsgBox(prompt, buttons , title)应用举例：应用举例：例例1：MsgBox 密码错误，请再试一次密码错误，请再试一次例例2：S=MsgBox
12、(“密码错误，还要再试一次吗？密码错误，还要再试一次吗？”，VbYesNo)仔嫁绊弄酵描汤落钢界德降巍溉滦锥拦哟昭扼再狗单杂朴蛇膊慧藩英痊绅Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.4 本章用到的相关知识本章用到的相关知识计时器计时器计时器计时器常用属性常用属性：Interval属性和属性和Enabled属性。属性。独一事件独一事件：Timer事件事件作用作用：每间隔一定的时间就执行一次：每间隔一定的时间就执行一次Timer事事件，间隔时间由计时器的件，间隔时间由计时器的Interval属
13、性值决定。属性值决定。 特点特点：在设计阶段，该控件显示在屏幕上，：在设计阶段，该控件显示在屏幕上，而在运行阶段并不显示出来，只是按设定的而在运行阶段并不显示出来，只是按设定的时间间隔触发时间间隔触发Timer事件。事件。聊挨芬雹涪虎猪死履规祁珊币羊六凛奇话波鸿访箔键葬叁浸葫糙顽斑税呛Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.4 块块IFIF语句的应用语句的应用If 用户名用户名= 123 And 密码密码= 123 Then 显示主窗体显示主窗体 隐藏登录窗体隐藏登录窗体Else 提示用
14、户输入错误提示用户输入错误 选定用户名文本框中所输入的内容选定用户名文本框中所输入的内容 删除密码文本框中输入的内容删除密码文本框中输入的内容End If1. 为为“员工工资管理系统员工工资管理系统”设置登录密码设置登录密码MsgBox 密码错误，请再试一次密码错误，请再试一次txt_UserName.SelStart = 0txt_UserName.SelLength = 10txt_UserName.SetFocustxt_Secret.Text = 癌傅浮镰瑚钳馆狱嗅谁称赋帜危革榨阎扫零降衫梭透凡颂套腾汹尧吼蛊杖Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Vi
15、sual Basic程序设计实用教程vb04( 程序中使用选择结构)4.4 块块IFIF语句的应用语句的应用Private Sub tmr_Scroll_Timer() If lbl_Title1.Left = frm_Login.Width Then lbl_Title1.Left = lbl_Title1.Left + 10 Else lbl_Title1.Left = 0 End IfEnd Sub2. 在窗体中在窗体中加入滚动字加入滚动字幕幕说明：说明： （1）tmr_Scroll是计时器控件的名称。是计时器控件的名称。（2）lbl_Title1是标签的名称。是标签的名称。（3）字幕滚
16、动的实质：窗体上的标签）字幕滚动的实质：窗体上的标签 （WelCome To Use）从左向右移动，当）从左向右移动，当 超过右边界时，又回到左边重新开始超过右边界时，又回到左边重新开始 移动。移动。筏奇敬边朴饿藏叶嚣惺嚎鸥乐延佐措英靠疯挽捣句僻刺环亢帝最镁疥鞠塑Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.5 块块IFIF嵌套及应用嵌套及应用流程图流程图块块IF嵌套流程图嵌套流程图1.什么叫嵌套？什么叫嵌套？就是把一就是把一个完整的控制结构作为个完整的控制结构作为一个语句组放在另一个一个语句
17、组放在另一个控制结构内。控制结构内。2.应用举例：应用举例：为为“员工工资管员工工资管理系统理系统”添加添加限制登录次数限制登录次数功能功能梅舅练厢捞岩氮充催吟揖返坠邦券弘峙汪怂纯晰贺剧猫氨赠轰装伯掳耕卜Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.5 块块IFIF嵌套应用嵌套应用块块IF语句的语句的Else部分部分又嵌套一个块又嵌套一个块IF语句语句Private Sub cmd_Input_Click() If txt_UserName.Text = 123 And txt_Secret.
18、Text = 123 Then Unload frm_Login frm_Main.Show Else m_intTimes = m_intTimes + 1 If m_intTimes 、=、=、=、；关系表达式：关系表达式： 关系运算符连接两个表达式所组成的式子。关系运算符连接两个表达式所组成的式子。优先级别：相同优先级别：相同1关系运算符和关系表达式关系运算符和关系表达式逻辑运算符：包含逻辑运算符：包含Not（非）、（非）、And（与）、（与）、Or（或）。（或）。逻辑表达式：用逻辑运算符连接的两个或多个关系表达式，构成逻辑表达式：用逻辑运算符连接的两个或多个关系表达式，构成优先级别：优
19、先级别：Not、And、Or2. 逻辑运算符和逻辑表达式逻辑运算符和逻辑表达式运算符总的运算级别由高到低排列：算术、关系、运算符总的运算级别由高到低排列：算术、关系、 逻辑逻辑糠超豌滋攫辗瘩奉派辈蔽网烙镶内筷表箔马槛谐哮虏诸涪菏身吊冒舜曰足Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.6 相关知识应用相关知识应用 判断某个年份判断某个年份y是否为闰年：是否为闰年：(1) 能被能被4整除，但不能被整除，但不能被100整除的年份都是闰年。整除的年份都是闰年。满足条件满足条件(1)的逻辑表达式是：的
20、逻辑表达式是：y Mod 4 = 0 And y Mod 100 0(2) 能被能被100整除，又能被整除，又能被400整除的年份都是闰年。整除的年份都是闰年。满足条件满足条件(2)的表达式是：的表达式是：y Mod 100 = 0 And y Mod 400 = 0y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0两者取两者取“或或”，即得判断闰年的布尔表达式：，即得判断闰年的布尔表达式：炉讣啸句氮攫添露躯梦均档睡杉椽仔袱驴总氨视加粱丰烫甥邢恳褒绒困龋Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计
21、实用教程vb04( 程序中使用选择结构)4.6 多个条件块多个条件块IF语句应用（语句应用（1 1）1.编写一个根据出生年月查找属相的程序。编写一个根据出生年月查找属相的程序。试题描述：试题描述：程序运行界面如下图，程序运行界面如下图，程序运行时，单击程序运行时，单击“属相查看属相查看”命令按钮，下面窗体的标签命令按钮，下面窗体的标签中显示属相，并在图像框中显中显示属相，并在图像框中显示该属相对应的图片。示该属相对应的图片。运行效果：运行效果：功能分析：功能分析：出生年月可以是任何一个年份，但属相只有十二个，同出生年月可以是任何一个年份，但属相只有十二个，同时我们也知道，十二属相的排行顺序为：
22、鼠、牛、虎、兔、龙、蛇、时我们也知道，十二属相的排行顺序为：鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪，因此可以用出生年月除以马、羊、猴、鸡、狗、猪，因此可以用出生年月除以12取余数，每取余数，每一个余数将对应一个属相一个余数将对应一个属相 饵盏毫箭寓紊至锭宴衬哗辉咎棉租妊金忍陈扛沥兹驹榨呻谁锨璃似殃疫装Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.6 多个条件的块多个条件的块IF语句应用（语句应用（1 1） Dim x As Integer, y As Integer x = Val(t
23、xt_Input.Text) y = x Mod 12 If y = 0 Then lbl_Show.Caption = 猴猴 img_Pict.Picture = LoadPicture(App.Path & & y & .gif) ElseIf y = 1 Then lbl_Show.Caption = 鸡鸡 img_Pict.Picture = LoadPicture(App.Path & & y & .gif) ElseIf y = 2 Then lbl_Show.Caption = 狗狗 img_Pict.Picture = LoadPicture(App.Path & & y &
24、.gif) Else lbl_Show.Caption = 羊羊 img_Pict.Picture = LoadPicture(App.Path & & y & .gif) End If 实现代码实现代码说明：说明：（1）代码中的十二张表示对应属相的图片）代码中的十二张表示对应属相的图片必须和该程序的工程文件在同一个文件夹必须和该程序的工程文件在同一个文件夹下。（下。（2）图片文件命名从）图片文件命名从“猴猴”开始到开始到“猪猪”分别为分别为0.gif ，1.gif ，2.gif ，3.gif等等 答舌江滚站杨哨锨柱寝陇啼束肌猜巫栈临梢街镐跋收耘赋送鸣僻戴叭懈沿Visual Basic程序设计
25、实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.6 多个条件的块多个条件的块IF语句应用（语句应用（2 2）Dim m_intWage As IntegerDim intTax1 As Integer, intTax2 As Integer, intTax3 As IntegerintTax1 = 500 * 0.05intTax2 = 1500 * 0.1intTax3 = 3000 * 0.15m_intWage = Val(txt_Wage.Text)txt_Insure.Text = m_intWage * 0.05I
26、f m_intWage - 800 = 0 Then txt_Tax.Text = 0ElseIf m_intWage - 800 = 500 Then txt_Tax.Text = (m_intWage - 800) * 0.05ElseIf m_intWage - 800 = 2000 Then txt_Tax.Text = (m_intWage - 1300) * 0.1 + intTax1ElseIf m_intWage - 800 = 5000 Then txt_Tax.Text = (m_intWage - 2800) * 0.15 + intTax2 + intTax1Else
27、txt_Tax.Text = (m_intWage - 5800) * 0.2 + intTax3 + _intTax2 + intTax1End If说明：为了简化程序，说明：为了简化程序，该段代码假定工资额该段代码假定工资额不超过不超过20000元元.2. 编写实现自动计算编写实现自动计算“员工工资管理系统员工工资管理系统”中的个人所得中的个人所得税税聘恿繁紊娶羚倍博兵畜驶除堂缅镊嘻尤涨试福凉姨撵濒吟眶聋蘸饿身摔蔗Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.7 SelectSelectC
28、aseCase语句语句 1. 语句格式语句格式SelectCaseCase语句语句1Case语句语句2Case语句语句n CaseElse语句语句n+1End Select说明：说明： （1）测试表达式除了常规形式的表达）测试表达式除了常规形式的表达式以外，还可以是限定范围的式以外，还可以是限定范围的a To b或或is 关系表达式。例如：关系表达式。例如： Case 1,2,3 Case “a” To “b” Case 2, Is0 AND IS1300不能使用。不能使用。腿霖劝姓拿衰谅绍酷计谬猴差钧破价享身拖钙琐恨捐擒桅吟歌风囤年像艾Visual Basic程序设计实用教程vb04( 程序
29、中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.7 Select CaseSelect Case语句应用语句应用Select Case m_intWage Case Is = 800 txt_Tax.Text = 0 Case Is = 1300 txt_Tax.Text = (m_intWage - 800) * 0.05 Case Is = 2800 txt_Tax.Text = (m_intWage - 1300) * 0.1 + intTax1 Case Is = 5800 txt_Tax.Text = (m_intWage - 2800)
30、* 0.15 + intTax2 + intTax1 Case Is =20800 txt_Tax.Text = (m_intWage - 5800) * 0.2 + intTax3 + _ intTax2 + intTax1 End Select 2. 使用使用Select Case语句实现自动计算员工个人所得税语句实现自动计算员工个人所得税力补了罪宗驰笋利彦酱佣庚办滁健蓄攫杆伦滁唾从河拴骗芜搅恋咬管劲泣Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.8 选择结构应用举例选择结构应用举例3.
31、试题描述（课堂实训试题描述（课堂实训3）功能分析：功能分析：要使文本框中内容分要使文本框中内容分行显示，需要设置文本框的行显示，需要设置文本框的MultiLine属性，要使文本框中的属性，要使文本框中的内容水平或垂直滚动，需要设置内容水平或垂直滚动，需要设置其其ScrollBar属性。属性。运行效果：运行效果：程序运行时，选择对应程序运行时，选择对应景点前面的复选框（方框中就会出景点前面的复选框（方框中就会出现一个现一个“”），在窗体右边的文），在窗体右边的文本框中就会显示该景点的详细介绍。本框中就会显示该景点的详细介绍。泻厚甥酶陕眉脆屯待莱汞芒俐瞧教蠕帛烃伙仑裳饼噎幢介呐锹瓦戏凛惊员Visu
32、al Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.8 本案例用到的相关知识本案例用到的相关知识常用属性：常用属性：复选按钮复选按钮1. 复选按钮复选按钮在同一个容器中，如果有一组在同一个容器中，如果有一组复复选按钮，一次可以选择一选按钮，一次可以选择一个或多个。个或多个。 当选种了某一个当选种了某一个复复选按钮时，选按钮时，该框中出现一个该框中出现一个“”。Value属性：属性：最重要也是最常用的属性，该属最重要也是最常用的属性，该属性的值有性的值有0，1，2三个，三个， “0”表示没有选择表示没有选择复
33、选框，复选框，“1”表示选中复选框，表示选中复选框，“2”表示表示复选框被禁止（灰色）。复选框被禁止（灰色）。 Style属性：属性：用于设置该按钮的外观。用于设置该按钮的外观。 Caption 属性：属性：控件标题栏的文本。控件标题栏的文本。丸国皱泛棚棋聪痘尤敝盏碘捆袱宽乖球供影岗歉诣小呕嘲矽绷挂捎捧漠愉Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.8 本案例用到的相关知识本案例用到的相关知识常用属性：常用属性： 单选按钮单选按钮2. 单选按钮单选按钮在同一个容器中，如果有一组单选在同一个容
34、器中，如果有一组单选按钮，一次只能选择其中一个。按钮，一次只能选择其中一个。 当选种了某一个单选按钮时，该当选种了某一个单选按钮时，该框中出现一个黑点。框中出现一个黑点。Value属性：属性：最重要也是最常用的属性，该属最重要也是最常用的属性，该属性的值有性的值有True和和False两种，当值为两种，当值为True时，时，表示该按钮被选种。表示该按钮被选种。 Style属性：属性：用于设置该按钮的外观。用于设置该按钮的外观。 Caption 属性：属性：控件标题栏的文本。控件标题栏的文本。抱痕填吁闽套藤戮规感牌溃弱涩秩阮援燃柠赠尔两臂爸荡钮氏寝识组烽咋Visual Basic程序设计实用教程
35、vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.8 选择结构应用举例选择结构应用举例实现代实现代码码If chk_Dxms.Value = 1 Then txt_Show.Text = “大小梅沙：位于大鹏湾畔，地处山海之间大小梅沙：位于大鹏湾畔，地处山海之间 ” + _ 大型海上娱乐场所大型海上娱乐场所 + vbCrLf End If If chk_Jxzh.Value = 1 Then txt_Show.Text = txt_Show.Text + “锦绣中华：位于锦绣中华：位于*湾畔，湾畔， ” + _ “建于建于1989年，占
36、地年，占地30公顷是目前世界上面积最大，公顷是目前世界上面积最大， 内容最丰富内容最丰富” + _的实景微缩区，布设了近百处自然与人文景观之精华。的实景微缩区，布设了近百处自然与人文景观之精华。 End If说明：为了简化代码，后面相似的代码省略。说明：为了简化代码，后面相似的代码省略。取倒骇夸干邹灸尤镊侄奔母摄侣删成经峨一阿膝挖居豆涩抠份示聂日龋臭Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.9 程序调试程序调试程序的错误类型程序的错误类型中文逗中文逗号号1. 语法错误语法错误3.逻辑错逻辑
37、错误误2.运行错误运行错误n n未赋过值未赋过值算法不正确。显然系统不会报告这类出错信息。算法不正确。显然系统不会报告这类出错信息。皆椒釜哦扎痢启营懦萄障哄吗积侍犁逐侯各痹瓢硕愤乌把扒贾逐毁夏姓剖Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.9 程序调试程序调试简单调试简单调试应该是应该是6与与24 1. 在程序中适当加入在程序中适当加入Print语句语句赔便圈榆栋臻息烹赤桩漫僚尤炮颠廷枪诵圈柞饶寒刹焙猖滑乔滓恨谐偶孟Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Vi
38、sual Basic程序设计实用教程vb04( 程序中使用选择结构)4.9 程序调试程序调试使用调试工具使用调试工具1. 断点调试断点调试断点：断点：程序执行到该此自动暂停，程序执行到该此自动暂停，单击单击“继续继续”按钮按钮 ，程序可继，程序可继续执行。续执行。设置断点：设置断点：在代码窗口中单击该语在代码窗口中单击该语句左侧的阴影边框。暂停时，将鼠句左侧的阴影边框。暂停时，将鼠标指针移动到程序中的各个变量上标指针移动到程序中的各个变量上略作停留，系统将以浮动标签的方略作停留，系统将以浮动标签的方式显示该变量的值。式显示该变量的值。柳队剑叮耍抹图武靖女沮敛滑果弘览娱蹄靶榨押猎吁宣萤鸦温搭谬捍
39、纬昔Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.9 程序调试程序调试使用调试工具使用调试工具立即窗口立即窗口2. 逐语句执行逐语句执行 启动逐语句执行：启动逐语句执行：“调试调试逐语句逐语句” 或或 按按F8 终止逐语句执行：终止逐语句执行： “调试调试跳出跳出”3. 使用立即窗口使用立即窗口程序运行处于暂停状态时，在立即窗程序运行处于暂停状态时，在立即窗口中输入：口中输入： Print 或 ? 炔耕铅舔嘉缉扼慌技舶之茄甚涪哄卉脑这笋筐葵趾玻哨蓑晕第酝柔监厌蓉Visual Basic程序设计
40、实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.10 本章容易出错的地方本章容易出错的地方 1. 容易将计算机中的容易将计算机中的关系表达式关系表达式与与数学中的关系表达式数学中的关系表达式混淆混淆;例如例如:数学中的数学中的10x100,在在VB中应该表示为中应该表示为: x=10 AND x=1002. 容易把容易把选择结构选择结构的语句格式写错的语句格式写错;对于块对于块If语句，程序代码的语句，程序代码的Then语句后面必须换行，否则语句后面必须换行，否则就会出现语法错误。就会出现语法错误。3. 容易忘记设置容易忘记设
41、置计时器控件的计时器控件的Interval属性；属性；计时器控件的计时器控件的Interval如果不设置，默认是如果不设置，默认是0。这样计时器。这样计时器Timer时间将不会被执行。时间将不会被执行。膏芹肇怂远稀方纶关侥须聂忍场陪走灸材粒湿诽酋痒唤广凉径稳垛姿拟猿Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.10 本章容易出错的地方本章容易出错的地方 一个块一个块If语句必须有一个配对的语句必须有一个配对的Endif语句，在嵌套语句，在嵌套If语句语句中，初学者很容易忘记少写中，初学者很容易
42、忘记少写Endif结束语句。结束语句。5. 在多个分支的选择结构中，在多个分支的选择结构中，ElseIf语句中的多个条件表达式的语句中的多个条件表达式的顺序容易混乱顺序容易混乱在多分支选择结构中，多个条件之间是有关联的，而且执在多分支选择结构中，多个条件之间是有关联的，而且执行顺序也是有顺序的，因此在书写时一定要注意相互之行顺序也是有顺序的，因此在书写时一定要注意相互之间的顺序，否则就会出现逻辑错误。间的顺序，否则就会出现逻辑错误。4. 在嵌套的选择结构中在嵌套的选择结构中缺少配对的结束语句缺少配对的结束语句龚伸供抖远嘎纲层峨晤绘江容告辈俏排绥合箔糯江扒缸杉间冤韵脱焚由锋Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)4.11 课堂实训和课后作业课堂实训和课后作业1. 课堂实训课堂实训 第第1章章 课堂实训课堂实训22. 课后作业课后作业 第第1章章 课堂实训课堂实训1、课堂实训、课堂实训2、课堂实训课堂实训4 课堂实训课堂实训5射许越吝洼户来创鳞村音扑貌扮继公百慕乔世肄坠叙秤例豆教益堵芥秽竞Visual Basic程序设计实用教程vb04( 程序中使用选择结构)Visual Basic程序设计实用教程vb04( 程序中使用选择结构)
