vb程序的三种基本结构1

程序的三种基本结构第一节一、用传统流程图表示算法处理框起止框I/O框判断框流程线连接点1、传统流程图中的基本符号复习回顾2、三种基本结构的表示（1）顺序结构条件语句1语句2YN语句1语句2（2）选择结构程序代码按照从上到下的顺序一行行的执行，执行过程中没有分支，没有重复。根据不同的条件判断来决定程序执行走向的结构。（3）循环结构a)当型循环b)直到型循环条件语句组YN(b)条件(a)YN语句组根据条件判断某些语句可能需要执行0次1次或多次的结构。从10个数中选出最大的数的算法流程图N10Max=AN=1AMaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY一个算法中可能同时含有这三种基本的结构一、顺序结构例：交换两个变量a，b的值PrivateSubCommand1_Click()Dimaasinteger,basintegera=Val(InputBox(“输入a”))b=Val(InputBox(“输入b”))MsgBox(“交换后a=”&a&“b=”&b)EndSub设输入a=2，b=3如何实现交换过程?a2b3交换过程c=aa=bb=c对应的流程图：例：交换两个变量a，b的值PrivateSubCommand1_Click()Dimaasinteger,basinteger,casintegera=Val(InputBox(“输入a”))b=Val(InputBox(“输入b”))c=aa=bb=cMsgBox(“交换后a=”&a&“b=”&b)EndSub215开始结束34c=a输入a,b输出交换后a,b值a=bb=c1.If…Then语句(单分支结构)If表达式Then语句块EndIf例:已知两个数x和y，比较它们的大小，使得x大于y.IfxyThent=x:x=y:y=tEndIf选择结构2.If…Then…Else语句(双分支结构)If表达式Then语句块1Else语句块2EndIf选择结构例：输出x,y两个中值较大的一个。IFXYThenPrintXElsePrintYEndIf练习：输入x，输出其绝对值（不能用abs函数）。3.If…Then…ElseIf语句(多分支结构)形式:If表达式1Then语句块1ElseIf表达式2Then语句块2…[Else语句块n+1]EndIf选择结构使用IF语句实现的程序段如下：Ifx=90thenPrint优秀ElseIfx=80ThenPrint良好ElseIfx=70ThenPrint中等ElseIfx=60ThenPrint及格ElsePrint不及格EndIf例：输入一学生成绩，评定其等级。规则是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以下为“不合格”选择结构SelectCase语句（情况语句）形式：SelectCase变量或表达式Case表达式列表1语句块1Case表达式列表2语句块2…[CaseElse语句块n+1]EndSelect数值型或字符串表达式选择结构表达式列表与变量或表达式为下面四种形式之一：表达式A+5一组枚举的值(用逗号分隔)2,4,6,8表达式1To表达式260to100Is关系运算符表达式Is60SelectCasexCase90to100Print优秀Case80to89Print良好Case70to79Print中等Case60to69Print及格CaseElsePrint不及格EndSelect例：输入一学生成绩，评定其等级。用selectcase实现。综合练习：输入a，b，c求一元二次方程组的根。PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa=0ThenMsgBoxerror!EndEndIfd=b^2-4*a*cIfd0ThenLabel4.Caption=无解Label5.Caption=ElseIfd=0Thenx=-b/(2*a)Label4.Caption=X1=X2=&xLabel5.Caption=ElseX1=(-b+Sqr(d))/(2*a)X2=(-b-Sqr(d))/(2*a)Label4.Caption=X1=&X1Label5.Caption=X2=&X2EndIfEndSub