选择分支与循环1

《选择分支与循环1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章选择分支与循环学习目标：掌握If条件语句和SelectCase选择语句掌握For…Next和Do…Loop循环语句掌握两重循环，了解多重循环了解Exit、End语句掌握程序的简单调试方法第5章算法基础及VB基本语句教学内容：５.１分支结构与分支结构语句５.２循环结构与循环结构语句５.３程序示例5.1分支结构与分支结构语句选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。选择结构中要使用选择语句，有两路分支和多路分支两种情况，对应的选择语句有If语句(两路出口)和SelectCase语句(多路出口

2、)。返回目录5.1分支结构与分支结构语句-If条件语句1.If<表达式>Then<语句>Endif其中，<表达式>是一个条件表达式或逻辑表达式例如，IfData>=90ThenPrint"优秀"[例]输入一个数，如果是3的倍数则输出。PrivateSubForm_Click()DimDataAsIntegerData=InputBox("请输入一个值：")IfDataMod3=0ThenmsgboxDataEndifEndSub返回目录Data是3的倍数Data>=90?输出“优秀”YesNoData>=90?输出“优秀”YesNo输

3、出“合格”输出“计算完毕”5.1分支结构与分支结构语句-If条件语句2.If<表达式>Then<语句1>Else<语句2>Endif例如，DimDataAsIntegerData=InputBox("请输入成绩：")IfData>=90ThenPrint"优秀"ElsePrint"合格“endifPrint"计算完毕"上例的If语句可以改写为：IfData<90ThenPrint"合格"ElsePrint"优秀"endif返回目录5.1分支结构与分支结构语句-If条件语句3.块状If语句返回目录If<条件表达式>Then<语句块>En

4、dIf[例]If<条件表达式>Then<语句块1>Else<语句块2>EndIfA=InputBox(“A值”):B=InputBox("B值")PrintA,BIfAThen<语句1>ElseIf<条件表达式2>Then<语句2>Else<语句3>EndIf返回目录说明：ElseIf之间不要加空格。Else和位于其上方的最近的If配对5.1分支结构与分支结

5、构语句－示例例5-1已知三角形三条边的长度，设计求此三角形面积的程序。5.1分支结构与分支结构语句－SelectCase选择语句语法格式：SelectCase<测试表达式>Case<表达式1><语句1>Case<表达式2><语句2>………[CaseElse<语句n+1>]EndSelect功能：根据测试表达式的值，决定程序的流向。返回目录<测试表达式>值的类型是数值型、字符串型、日期型等，一旦与某个Case后的<表达式>值相等，则执行这个Case中的<语句>，完成后执行EndSelect后的语句。如果所有的Case后的<表达式>都不与

6、<测试表达式>项匹配，则执行CaseElse后的<语句>。5.1分支结构与分支结构语句－SelectCase选择语句[例5-2]学生成绩分等privatesubform_click()Data=InputBox("请输入一个成绩","成绩分等")SelectCaseInt(Data/10)Case10MsgBox"满分",,"成绩分等"Case9MsgBox"优秀",,"成绩分等"Case8MsgBox"良好",,"成绩分等"Case7MsgBox"一般",,"成绩分等"Case6MsgBox"合格",,"成绩分等"CaseElseM

7、sgBox"不合格",,"成绩分等"EndSelectEndsub单击窗体确定5.1分支结构与分支结构语句－SelectCase选择语句[例5-3]测试输入的字符Char=InputBox("请输入一个字符","测试")SelectCaseCharCase"0"To"9"MsgBox"字符是数字",,"测试"Case"a"To"z"MsgBox"字符是小写字母",,"测试"Case"A"To"Z"MsgBox"字符是大写字母",,"测试"CaseElseMsgBox"字符是其它符号",,"测试"EndSelect用if语句改写。确定单

8、击窗体5.2循环语句程序的另一种结构是循环结构循环结构作用是重复执行一段程序循环是有条件的、次数是有限的VB的循环语句：直到型循环与当型循环。应用最多的：For…Next与DoWhile…Loop返回目录5.2循环语句－