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

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

ID:52268573

大小:554.50 KB

页数:14页

时间:2020-04-03

vb程序的三种基本结构.ppt_第1页
vb程序的三种基本结构.ppt_第2页
vb程序的三种基本结构.ppt_第3页
vb程序的三种基本结构.ppt_第4页
vb程序的三种基本结构.ppt_第5页
资源描述:

《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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。