vb程序的三种基本结构

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,程序的三种基本结构,第一节,1,一、用,传统,流程图表示算法,处理框,起止框,I/O框,判断框,流程线,连接点,1、传统流程图中的基本符号,复习回顾,2,2、三种基本结构的表示,（1）顺序结构,条件,语句1,语句2,Y,N,语句1,语句2,（2）选择结构,程序代码按照从上到下的顺序一行行的执行，执行过程中没有分支，没有重复。,根据不同的条件判断来决定程序执行走向的结构。,3,（3）循环结构,a) 当型循环,b) 直到型循环,条件,语句组,Y,N,( b ),条件,( a ),Y,N,语句组,根据条件判断某些语句可能需要执行0次1次或多次的结构。,4,从10个数中选出最大的数的算法流程图,NMax,Max =A,输入A,开始,再输入给A,N=N+1,打印Max,结束,Y,N,N,Y,一个算法中可能同时含有这三种基本的结构,5,一、顺序结构,例：交换两个变量a，b的值,Private Sub Command1_Click(),Dim a as integer,b as integer,a=Val(InputBox(“输入a”),b=Val(InputBox(“输入b”),MsgBox(“交换后a= ”& a & “ b=”& b),End Sub,设输入a=2，b=3,如何实现交换过程?,交换过程,c=a,a=b,b=c,6,对应的流程图：,例：交换两个变量a，b的值,Private Sub Command1_Click(),Dim a as integer,b as integer,c as integer,a=Val(InputBox(“输入a”),b=Val(InputBox(“输入b”),c=a,a=b,b=c,MsgBox(“交换后a= ”& a & “ b=”& b),End Sub,2,1,5,开始,结束,3,4,c=a,输入a,b,输出交换后a,b值,a=b,b=c,7,1. IfThen语句(单分支结构),If Then,语句块,End If,例:已知两个数,x,和,y,，比较它们的大小， 使得x大于y.,If xY Then,Print X,Else,Print Y,End If,练习：输入,x，输出其绝对值（不能用abs函数）,。,9,3. IfThenElseIf语句(多分支结构),形式:,If Then,ElseIf Then,Else,语句块 n+1 ,End If,选择结构,10,使用,IF,语句实现的程序段如下：,If x=90 then,Print ,优秀,ElseIf x=80 Then,Print ,良好,ElseIf x=70 Then,Print ,中等,ElseIf x=60 Then,Print ,及格,Else,Print ,不及格,End If,例：输入一学生成绩，评定其等级。规则是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以下为“不合格”,选择结构,11,Select Case语句（情况语句）,形式：,Select Case 变量或表达式,Case 表达式列表1,语句块1,Case 表达式列表2,语句块2,Case Else,语句块n+1,End Select,数值型或字符串表达式,选择结构,与,为下面四种形式之一：,表达式,A +5,一组枚举的值(用逗号分隔),2, 4, 6, 8,表达式1 To 表达式2,60 to 100,Is 关系运算符表达式,Is 60,12,Select Case x,Case 90 to 100,Print 优秀,Case 80 to 89,Print 良好,Case 70 to 79,Print 中等,Case 60 to 69,Print 及格,Case Else,Print 不及格,End Select,例：输入一学生成绩，评定其等级。用select case 实现。,13,综合练习：输入a，b，c求一元二次方程组的根。,Private Sub Command1_Click(),a = Val(Text1.Text),b = Val(Text2.Text),c = Val(Text3.Text),If a = 0 Then,MsgBox error!,End,End If,d = b 2 - 4 * a * c,If d 0 Then,Label4.Caption = 无解,Label5.Caption = ,ElseIf d = 0 Then,x = -b / (2 * a),Label4.Caption = X1=X2= & x,Label5.Caption = ,Else,X1 = (-b + Sqr(d) / (2 * a),X2 = (-b - Sqr(d) / (2 * a),Label4.Caption = X1= & X1,Label5.Caption = X2= & X2,End If,End Sub,14,