第5讲 程序的基本结构

2013-8-9 机械工业出版社 9
条件表达式的值为真吗？ 是 语句块
否
图5-2 单分支结构
第5章 程序的基本结构
5.2.1 If语句
【例5-2】设口令。用If语句来判断输入密码的正确性。 程序代码如下：
Private Sub Form_Click() Dim a As String, b As S本结构
5.2.1 If语句
程序代码如下：
Private Sub Form_Click() Dim x!, y! x = Val(InputBox("Input x")) If x >= 0 Then y = (1 - x) ^ 2 Else y=x^2-1 End If Print "y="; y End Sub
分析：根据输入的学生成绩判定学生处于哪 个等级，这是一个典型的多重选择问题，因 此，选择使用多分支结构If语句来解决这个问 题是合适的。 程序代码如下： Private Sub Form_Click()
Dim score As Integer
score = Val(InputBox("输入成绩"))
5.2.1 If语句
[ Else … If <条件表达式n> Then … End If …] End If
2013-8-9
机械工业出版社
24
第5章 程序的基本结构
5.2.1 If语句
【例5-5】任意输入3个数，按照从大到小的顺 序输出。 分析：排序的基本方法，就是比较大小，然 后根据比较的结果分别加以处理。本例把3个 数分别放在a、b和c这3个变量中，处理过程 为：首先比较a、b的大小，若a＜b为True， 交换a和b的值；否则不做处理。这样就保证 了a≥b；然后再用c分别和a、b比较，最终确 定三者的大小关系。
2013-8-9 机械工业出版社 8
第5章 程序的基本结构
5.2.1 If语句
单分支结构If语句的功能 是：在执行If语句时，首 先判断条件表达式的值是 True 还 是 False ， 是 True 则执行Then后面的<语句 块>，然后执行 If结构下 面的语句；是False，则执 行If结构下面的语句。语 句 的 执 行 流 程 如 图 5-2所 示。
15
第5章 程序的基本结构
5.2.1 If语句
语法格式为：
If <条件表达式1> Then <语句块1> ElseIf <条件表达式2> Then
<语句块2> [ElseIf <条件表达式3> Then <语句块3> ] … [Else <语句块n+1> ] End If
2013-8-9 机械工业出版社 16
a = "123456"
b = InputBox("输入你的密码：", "输入密码对话框") If b = a Then MsgBox "密码正确！" End If End Sub
2013-8-9
机械工业出版社
10
第5章 程序的基本结构
5.2.1 If语句
2．双分支结构（If…Then…Else语句） 格式1（单行形式）： If <条件表达式> Then <语句块1> Else <语句块 2> 格式2（块形式）： If <条件表达式> Then <语句块1> Else <语句块2> End If
2013-8-9 机械工业出版社 25
第5章 程序的基本结构
5.2.1 If语句
程序代码如下： Private Sub Form_Click() Dim a As Single, c As Single, b As Single, t As Single a = Val(InputBox("Input a")) b = Val(InputBox("Input b")) c = Val(InputBox("Input c")) Print "原数据:"; a; b; c
2013-8-9
机械工业出版社
3
第5章 程序的基本结构
5.1.1 赋值语句
赋值语句是Visual Basic程序中使用最频繁的 语句之一，它可以为变量赋值，也可以在程 序代码中为对象属性赋值。 赋值语句的格式为： [LET] 变量名=表达式 或 [LET] [对象名.] 属性名=表达式 赋值语句的功能是：完成表达式的计算，将 计算结果赋给赋值号左侧的变量或对象的属 性。
2013-8-9 机械工业出版社 4
第5章 程序的基本结构
5.1.1 赋值语句
【例5-1】输入矩形的长和宽，求矩形的面积。 分析：不管多复杂的问题，一般在解决时， 都可以分为3个步骤：数据输入；数据处理； 结果输出。对于每一步，都可以逐步求精， 分析解决。 本题需要输入矩形的长和宽，然后计算矩形 的面积并输出，因此也可以分为：接收用户 输入的数据；计算矩形面积；输出计算结果。
'c<b成立，表明c
'c处于中间
第5章 程序的基本结构
5.2.2 Select Case语句
在Visual Basic中，多分支结构除了可以用If 语句实现外，也可以使用Select Case语句来 实现。Select Case语句适用于由同一条件的 不 同 取 值 来 产 生 不 同 分 支 的 情 况 。 Select Case语句也称为情况语句。 语法格式为： Select Case <测试表达式> Case <表达式列表1> <语句块1>
2013-8-9 机械工业出版社 14
第5章 程序的基本结构
5.2.1 If语句
3．多分支结构（If…Then…ElseIf语句） 双分支结构只能根据条件表达式的值为True 或False来处理两个分支中的一个。当实际处 理的问题有多种条件时，就需要用到多分支 结构。
2013-8-9
机械工业出版社
2013-8-9
机械工业出版社
5
第5章 程序的基本结构
5.1.1 赋值语句
程序流程如图5-1所示。
开始
输入a和b的值
s←a*b
输出s的值
结束
图5-1 【例5-1】程序流程图
2013-8-9 机械工业出版社 6
第5章 程序的基本结构
5.2 选择结构
Visual Basic支持结构化的程序设计。结构化 的程序设计有3种基本程序结构：顺序结构、 选择结构和循环结构。前面介绍的一些简单 程序都属于顺序结构，程序中的代码按顺序 执行。选择结构根据选择条件按不同分支执 行代码，循环结构根据循环条件重复执行部 分代码。选择结构和循环结构在Visual Basic 中通过控制语句实现。
2013-8-9 机械工业出版社 12
第5章 程序的基本结构
5.2.1 If语句 【例5-3】输入x的值，计算分段函数y的值。
(1 x) y 2 x 1
2
x0 x0
分析：对于此分段函数，由于包含x≥0和x＜0 这两种情况。因此，可以选用双分支结构的If 语句来编程实现。
2013-8-9
第5章 程序的基本结构
5.2.1 If语句
多分支结构If语句的功能是： 首先判断<条件表达式1>，如果<条件表达式1>的值 为True，则执行其后的语句块，之后转去执行End If 下面的语句。 如果<条件表达式1>的值为False，则判断<条件表达 式2>的值是否为True，若为True，则执行其后的语 句块，然后转去执行End If下面的语句，否则继续依 次向下判断。 如果所列出的前n个<条件表达式>的值都为False，再 看是否存在Else子句，若存在则执行Else子句后面的 语句块，若不存在，则直接执行End If下面的语句。
2013-8-9 机械工业出版社 27
第5章 程序的基本结构
5.2.1 If语句
Else If c < b Then Print "排序后:"; a; b; c 最小 Else Print "排序后:"; a; c; b End If End If End Sub
2013-8-9 机械工业出版社 28
2013-8-9 机械工业出版社 17
第5章 程序的基本结构
5.2.1 If语句
多分支结构If语句执行流程如图5-4所示。
条件表达式1的值为真吗？ 是 否
条件表达式2的值为真吗？ 是
否
...
条件表达式n的值为真吗？ 是
否
语句块1
语句块2
语句块n
语句块n+1
图5-4 多分支结构
2013-8-9 机械工业出版社 18
2013-8-9
机械工业出版社
7
第5章 程序的基本结构
5.2.1 If语句
If语句有单分支、双分支和多分支结构，根据 问题的不同，选择适当的结构。 1. 单分支结构（If…Then语句） 格式1（单行形式）： If <条件表达式> Then <语句块> 格式2（块形式）： If <条件表达式> Then <语句块> End If
2013-8-9 机械工业出版社 29
第5章 程序的基本结构
5.2.2 Select Case语句
[ Case <表达式列表2>
<语句块2>
…
Case <表达式列表n>