vb程序的三种基本结构1

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