VB教程---选择结构

程序结构西南交通大学峨眉校区一、结构化程序的结构结构化程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 核心，即三种基本的控制结构顺序结构分支结构循环结构流程图程序执行的过程叫流程。圆角矩形表示开始和结束矩形表示某种处理菱形表示条件判断线条和箭头表示程序流程的方向结构中的每个语句都按照顺序执行。AB顺序结构流程图1、顺序结构也叫选择结构，根据给出的条件，决定流程的走向。有三种语句结构：单分支、双分支、多分支条件ATrueFalse条件ABTrueFalse①单分支语句的流程图②双分支语句的流程图2、分支结构A1TrueFalse条件2条件1条件nA2AnFalseAn+1TrueTrueFalse……③多分支语句的流程图①当型循环语句的流程图False循环体True条件②直到型循环语句的流程图3、循环结构循环就是指在一定的条件下，重复执行一组语句，直至条件不满足为止。分为两种循环：当型循环、直到型循环循环体条件TrueFalse当条件第一次就不满足的时候，二者的结果不一样。1、IF条件判断语句(三种格式）IF条件Then语句块EndIfIF条件Then语句块1Else语句块2EndIfIF条件1Then语句块1Elseif条件2Then语句块2Elseif条件3Then……[Else]语句块nEndIfIF条件Then语句块1else语句块2单行书写形式：没有Endif二、分支结构—IF语句2、IF条件语句说明条件一般是关系或逻辑表达式。如果条件用数值表达式表示，则0表示False，所有非0的值都表示True。单行IF结构没有EndIf。多分支IF语句中，Elseif可以有任意多个。当If结构内有多个条件为True时，VB只执行第一个为True的条件后面的语句块。条件语句可以嵌套。即把一个If…Then…Else块放在另一个If…Then…Else块内。3、双分支程序示例Ifa>bThenmax=aElsemax=bEndIfIfa>bThenmax=aElsemax=b①求a，b中的较大数单行书写Ifscore>60Thenprint“过”Elseprint“不过”EndIf②将百分制转换成两级制单行书写请回答执行简单的条件判断操作，是If-Then-Else结构的简写。格式：结果=IIf(条件，True表达式，False表达式)含义：当条件为True时，返回True表达式的值，当条件为False时，返回False表达式的值。比如：IIF函数Ifa>bThenmax=aElsemax=bEndIfmax=IIf(a>b,a,b)等价于4、多分支程序示例Ifscore>=90ThenPrint"优"ElseIfscore>=80ThenPrint"良"ElseIfscore>=60ThenPrint"及格"ElsePrint"不及格"EndIf①将百分制转换为等级制Ifscore>=60ThenPrint"及格"ElseIfscore>=80ThenPrint"良"ElseIfscore>=90ThenPrint“优"ElsePrint"不及格"EndIf思考：下面形式是否正确？Ifx<1Theny=1-xElseIfx>=1Andx<=2Theny=(1-x)*(2-x)Elsey=-(2-x)EndIfy=②根据下列公式求函数1、SelectCase条件分支语句格式SelectCase变量或表达式Case条件值1语句块1Case条件值2语句块2…………Case条件值n语句块n[CaseElse语句块n+1]EndSelect二、分支结构—Select语句设计程序，输入班级所有学生的成绩，统计各个等级的人数并输出。PrivateSubcmdNext_Click()SelectCaseVal(txtScore)CaseIs>=90Text1.Text=Val(Text1.Text)+1Case80To90Text2.Text=Val(Text2.Text)+1Case70To80Text3.Text=Val(Text3.Text)+1Case60To70Text4.Text=Val(Text4.Text)+1CaseElseText5.Text=Val(Text5.Text)+1EndSelectText6.Text=Val(Text6.Text)+1txtScore.Text=""txtScore.SetFocusEndSub2、SelectCase语句程序举例制作演示3、SelectCase语句说明语句中的“条件值”可以是以下形式之一表达式,表达式…例如：Case2,4,6,8表达式To表达式例如：Case1To5注意：只能“小to大”Is关系运算表达式例如：CaseIs<=100注意：使用Is定义条件时，只能是简单的条件，不能用逻辑运算符将两个或多个简单条件组合。如：CaseIs>5AndIs<10是不合法的。以上3种形式可以混用例如：CaseIs<5,8,9,20to30如果同一个范围在多个Case子句中出现，则只执行符号要求的第一个Case子句的语句块。CaseElse子句必须放在所有的Case子句之后。练习：1.求闰年（能被4整除，不能被100整除的年，或者是能够被400整除的年是闰年。）(用if双分支语句做）Year=val(text1.text)Ifyearmod4=0andyearmod100<>0oryearmod400=0thenMsgbox(“是闰年!”)ElseMsgBox(“这不是闰年！”)EndIf2.设计一个程序，输入1900年以后的任意一个年份，计算该年的生肖。（用selectcase语句做）3.大学录取新生时，根据学生总分情况给与奖励，条件如下：（1）四门总分不低于700分，特等奖。（2）四门总分680分（含680分）~700分（不含700分），优秀奖。（3）前三门单科不低于145分，第四门不低于280分），特别奖。（4）奖励按特等奖、优秀奖、特别奖由高到低，不重复计奖（包括单科）。要求：四科成绩（s1、s2、s3、s4）依次在四个文本框中输入，总分（sum）在标签控件上显示。单击命令按钮Command1后，在对话框中显示获奖情况。(用if双分支语句做）　　PrivateSubCommand1_Click()DimsumAsInteger,s1AsIntegerDims2AsInteger,s3AsInteger,s4AsIntegers1=val(Text1.Text)s2=val(Text2.Text)s3=val(Text3.Text)s4=val(Text4.Text)sum=s1+s2+s3+s4Label3.Caption=sumIfsum>=700ThenMsgBox“您获得了特等奖”,64,“获奖通知”ElseIfsum>=680ThenMsgBox“您获得了优秀奖”,64,“获奖通知”ElseIfs1>=145Ors2>=145Ors3>=145Ors4>=280ThenMsgBox“您获得了特别奖”,64,“获奖通知”ElseMsgBox“很遗憾，您没有获奖”,64,“获奖通知”EndIfEndSub上面学习了If语句的基本形式，可以通过这些基本形式加以复合，获得更为复杂的If结构，称为If语句的嵌套。If语句复合结构的一般形式在Else块中嵌套If结构的形式if语句的嵌套例：求a、b、c中三个实数的最大值、最小值。a、b、c三值从三个文本框中输入，当单击命令按钮时将结果显示在窗体上例：求a、b、c中三个实数的最大值、最小值。a、b、c三值从三个文本框中输入，当单击命令按钮时将结果显示在窗体上。Maxinabc=ca