第三章 VB语言基础
第三节 程序控制结构
概述
本节内容主要介绍Visual Basic（VB）语言中的程序控制结构，这是编程中的核心内容之一。程序控制结构决定了程序执行的流程和顺序，掌握程序控制结构是编写高效、清晰、功能完备的程序的基础。通过本节学习，考生将能够理解并熟练使用顺序结构、条件结构和循环结构，掌握嵌套结构的使用方法，能够根据实际需求设计合理的程序流程。
学习目标
- 理解程序控制结构的概念及分类
- 掌握VB语言中常用的条件判断语句（If...Then...Else、Select Case）
- 熟练掌握循环控制语句（For...Next、Do...Loop、While...Wend）
- 理解嵌套控制结构的实现及应用
- 通过实例掌握程序控制结构的实际编写技巧
- 了解常见误区并学会避免
核心概念
程序控制结构：控制程序执行顺序的语句组合，主要分为顺序结构、选择结构和循环结构。
顺序结构：程序语句按书写顺序依次执行，是最简单的控制结构。
选择结构（条件结构）：根据条件判断的结果决定执行哪一段代码，常用语句包括If...Then...Else和Select Case。
循环结构：重复执行某段代码，直到满足退出条件。主要包括For...Next、Do...Loop和While...Wend三种语句。
嵌套结构：在一种控制结构内嵌套使用另一种控制结构，实现复杂的程序流程。
原理分析
程序控制结构的核心是流程控制，决定程序的执行路径。通过条件判断，程序能够根据不同的输入或状态，执行不同的操作；通过循环，使得某些代码能够多次执行，避免重复书写。VB语言通过语法明确的语句实现这些功能。条件判断语句通过逻辑表达式计算真假，决定分支执行；循环语句通过循环变量和条件控制循环的次数和结束。
程序控制结构的合理设计能增强程序的可读性、维护性和执行效率。不合理的控制结构则可能导致代码冗长、逻辑混乱甚至死循环等问题。
详细内容
1. 顺序结构
顺序结构是程序最基本的执行形式，程序从第一条语句开始，按顺序逐条执行直到结束。VB中所有语句默认是顺序执行的。
示例：
Dim a As Integer
Dim b As Integer
a = 10
b = 20
MsgBox "a + b = " & (a + b)
这段代码顺序执行，先赋值，后计算并显示结果。
2. 条件选择结构
2.1 If...Then...Else语句
这是最常用的条件判断语句，格式如下：
If 条件 Then
语句块1
Else
语句块2
End If
当条件为真时执行语句块1，否则执行语句块2。
- If...Then语句可以简写为一行：
If 条件 Then 语句
- 支持多重分支：
If 条件1 Then
语句1
ElseIf 条件2 Then
语句2
Else
语句3
End If
2.2 Select Case语句
用于多个条件判断，语法简洁清晰，格式如下：
Select Case 表达式
Case 值1
语句块1
Case 值2 To 值3
语句块2
Case Else
语句块3
End Select
当表达式的值匹配某个Case的条件时，执行对应语句块。
3. 循环控制结构
循环结构允许重复执行代码块，主要有三种类型。
3.1 For...Next循环
用于已知循环次数的场景。
格式：
For 变量 = 起始值 To 终止值 [Step 步长]
循环体
Next
例如：
For i = 1 To 10
MsgBox i
Next
循环体执行10次，i从1递增到10。
3.2 Do...Loop循环
适用于根据条件控制循环，格式灵活，分为四种形式：
- Do While 条件
循环体
Loop - Do Until 条件
循环体
Loop - Do
循环体
Loop While 条件 - Do
循环体
Loop Until 条件
区别在于条件判断的位置和循环继续的条件。示例：
Dim i As Integer
i = 1
Do While i <= 5
MsgBox i
i = i + 1
Loop
3.3 While...Wend循环
较旧的循环结构，功能类似Do While，格式：
While 条件
循环体
Wend
一般建议使用Do...Loop替代，因其更灵活。
4. 嵌套控制结构
控制结构可以相互嵌套，形成复杂的逻辑。常见嵌套有：
- If...Then...Else中嵌套If
- 循环中嵌套条件判断
- 循环中嵌套循环
示例：
For i = 1 To 3
For j = 1 To 3
If i = j Then
MsgBox "i和j相等，值为" & i
End If
Next
Next
嵌套结构需注意缩进和逻辑层次，避免混乱。
实例分析
实例一：成绩等级判定
背景：根据学生成绩判断等级，90分及以上为A，80-89为B，70-79为C，60-69为D，低于60为F。
代码：
Dim score As Integer
score = InputBox("请输入成绩：")
If score >= 90 Then
MsgBox "等级为A"
ElseIf score >= 80 Then
MsgBox "等级为B"
ElseIf score >= 70 Then
MsgBox "等级为C"
ElseIf score >= 60 Then
MsgBox "等级为D"
Else
MsgBox "等级为F"
End If
分析：通过多重If判断实现等级划分，符合条件的执行对应代码块。
结论：灵活使用If...ElseIf能够实现精细的条件判断。
实例二：计算1到n的累加和
背景：输入正整数n，求1到n的整数和。
代码：
Dim n As Integer
Dim sum As Integer
Dim i As Integer
n = InputBox("请输入正整数n：")
sum = 0
For i = 1 To n
sum = sum + i
Next
MsgBox "1到" & n & "的累加和为" & sum
分析：利用For循环遍历1到n的数字，累加求和。
结论：For循环适合已知循环次数的问题。
实例三：猜数字游戏
背景：程序随机生成1到100的数字，用户输入猜测，程序提示猜大了或猜小了，直到猜中。
代码：
Dim target As Integer
Dim guess As Integer
Dim msg As String
Randomize
target = Int(Rnd() * 100) + 1
Do
guess = InputBox("请输入你猜的数字（1-100）：")
If guess > target Then
msg = "太大了，请再试一次。"
ElseIf guess < target Then
msg = "太小了，请再试一次。"
Else
msg = "恭喜你，猜中了！"
End If
MsgBox msg
Loop Until guess = target
分析：使用Do...Loop Until循环根据条件反复执行，直到猜中。
结论：Do...Loop结构适用于循环次数不确定的场景。
常见误区
遗漏End If或Next
- 错误示例：
If x > 0 Then MsgBox "正数" '缺少End If- 正确做法：必须有对应的End If或Next结束语句。
条件表达式书写错误
- 如逻辑运算符使用不当，导致判断结果错误。
- 注意VB中逻辑与为And，逻辑或为Or。
循环变量未正确更新
- 在Do循环中忘记更新循环控制变量，易导致死循环。
Select Case中Case条件重叠或遗漏Case Else
- 可能导致程序无法覆盖所有情况，执行不完整。
嵌套结构缩进混乱，难以阅读
- 养成良好代码格式习惯，增强代码可读性。
应用场景
用户输入验证
- 通过条件判断控制程序流程，确保输入合法。
数据分类处理
- 利用选择结构对数据分组或分类处理。
批量处理任务
- 利用循环结构遍历集合或数组，执行批量操作。
游戏逻辑实现
- 如循环等待用户操作，条件判断游戏状态。
报表统计与计算
- 通过循环累加、条件筛选实现数据统计分析。
知识拓展
- 错误处理结构（On Error）：程序控制结构中还包含异常处理，VB中使用On Error语句实现。
- 子程序与函数调用控制：程序流程还受调用结构影响，学习模块化编程进一步掌握流程控制。
- 事件驱动程序流程：VB多用于窗体应用，理解事件驱动机制有助于控制程序执行。
总结回顾
本节围绕VB语言的程序控制结构展开，重点讲解了三大基本结构：顺序、选择（条件判断）、循环。掌握了If...Then...Else、Select Case等条件语句，以及For...Next、Do...Loop、While...Wend等循环语句的用法。通过嵌套结构实现复杂逻辑的表达。结合实例，考生能够理解并应用这些结构完成实际问题的程序设计。注意避免常见误区，合理设计程序流程，提高代码质量与效率，为后续高级编程内容打下坚实基础。
掌握本节内容是全国计算机等级考试二级VB语言程序设计的重要考点，建议考生反复练习，熟悉各种语法格式和编程思想。