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

程序的三种基本结构,第一节,一、用传统流程图表示算法,处理框,起止框,I/O框,判断框,流程线,连接点,1、传统流程图中的基本符号,复习回顾,2、三种基本结构的表示 （1）顺序结构,（2）选择结构,程序代码按照从上到下的顺序一行行的执行，执行过程中没有分支，没有重复。,根据不同的条件判断来决定程序执行走向的结构。,（3）循环结构,a) 当型循环,b) 直到型循环,根据条件判断某些语句可能需要执行0次1次或多次的结构。,从10个数中选出最大的数的算法流程图,N10,Max =A N=1,AMax,Max =A,输入A,开始,再输入给A,N=N+1,打印Max,结束,Y,N,N,Y,一个算法中可能同时含有这三种基本的结构,一、顺序结构,例：交换两个变量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,对应的流程图：,例：交换两个变量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,1. IfThen语句(单分支结构) If Then 语句块 End If,例:已知两个数x和y，比较它们的大小， 使得x大于y. If xy Then t=x : x=y: y=t End If,选择结构,2. IfThenElse语句(双分支结构) If Then Else End If,选择结构,例：输出x,y两个中值较大的一个。 IF XY Then Print X Else Print Y End If,练习：输入x，输出其绝对值（不能用abs函数）。,3. IfThenElseIf语句(多分支结构) 形式: If Then ElseIf Then Else 语句块 n+1 End If,选择结构,使用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分以下为“不合格”,选择结构,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,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 实现。,综合练习：输入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