发布时间 : 星期一 文章第三章 程序设计基础更新完毕开始阅读
图3.1 例3.1流程图 3.6.2 顺序结构
顺序结构是一种最简单、最基本的程序控制结构，任何程序必须包含顺序结构。它的特点是，在这个结构内各语句块是按照它们出现的顺序从上到下依次执行的。
图3.2顺序结构 例：实现两数A，B交换。
语句块1 语句块2 T=A A=B B=T 3.6.3 选择结构
第 9 页 共 26 页
条件判定语句在程序运行中起的是水龙头的作用,只有满足条件的,才会执行某些语句,否则程序将按照另一个流程执行。 图3.3 选择结构 VB支持的条件判定结构有3种，它们是：
? ? ?
一、If ? Then结构
If ? Then
If ? Then ? Else Select Case
1． 只选择执行一条语句：
If 条件 Then 语句块1 [Else 语句块2]
如：If x>=y then x=x+y : sum=sum+x else x=x-y : sum=sum-x 注：这条语句必须在一行中写完 2． 需要执行多条语句：
If 条件 Then 语句块 End If 如：If Name = “Text1” Then
Text1.text = “欢迎使用Visual Basic 6.0系统” End If
二、If ? Then ? Else结构
使用If ? Then ? Else结构可以从几个程序流程分支中选择一个执行。
格式：
If 条件１ then 语句块１
［ElseIf 条件2 Then 语句块2 ] [ElseIf 条件3 Then 语句块3 ] ．．．．． [Else
语句块n］ End If
流程图：
第 10 页 共 26 页
图3.4 If ? Then ? Else结构 除此之外，条件还可以是下面的形式： Type Of 控制变量 Is 对象类型
它测试某个控制变量是否为某种对象类型，如果是，则条件满足，返回True；否则条件不满足，返回False。 例如：If Type Of Listvar Is ListBox Then
表示如果Listvar控制是一个列表框类型的控制，则执行Then后面的语句块；否则执行下面的语句。
【例3.4】判断某年是否为闰年。计算闰年的方法是，如果某年份能被4整除并且不能被100整除的或者能被400整除的，则该年为闰年。（教材p92例3.5） 分析: 1.输入某年 2.判断是否为闰年 3.显示结果
根据题意, 需七个对象: 在一个文本框中输入某年,单击命令按钮判断是否为闰年,在一标签中显示结果, 按一按钮清空文本框,开始新的判断,两个标签为提示信息,一个窗体。 流程图：
图3.5 例3.4流程图
【例3.5】求一元二次方程 ax2+bx+c=0 的根。（教材p94例3.7）
分析：1.输入方程系数a,b,c 2.求出D=B^2-4AC
3.判断D<0 , 是求出两个复根；否则判断D=0，是求出两个相等的实根，否求出两个不相等的实根。 4.显示结果
第 11 页 共 26 页
根据分析，需11个对象：用三个文本框输入系数A、B、C，计算按钮求出D并判断，得出结果，在两个标签上显示方程和结果，
清空按钮，三个标签作提示，一个窗体。
流程图：
图3.6 例3.5 流程图
请思考：若A、B、C三个系数不一定能构成一元二次方程呢？ 三、Select Case 结构
用来实现多分支选择。对于多种选择来说，效率比条件语句更高，更容易维护和阅读。 格式：Select Case 测试变量（或测试表达式） Case 表达式列表1 语句块1
［ Case 表达式列表2 语句块2 ］ ．．．． ［ Case Else 语句块n ］ End Select 其中：
? ?
测试变量：称为Case变量，它可以是一个变量、表达式或常量，可以是数值型或字符串型。 表达式列表：可以是下面三种形式之一：
表达式
表达式 To 表达式 Is 比较运算符表达式
To，Is是关键字，后两种形式可用来设定值的范围
例如：Case 1 To 10 ’测试变量的值落在1 到10 范围内，则匹配；
Case Is>100 ’测试变量的值大于100，则匹配；
第 12 页 共 26 页