vb程序的三种基本结构.ppt

《vb程序的三种基本结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序的三种基本结构第一节一、用传统流程图表示算法处理框起止框I/O框判断框流程线连接点1、传统流程图中的基本符号复习回顾2、三种基本结构的表示（1）顺序结构条件语句1语句2YN语句1语句2（2）选择结构程序代码按照从上到下的顺序一行行的执行，执行过程中没有分支，没有重复。根据不同的条件判断来决定程序执行走向的结构。（3）循环结构a)当型循环b)直到型循环条件语句组YN(b)条件(a)YN语句组根据条件判断某些语句可能需要执行0次1次或多次的结构。从10个数中选出最大的数的算法流程图N<10Max=AN=1A>MaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY

2、一个算法中可能同时含有这三种基本的结构一、顺序结构例：交换两个变量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(InputB

3、ox(“输入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.IfxThen<语句块1>Else<语句块2>EndIf选择结构例：输出x,y两个中值较大的一个。IFX>YThenPrintXElseP

4、rintYEndIf练习：输入x，输出其绝对值（不能用abs函数）。3.If…Then…ElseIf语句(多分支结构)形式:If<表达式1>Then<语句块1>ElseIf<表达式2>Then<语句块2>…[Else语句块n+1]EndIf选择结构使用IF语句实现的程序段如下：Ifx>=90thenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIf例：输入一学生成绩，评定其等级。规则是：90~100分为“优秀”，80~89分为“

5、良好”，70~79分为“中等”，60~69分为“及格”，60分以下为“不合格”选择结构SelectCase语句（情况语句）形式：SelectCase变量或表达式Case表达式列表1语句块1Case表达式列表2语句块2…[CaseElse语句块n+1]EndSelect数值型或字符串表达式选择结构<表达式列表>与<变量或表达式>为下面四种形式之一：表达式A+5一组枚举的值(用逗号分隔)2,4,6,8表达式1To表达式260to100Is关系运算符表达式Is<60SelectCasexCase90to100Print"优秀"Case80to89Print"良好"Case70to7

6、9Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect例：输入一学生成绩，评定其等级。用selectcase实现。综合练习：输入a，b，c求一元二次方程组的根。PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa=0ThenMsgBox"error!"EndEndIfd=b^2-4*a*cIfd<0ThenLabel4.Caption="无解"Label5.Caption=""ElseIfd=0Thenx=-b/

7、(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