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

程序的三种基本结构 第一节 一、顺序结构 对应的流程图： 选择结构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 选择结构 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If 选择结构 3. If…Then…ElseIf语句(多分支结构) 形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 选择结构 Select Case语句（情况语句） 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 综合练习：输入a，b，c求一元二次方程组的根。 * * 一、用传统流程图表示算法 处理框 起止框 I/O框 判断框 流程线 连接点 1、传统流程图中的基本符号 复习回顾 2、三种基本结构的表示 （1）顺序结构 条件 语句1 语句2 Y N 语句1 语句2 （2）选择结构 程序代码按照从上到下的顺序一行行的执行，执行过程中没有分支，没有重复。 根据不同的条件判断来决定程序执行走向的结构。 （3）循环结构 a) 当型循环 b) 直到型循环 条件 语句组 Y N ( b ) 条件 ( a ) Y N 语句组 根据条件判断某些语句可能需要执行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 如何实现交换过程? b a 3 2 交换过程 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 例:已知两个数x和y，比较它们的大小， 使得x大于y. If xy Then t=x : x=y: y=t End If 例：输出x,y两个中值较大的一个。 IF XY Then Print X Else Print Y End If 练习：输入x，输出其绝对值（不能用abs函数）。 使用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 例：输入一学生成绩，评定其等级。规则是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以下为“不合格” 选择结构 数值型或字符串表达式 表达式列表与变量或表达式为下面四种形式之一： 表达式 A +5 一组枚举的值(用逗号分隔) 2, 4, 6, 8 表达式1 To 表达式2 60 to 100 Is 关系运算符表达式