第3讲 流程控制语句

If…Then…Else语句
If...Then...Else语句也称为双分支语句，可以从几个程序流程 分支中选择一个执行。其根据表达式的值，当满足条件时执行包 含的一组语句，不满足条件时执行Else后的另外一组语句。该语 句使用形式如下。 If <表达式> Then 语句块1 Else 语句块2 End If If...Then...Else语句的功能是，当表达式中条件为真时执行语 句1，否则执行语句2。
While循环与For循环最大的区别在于，For循环用 于循环次数已知的情况，执行一定次数后即可结束循环 ；而While循环用于不知道循环次数的情况，可以用一 个条件来判断是否结束。所以对于循环次数有限，可以 用一个条件限制的情况，使用While循环较好，使用比 较灵活。
循环嵌套
循环嵌套是指在一个循环的循环体内还包含一个或 多个循环，很多问题如果用单循环不能有效地解决，可 以用循环语句嵌套来解决。在具体程序中，循环嵌套是 非常有用的。下面通过一个实例来探讨循环的嵌套问题 。 构建一个如下图所示的九九乘法表。
Select Case语句
Select Case语句用于进行多分支选择结构。相对于用 If…Then…ElseIf语句和If语句嵌套实现多分支选择结构，Select Case语 句显得更为直观清晰。对于多重选择的情况，用Select Case语句代码 效率更高，更易读。该语句使用形式如下。 Case 值1 语句块1 [Case 值2 语句块2] ┆ [Case Else 语句块n] End Select
设计一个密码确认窗体，接收用户输入的密码。当 用户3次输入错误后，给出错误提示并自动退出程序。
If…Then…ElseIf… 语句
If...Then...ElseIf...语句，也称为多分支语句。事实上，可以将 If…Then…ElseIf语句当成是If…Then…Else语句的扩展。如果需要判断多个条 件，根据不同条件的结果来执行不同的数据处理任务时，可以选择使用 If…Then…ElseIf语句来设计程序结构。该语句使用形式如下。 If 表达式1 Then 语句块1 [ElseIf表达式2 Then 语句块2] ┆ [Else 语句块n+1] End If 该语句首先测试表达式1，如果其为False，就测试表达式2，依此类推， 直到找到一个为True的条件就执行相应的语句块，执行后跳出该语句。如果所 有条件都不是True，则执行Else语句块。
For…Next语句
For…Next语句主要用于循环次数预知的情况，其通过事先设 定的循环次数来执行循环体。该语句使用形式如下。 For 循环变量=初值to终值 [Step步长] 循环体 [Exit For] [循环体] Next [循环变量]
Do…Loop语句
Do循环根据某个条件是否成立来决定能否执行相应的循环体部分。该 语句用于控制循环次数未知的循环结构，总是重复执行一组语句直到某个条 件为True时终止循环。该语句可以有两种格式，既可以在初始位置检验条 件是否成立，也可以在执行一遍循环体后的结束位置判断条件是否成立，判 断能否进入下一次循环。 （1）While/Until…Loop语句：该语句先判断条件，后执行循环体，循 环有可能一次也不执行。 （2）Do…Loop…While/Until语句：该语句先执行循环体，后判断条 件，循环至少执行一次。
With语句用于定制一个对象或用户自定义类型。 With语句不仅方便用户定制对象，也可增强代码的可读 性使程序结构更加清晰。With语句用于在一个单一对象 或一个用户定义类型上执行一系列的语句。该语句的使 用形式如下。 With object [statements] End With
综合实例
判断用户输入的一个数是否为素数。 分析：素数就是除1和本身以外，不能被其他任何 整数整除的数。根据此定义，要判别某数m是否为素数 ，最简单的方法就是依次用i=2～（m-1）去除，只要 有一个数能整除m，m就不是素数；否则m是素数。
Stop语句用于暂停程序的执行，通常用于调试程序。该语句的 使用形式如下。 Stop 可以在过程中的任何地方放置Stop语句，使用Stop语句就相当 于在程序代码中设置断点。 Stop语句会暂停程序的执行，但是其不像End语句那样，因为 Stop语句不会关闭任何文件，或清除变量，除非是以编译后的可执行 文件（.exe）方式来执行。也就是说，在将程序编译成可执行程序前 ，需要删除所有的Stop语句。
输入语句
Visual Basic中的数据输入主要通过文本框、列表框、组 合框、复选框等控件以及输入语句InputBox来实现。控件的 使用在后续章节中将详细介绍，这里主要介绍InputBox语句 的用法。事实上，InputBox是一个接收用户通过键盘输入数 据的函数，在需要接收数据时，调用该函数，并将接收到的 数据赋值给变量即可。
第3讲 流程控制语句
课程内容安排
– – – – – 顺序结构 选择结构 循环结构 其他流程控制语句 综合实例
顺序结构
顺序结构是程序结构中最简单的一种，同时也是最 基本的控制结构。任何程序都必须包含顺序结构。顺序 结构的特点是整个程序按书写顺序依次执行，即自上而 下依次运行。
语句块1
语句块2
赋值语句
赋值语句用于将表达式的值赋Fra bibliotek变量或对象的属性 ，是程序设计中最基本、最常用的语句。赋值语句的本 质就是将数值送到变量或者对象属性所在的存储单元中 ，通过Let关键字使用赋值运算符（=）给变量或对象属 性赋值。 [Let] 对象属性或变量 = 表达式 其作用是计算右边表达式的值，然后赋给左边的变 量或对象属性。表达式的类型应该与变量名的类型一致 。
顺序结构实例
该实例根据用户输入的半径，求出圆的面积，并取 两位小数，将结果显示在窗体上。 由于圆的半径需接收用户输入，因此可在Form的 单击事件中使用InputBox函数。取小数点后两位可使用 Format函数，显示在窗体上可使用Print方法。
选择结构
选择结构也称为分支结构。在该结构中，条件判定 语句起着流程控制的作用。在程序运行中，只有满足条 件才会执行某些语句，否则程序将按照另一个流程执行 。选择结构主要由条件判断组成，以达到控制程序流程 的目的。Visual Basic 6.0中提供了以下4种条件控制语 句。
While …End语句
While…Wend语句用于对条件进行判断。如果条件成立，可 以循环执行循环体，一直到Wend语句才回到While进行条件判断 ；如果条件不成立，则循环结束。每一个Wend语句都必须和前面 最近的While语句相匹配。该语句使用形式如下。 While条件表达式 语句块 [Exit While] [语句块] Wend
输出语句
在Visual Basic中，数据的输出有3种实现方法： Print方法、MsgBox函数和通过控件输出。通常，Print 方法主要用于输出在特定控件上。例如，Form.Print即 输出在窗体上，在上述实例中用到了该方法。MsgBox 函数则以对话框的形式输出信息，在后续章节中将会介 绍该函数。控件输出主要用于输出在数据控件上，如 Label1.Caption="Welcome to Visual Basic"表示在 Label控件上输出字符串。
其他流程控制语句
GoTo语句是无条件程序跳转语句，其功能是无条件地转移到标号 或行号指定的一行语句。该语句使用形式如下。 GoTo {标号|行号} End语句可以结束一个过程或块，独立的End语句用于结束一个程 序的运行，可以放在任何事件过程中。该语句使用形式如下。 End 此外，在Visual Basic 6.0中，还有多种形式的End语句，用于结束 一个过程或块，主要形式包括End If、End Select、End With、End Type、End Function、End Sub等，与对应的语句配对使用。
循环结构
循环结构是当程序要重复完成同一件事情时所采用 的结构。计算机可以不厌其烦地重复进行某一项工作无 数次，这就是循环控制的功能。循环是为了反复执行某 一段程序中的控制结构。许多实际问题都要用到循环控 制，如求多个数之和、输入或输出多个值等。Visual Basic 6.0中提供了如下3种循环结构的流程控制语句。
IF…Then语句
If...Then条件语句也称为单分支语句。该语句根据 表达式的值，当满足条件时执行包含的一组语句。该语 句使用形式如下。 If <表达式> Then 语句块 End If 该语句的功能为：当表达式的值为非零或True时， 执行Then后面的语句块（或语句），否则不进行任何 操作。