VisualBasic控制结构

《VisualBasic控制结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7章VisualBasic控制结构主讲教师：刘潇（计科系）联系电话：13623174925QQ：421877450E-mail：liuxiao528@163.com本章讨论VisualBasic中除顺序结构之外的流程控制语句，包括选择结构、多分支结构及循环结构语句。目录7.1选择控制结构多分支控制结构7.2For循环控制结构7.3当循环控制结构7.47.5Do循环控制结构多重循环7.6GoTo型控制7.77.1选择控制结构If...Then语句格式：If条件Then语句或If条件Then语句块EndIf功能：如果条件成立（值为真），则执行Then后面的语句或语句块，否则直接执行下一条

2、语句或“EndIf”的下一条语句。7.1选择控制结构编写一段代码实现：单击窗体，在弹出的输入对话框中输入成绩（CJ）数值，当成绩（CJ<60时），显示“成绩不及格”，换行显示“请参加补考”。PrivateSubForm_Click()CJ=Val(InputBox("请输入成绩数值：","成绩判断"))IfCJ<60ThenPrint"成绩不及格"Print"请参加补考"EndIfEndSub7.1选择控制结构If...Then...Else语句格式：If条件Then语句块1（A）Else语句块2（B）EndIf功能：首先测试条件，当条件成立时，执行语句块1；当条件不成立时，执行语句块

3、2。执行完语句块2之后，执行“EndIf”之后的语句。7.1选择控制结构输入三个数：a、b、c，求出其中最大数。PrivateSubCommand1_Click()DimaAsSingle,bAsSingleDimcAsSingle,mAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa

4、“True部分”，而当“条件”为假时返回“False部分”。例如：将a、b中的小数，放在Min变量中。Min=IIf(a

5、fscore<0ThenLabel2.Caption="成绩出错"ElseIfscore<60ThenLabel2.Caption=temp+"不及格"ElseIfscore<=79ThenLabel2.Caption=temp+"及格"ElseIfscore<=100ThenLabel2.Caption=temp+"优良"ElseLabel2.Caption="成绩出错"EndIfEndSub7.2多分支控制结构SelectCase语句格式：SelectCase　测试表达式Case　表达式表列1[语句块1][Case表达式表列2[语句块2]]......[CaseElse[语句块n]

6、]EndSelect功能：先计算表达式的值，然后将该值依次与结构中的每个Case值进行比较，如果该值符合某个Case指定的值条件时，就执行该Case的语句块，然后跳到EndSelect，从EndSelect出口。如果没有相符合的Case值，则执行CaseElse中的语句块。三种写法：Case1,3,5Case60To80CaseIs<507.2多分支控制结构输入学生成绩（百分制），判断该成绩的等级（优良、及格、不及格）PrivateSubCommand1_Click()DimscoreAsInteger,tempAsStringscore=Val(Text1.Text)temp="成绩

7、等级为："SelectCasescoreCase0to59Label2.Caption=temp+"不及格"Case60to79Label2.Caption=temp+"及格"Case80to100Label2.Caption=temp+"优良"CaseElseLabel2.Caption="成绩出错"EndSelectEndSub7.2多分支控制结构输入两个运算数和运算符（+、-、*、/），组成算式并计算结果，然后显示出来。PrivateSu