第3章流程控制结构_ok

1、 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构Visual BasicVisual Basic流程控制结构流程控制结构 第第 3 3 章章 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构主主 要要 内内 容容 3.2 3.2 选择结构选择结构 3.3 3.3 循环结构循环结构 3.1 3.1 顺序结构顺序结构 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规

2、划教材第第3 3章章 VBVB流程控制结构流程控制结构 3.1.1 3.1.1 赋值语句赋值语句 3.1.2 3.1.2 数据输出数据输出 3.1.3 3.1.3 数据输入数据输入 3.1 3.1 顺序结构顺序结构 3.1.4 3.1.4 顺序结构应用程序举例顺序结构应用程序举例 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 顺序结构是一种最简单的程序结构。这种结构顺序结构是一种最简单的程序结构。这种结构的程序按语句书写的顺序的程序按语句书写的顺序“从上到下从上到下”依次执行，依次执行，中间既没

3、有跳转语句，也没有循环语句。顺序结构中间既没有跳转语句，也没有循环语句。顺序结构程序由变量的声明语句、赋值语句、输入输出语句、程序由变量的声明语句、赋值语句、输入输出语句、计算语句等部分组成。计算语句等部分组成。 3.1 3.1 顺序结构顺序结构 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 赋值语句是程序设计语言中最基本的语句，也是使用最多的赋值语句是程序设计语言中最基本的语句，也是使用最多的语句，使用赋值语句可以在程序运行中改变对象的属性或变量的语句，使用赋值语句可以在程序运行中改变对象的属

4、性或变量的值。值。 赋值语句的形式为：赋值语句的形式为： 变量名变量名 = = 表达式表达式 或或 对象名对象名. . 属性名属性名 = = 表达式表达式 赋值语句的作用是首先计算赋值号右边的表达式的值，而后赋值语句的作用是首先计算赋值号右边的表达式的值，而后将计算出的值赋给赋值号左边的变量或对象的属性。将计算出的值赋给赋值号左边的变量或对象的属性。 在赋值语句中，在赋值语句中，“=”=”是赋值号，与数学上的等号意义不同。是赋值号，与数学上的等号意义不同。例如，有如下语句：例如，有如下语句： i = i + 1i = i + 1 该语句表示将变量该语句表示将变量i i的值加上的值加上1 1后的

5、结果再赋给变量后的结果再赋给变量i i，从而，从而使变量使变量i i的值增的值增1 1，而并非表示等号两边的值相等。，而并非表示等号两边的值相等。 3.1.1 3.1.1 赋值语句赋值语句 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 Visual Basic Visual Basic中主要有以下三种输出数据的方中主要有以下三种输出数据的方法，即：法，即： 使用使用PrintPrint方法输出方法输出 使用控件（文本框、标签）输出使用控件（文本框、标签）输出 使用消息对话框输出使用消息对话框输出

6、 1.Print1.Print方法方法 PrintPrint方法的格式为：方法的格式为： 对象名对象名.Print .Print 输出项输出项 3.1.2 3.1.2 数据输出数据输出 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构PrintPrint方法的说明：方法的说明：对象名对象名: :可以是窗体名称、图片框名称、打印机名称或可以是窗体名称、图片框名称、打印机名称或DebugDebug，若为，若为DebugDebug，则表示将结果输出到立即窗口中。如果省略对象名，则表示在当前窗体则表示将结果

7、输出到立即窗口中。如果省略对象名，则表示在当前窗体上输出。上输出。输出项输出项: :是需要输出的数据，可以是常量、变量或表达式。若为表达式，是需要输出的数据，可以是常量、变量或表达式。若为表达式，则先计算表达式的值，然后输出结果；如果是变量，则输出变量的值；则先计算表达式的值，然后输出结果；如果是变量，则输出变量的值；如果是常量，则直接输出该常量，对字符串常量来说，不会输出双引号。如果是常量，则直接输出该常量，对字符串常量来说，不会输出双引号。如果省略输出项，则输出一个空行。如果省略输出项，则输出一个空行。分隔符分隔符: :若要在同一行上输出多个数据项的值，则需要在若要在同一行上输出多个数据项

8、的值，则需要在PrintPrint后面书写后面书写多个数据项，且应使用逗号或分号进行分隔。此时多个数据项，且应使用逗号或分号进行分隔。此时PrintPrint方法的格式为：方法的格式为： 对象名对象名. Print . Print 输出项输出项1 , | ; 1 , | ; 输出项输出项2 , | ; 2 , | ; 输出项输出项3 3 当用逗号进行分隔各个输出项时，将按标准输出格式（两个输出项当用逗号进行分隔各个输出项时，将按标准输出格式（两个输出项的内容之间间隔的内容之间间隔1414个字符）显示数据；用分号分隔时，将按紧凑格式输个字符）显示数据；用分号分隔时，将按紧凑格式输出数据，即第二个

9、输出项的内容会紧随第一个输出项的内容之后输出。出数据，即第二个输出项的内容会紧随第一个输出项的内容之后输出。 3.1.2 3.1.2 数据输出数据输出 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 2. 2.与与PrintPrint方法有关的函数方法有关的函数 为使输出项按指定的格式输出，为使输出项按指定的格式输出，Visual BasicVisual Basic中提供了中提供了几个与几个与PrintPrint方法一起使用的函数，其中包括方法一起使用的函数，其中包括TabTab函数、函数、Spc

10、Spc函数和函数和FormatFormat等。等。TabTab函数函数 TabTab函数用来将插入点定位在某一列上，即在指定的位函数用来将插入点定位在某一列上，即在指定的位置输出数据，与置输出数据，与PrintPrint方法一起使用的格式为：方法一起使用的格式为： Print Tab(nPrint Tab(n); ); 输出项输出项SpcSpc函数函数 SpcSpc函数用于在输出的数据项之前插入若干个空格。与函数用于在输出的数据项之前插入若干个空格。与PrintPrint方法一起使用的格式为：方法一起使用的格式为： Print Spc(nPrint Spc(n); ); 输出项输出项 3.1.

11、2 3.1.2 数据输出数据输出 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构FormatFormat函数函数 FormatFormat为格式输出函数，用来将要输出的数据按照指定的格为格式输出函数，用来将要输出的数据按照指定的格式输出。式输出。FormatFormat函数的使用格式为：函数的使用格式为： Format(Format(表达式表达式, ,格式字符串格式字符串) ) 其中，表达式为要输出的数据，可以是数值型、日期型或字其中，表达式为要输出的数据，可以是数值型、日期型或字符串类型数据；格

12、式字符串是指输出的格式符串类型数据；格式字符串是指输出的格式, ,具体格式说明见教材具体格式说明见教材P52P52。ClsCls方法方法 ClsCls方法用于清除运行时在窗体或图片框内生成的图形和文本。方法用于清除运行时在窗体或图片框内生成的图形和文本。其使用格式为：其使用格式为： 对象名对象名.Cls.Cls 若省略对象名，则表示清除当前窗体上的显示内容。注意，若省略对象名，则表示清除当前窗体上的显示内容。注意，ClsCls方法无法清除在设计阶段添加到窗体上的控件或图片框中使用方法无法清除在设计阶段添加到窗体上的控件或图片框中使用PicturePicture属性设置的背景图片。属性设置的背景

13、图片。 3.1.2 3.1.2 数据输出数据输出 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构3.3.使用控件输出使用控件输出 Visual BasicVisual Basic中可使用标签和文本框输出数据。标签中可使用标签和文本框输出数据。标签控件只能用来显示信息，而不能用来输入信息；而文本框控件只能用来显示信息，而不能用来输入信息；而文本框控件既可以显示信息，也可以完成信息的输入。控件既可以显示信息，也可以完成信息的输入。使用标签控件进行输出使用标签控件进行输出标签中显示的信息是通过其标签中显

14、示的信息是通过其CaptionCaption属性进行设置的，可在属性进行设置的，可在属性窗口中设置，也可以通过程序代码进行设置。例如：属性窗口中设置，也可以通过程序代码进行设置。例如： Label1.Caption = Date & vbCrLfLabel1.Caption = Date & vbCrLf & Time & Time使用文本框进行输出使用文本框进行输出 通过文本框控件的通过文本框控件的TextText属性可实现数据的输出。例如：属性可实现数据的输出。例如： Text1.Text = Date & vbCrLfText1.Text = Da

15、te & vbCrLf & Time & Time 该语句表示在文本框该语句表示在文本框Text1Text1中分两行显示日期和时间。中分两行显示日期和时间。 3.1.2 3.1.2 数据输出数据输出 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 4. 4.使用消息对话框输出使用消息对话框输出 消息对话框可实现系统和用户之间的交互。消息对话框可通过消息对话框可实现系统和用户之间的交互。消息对话框可通过MsgBoxMsgBox函数或函数或MsgBoxMsgBox过程实现，过程

16、实现，MsgBoxMsgBox函数有返回值，且返回值为整函数有返回值，且返回值为整数；数；MsgBoxMsgBox过程没有返回值，常常用来输出信息。过程没有返回值，常常用来输出信息。 MsgBoxMsgBox函数的使用格式为：函数的使用格式为： 变量变量MsgBoxMsgBox( (提示信息提示信息 , , 按钮类型按钮类型 , , 标题标题) ) MsgBox MsgBox过程使用格式为：过程使用格式为： MsgBoxMsgBox 提示信息提示信息 , , 按钮类型按钮类型 , , 标题标题说明：说明： 提示信息提示信息: :是对话框中显示的信息，它是一个字符串表达式，可是对话框中显示的信息

17、，它是一个字符串表达式，可以为字符或汉字以为字符或汉字. . 按钮类型按钮类型: :用于确定对话框中显示的按钮数目、形式及图标的类用于确定对话框中显示的按钮数目、形式及图标的类型、默认按钮等。型、默认按钮等。 标题标题: :是一个字符串表达式，决定对话框标题栏显示的信息内容是一个字符串表达式，决定对话框标题栏显示的信息内容 3.1.2 3.1.2 数据输出数据输出 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 Visual Basic Visual Basic中可使用输入对话框函数或文本框控件实

18、现数据的输中可使用输入对话框函数或文本框控件实现数据的输入。入。 1.1.使用输入对话框函数使用输入对话框函数InputBoxInputBox输入数据输入数据 输入对话框使用输入对话框使用InputboxInputbox函数实现，函数实现， InputBoxInputBox函数的格式为：函数的格式为： InputBoxInputBox ( (提示信息提示信息 , , 标题标题 , , 默认值默认值 , x, x坐标坐标 , y, y坐标坐标) )该函数的作用是打开一个对话框，等待用户在对话框中输入数据，当用该函数的作用是打开一个对话框，等待用户在对话框中输入数据，当用户按下回车键或者单击户按下

19、回车键或者单击“确定确定”按钮时，函数将输入的内容作为字符串按钮时，函数将输入的内容作为字符串返回给变量。返回给变量。 提示信息是一个字符串表达式，不能省略，在对话框中作为提示信提示信息是一个字符串表达式，不能省略，在对话框中作为提示信息，可以为字符或汉字。息，可以为字符或汉字。 标题是一个字符串表达式，决定对话框标题栏显示的信息内容。标题是一个字符串表达式，决定对话框标题栏显示的信息内容。 默认值也是一个字符串表达式，决定对话框初始的输入内容。默认值也是一个字符串表达式，决定对话框初始的输入内容。 x x、y y坐标是整型表达式，用来决定输入对话框在屏幕上显示的位置坐标是整型表达式，用来决定

20、输入对话框在屏幕上显示的位置 3.1.3 3.1.3 数据输入数据输入 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 在使用在使用InputboxInputbox函数时应注意：函数时应注意： 各项参数的次序必须一一对应，除各项参数的次序必须一一对应，除“提示信息提示信息”不可省略不可省略外，其他项均为可选项，都可省略；但省略参数时，参数间的逗外，其他项均为可选项，都可省略；但省略参数时，参数间的逗号不能省略。号不能省略。 InputboxInputbox函数的返回值类型为字符型，程序设计时，通常

21、函数的返回值类型为字符型，程序设计时，通常将将InputBoxInputBox函数的返回值赋给某个变量，再通过这个变量使用函函数的返回值赋给某个变量，再通过这个变量使用函数的返回值。若要通过数的返回值。若要通过InputBoxInputBox函数得到数值型数据，可使用函数得到数值型数据，可使用ValVal函数进行类型转换或直接赋给数值型变量。函数进行类型转换或直接赋给数值型变量。 输入对话框中有两个按钮，即输入对话框中有两个按钮，即“确定确定”与与“取消取消”。若用。若用户单击户单击“确定确定”按钮或按下回车键时，按钮或按下回车键时，InputBoxInputBox函数返回输入的函数返回输入的

22、数据；如果单击数据；如果单击“取消取消”按钮或按按钮或按EscEsc键，则返回空字符串。键，则返回空字符串。 执行一次执行一次InputBoxInputBox函数只能输入一个值，若要输入多个数函数只能输入一个值，若要输入多个数据，则需要多次执行据，则需要多次执行InputBoxInputBox函数，实际应用中可与循环语句一函数，实际应用中可与循环语句一起使用。起使用。 3.1.3 3.1.3 数据输入数据输入 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 2. 2.使用文本框使用文本框TextB

23、oxTextBox控件输入数据控件输入数据 利用文本框控件的利用文本框控件的TextText属性，文本框控件不仅可实现数属性，文本框控件不仅可实现数据的输出，也可以实现数据的输入，即接收用户在文本框内据的输出，也可以实现数据的输入，即接收用户在文本框内输入的信息。输入的信息。 需要注意的是，需要注意的是，TextBoxTextBox 控件接收的数据为字符型，如控件接收的数据为字符型，如果需要对数值型数据进行处理，可通过果需要对数值型数据进行处理，可通过ValVal函数进行转换，函数进行转换，或直接将其赋值给数值型变量。如：或直接将其赋值给数值型变量。如： Text3.Text = Val(Te

24、xt1.Text) + Val(Text2.Text)Text3.Text = Val(Text1.Text) + Val(Text2.Text) 在该语句中，文本框在该语句中，文本框Text1Text1与与Text2Text2接收用户输入的数据，接收用户输入的数据，转换为数值型数据后进行求和运算，文本框转换为数值型数据后进行求和运算，文本框Text3Text3实现数据实现数据的输出。的输出。 3.1.3 3.1.3 数据输入数据输入 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 在编制程序时，

25、首先要根据需要处理的问题，在编制程序时，首先要根据需要处理的问题，规划和确定变量并进行定义和声明；之后通过变量规划和确定变量并进行定义和声明；之后通过变量的输入或赋值方法进行数据输入；接下来要进行计的输入或赋值方法进行数据输入；接下来要进行计算（或程序的处理），这是编制程序的核心，它用算（或程序的处理），这是编制程序的核心，它用于完成程序的功能；最后要将计算或处理的结果进于完成程序的功能；最后要将计算或处理的结果进行输出。一个程序一般都是由这行输出。一个程序一般都是由这4 4部分构成的，即：部分构成的，即：变量的声明、变量的输入或赋值、计算（程序处变量的声明、变量的输入或赋值、计算（程序处理）

26、、结果的输出。请读者在编制程序时，也按照理）、结果的输出。请读者在编制程序时，也按照这样的结构来组织程序。这样的结构来组织程序。 3.1.4 3.1.4 顺序结构应用程序举例顺序结构应用程序举例 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构例例3.5 编写程序，输入圆柱体的半径与高，输出其表面积和编写程序，输入圆柱体的半径与高，输出其表面积和体积。体积。程序代码为：程序代码为：Private Sub Command1_Click() Dim r As Single, h As Single声明变

27、量声明变量r表示半径，表示半径，h表示高表示高 Dim area As Single, v As Single 声明变量声明变量area表示表面积，表示表面积，v表示体积表示体积 r = InputBox(请输入半径请输入半径 )输入半径输入半径 h = InputBox(请输入高度请输入高度)输入高输入高 area = 2 * 3.14 * r * r + 2 * 3.14 * r * h 计算表面积计算表面积 v = 3.14 * r * r * h 计算体积计算体积 Print 圆柱体的半径为圆柱体的半径为: & r; 高为高为: & h 输出半径与高输出半径与高 Pri

28、nt 表面积为表面积为: & area 输出表面积输出表面积 Print 体积为体积为: & v 输出体积输出体积End Sub 3.1.4 3.1.4 顺序结构应用程序举例顺序结构应用程序举例 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构例例3.6 输入三角形的三个边（假定可构成三角形），求三角形的面输入三角形的三个边（假定可构成三角形），求三角形的面积。三角形面积公式为：积。三角形面积公式为： ，其中，其中 ，A、B、C为三边之长为三边之长程序代码为：程序代码为：Privat

29、e Sub Command1_Click() Dim a As Single, b As Single, c As Single声明变量声明变量 Dim s As Single, area As Single a = Text1输入输入 b = Text2 c = Text3 s = (a + b + c) / 2计算计算 area = Sqr(s * (s - a) * (s - b) * (s - c) Label2 = 三角形的面积为三角形的面积为: & area输出输出End Sub 3.1.4 3.1.4 顺序结构应用程序举例顺序结构应用程序举例 )()(CSBSASSARE

30、A2CBAS Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构例例3.7 输入两个整数，将其值交换后输出。例如若变量输入两个整数，将其值交换后输出。例如若变量a、b的的值分别值分别1、2，则交换后，则交换后a的值为的值为2，b的值为的值为1。程序代码为：程序代码为：Private Sub Command1_Click() Dim a As Integer, b As Integer, t As Integer声明变量声明变量 a = Text1输入输入 b = Text2 t = a将将a的值赋给的

31、值赋给t，即即t保存保存a的值的值 a = b将将b的值的值赋给赋给a，则，则a的值变为的值变为b b = t将将t的值赋给的值赋给b Label2 = 交换后的值为交换后的值为: & a & , & b输出输出End Sub 3.1.4 3.1.4 顺序结构应用程序举例顺序结构应用程序举例 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构例例3.8 输入一个输入一个4位正整数，输出各位数字之和。例如若输入位正整数，输出各位数字之和。例如若输入2134，则输出结果为则输出结果

32、为10（即（即2+1+3+4）。）。程序代码为：程序代码为：Private Sub Command1_Click() Dim x As Integer, s As Integer声明变量声明变量 Dim a As Integer, b As Integer Dim c As Integer, d As Integer x = InputBox(请输入一个四位正整数请输入一个四位正整数)输入输入 a = x Mod 10得到个位数得到个位数 b = x 10 Mod 10得到十位数得到十位数 c = x 100 Mod 10得到百位数得到百位数 d = x 1000得到千位数得到千位数 s =

33、a + b + c + d求和求和 Print x; 的各位数字之和为：的各位数字之和为：; s 输出输出End Sub 3.1.4 3.1.4 顺序结构应用程序举例顺序结构应用程序举例 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 3.2 3.2 选择结构选择结构 3.2.1 If 3.2.1 If语句语句 3.2.2 Select Case 3.2.2 Select Case语句语句 3.2.3 3.2.3 条件函数条件函数 3.2.4 3.2.4 选择结构程序设计举例选择结构程序设计举例

34、Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 在实际应用中，有许多问题是根据不同的条件在实际应用中，有许多问题是根据不同的条件来选择执行不同的操作。例如，根据成绩进行输来选择执行不同的操作。例如，根据成绩进行输出，当成绩为出，当成绩为6060分以上时，输出分以上时，输出“合格合格”，小于，小于6060分时，则输出分时，则输出“不合格不合格”。根据成绩值的不同，。根据成绩值的不同，进行选择来执行不同的输出操作，这样的程序结进行选择来执行不同的输出操作，这样的程序结构称为选择结构或分支结构。构称为选

35、择结构或分支结构。 Visual BasicVisual Basic中通过中通过IfIf语句和语句和Select CaseSelect Case语句语句实现选择结构，它们都是对某个条件进行判断，实现选择结构，它们都是对某个条件进行判断，而后选择执行不同的分支。而后选择执行不同的分支。 3.2 3.2 选择结构选择结构 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 在选择结构中，可以根据程序分支在选择结构中，可以根据程序分支的数目，分为单分支结构、双分支结的数目，分为单分支结构、双分支结构和多分支

36、结构。构和多分支结构。If语句可实现单分支、语句可实现单分支、双分支和多分支结构。双分支和多分支结构。 1.单分支结构单分支结构 单分支结构是指只有一个程序分支，单分支结构是指只有一个程序分支，只有满足指定的条件才能执行该程序只有满足指定的条件才能执行该程序分支的语句。分支的语句。If语句实现单分支结构，语句实现单分支结构，可有两种形式：可有两种形式： 形式形式1： If 表达式表达式 Then 语句组语句组 End If 形式形式2： If 表达式表达式 Then 语句语句 3.2.1 If 3.2.1 If语句语句 真真假假语句（组）语句（组）表达式表达式 单分支结构流程图单分支结构流程图

37、该语句在执行时，首先计算表达该语句在执行时，首先计算表达式，若表达式的值为真，则执行式，若表达式的值为真，则执行Then后面的语句组，若表达式的后面的语句组，若表达式的值为假，则跳过值为假，则跳过Then后面的语句，后面的语句，执行执行End If后面的语句。后面的语句。 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构单分支结构的说明：单分支结构的说明： 1.1.表达式可为关系表达式、逻辑表达式或数值表达表达式可为关系表达式、逻辑表达式或数值表达式。当表达式是数值表达式时，非零值表示式。当表达式是

38、数值表达式时，非零值表示True True ，0 0表表示示FalseFalse。 2.2.在形式在形式1 1中，语句组可以为一条或多条语句。在中，语句组可以为一条或多条语句。在形式形式2 2中，语句表示一条语句，若为多条语句，则必须中，语句表示一条语句，若为多条语句，则必须使用冒号使用冒号: : 进行分隔，即语句必须与进行分隔，即语句必须与ThenThen写在同一行上。写在同一行上。 3.3.在形式在形式1 1中，必须以中，必须以End IfEnd If语句结束；形式语句结束；形式2 2为单为单行结构，要求语句都写在一行上，且不能以行结构，要求语句都写在一行上，且不能以End IfEnd I

39、f语句语句结束。结束。 3.2.1 If 3.2.1 If语句语句 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 2.2.双分支结构双分支结构 双分支结构表示程序有两个分支，双分支结构表示程序有两个分支，当满足给定条件时，执行分支当满足给定条件时，执行分支1 1，否，否则执行分支则执行分支2 2。IfIf语句实现双分支结语句实现双分支结构也有两种语句形式：构也有两种语句形式： 形式形式1 1： If If 表达式表达式 ThenThen 语句组语句组1 1 Else Else 语句组语句组2 2

40、 End If End If 形式形式2 2为：为： If If 表达式表达式 Then Then 语句语句1 Else 1 Else 语句语句2 2 3.2.1 If 3.2.1 If语句语句 该语句在执行时，首先计算表达式，该语句在执行时，首先计算表达式，若表达式的值为真，执行若表达式的值为真，执行ThenThen后面后面的语句组的语句组1 1（或语句（或语句1 1）；否则跳过）；否则跳过语句组语句组1 1（或语句（或语句1 1），执行），执行ElseElse后后面的语句组面的语句组2 2（或语句（或语句2 2）。）。使用时应注意在形式使用时应注意在形式1 1中的中的ElseElse后不后

41、不能增加表达式。能增加表达式。假假真真语句语句(组组)1语句语句(组组)2表达式表达式双分支结构流程图双分支结构流程图 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 3.3.多分支结构多分支结构 在实际问题中常常会遇到多个条在实际问题中常常会遇到多个条件，此时就要用到多分支。件，此时就要用到多分支。IfIf语句语句实现多分支结构的形式为：实现多分支结构的形式为： If If 表达式表达式1 Then 1 Then 语句组语句组1 1 ElseIf ElseIf 表达式表达式2 Then2 The

42、n 语句组语句组2 2 ElseIf ElseIf 表达式表达式n Thenn Then 语句组语句组 n n Else Else 语句组语句组n+1n+1 End If End If 3.2.1 If 3.2.1 If语句语句 假假 真真 真真 真真表达式表达式1表达式表达式n语句组语句组1语句组语句组2语句组语句组n语句组语句组n+1多分支结构流程图多分支结构流程图表达式表达式2假假 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 执行多分支结构该语句时，首先计算表达式执行多分支结构该语句时，

43、首先计算表达式1 1，若表达式，若表达式1 1的值为真，的值为真，则执行语句组则执行语句组1 1，而后退出，而后退出IfIf语句，执行语句，执行End If End If 后面的语句；若表达式后面的语句；若表达式1 1的值为假，则计算表达式的值为假，则计算表达式2 2；若表达式；若表达式2 2的值为真，则执行语句组的值为真，则执行语句组2 2，而后，而后退出退出IfIf语句，执行语句，执行End If End If 后面的语句；若表达式后面的语句；若表达式2 2的值为假，则计算表的值为假，则计算表达式达式3 3；以此类推，若表达式；以此类推，若表达式n n的值为真，则执行语句组的值为真，则执行

44、语句组n n，而后退，而后退出出IfIf语句，执行语句，执行End If End If 后面的语句；若表达式后面的语句；若表达式n n的值为假，则执行的值为假，则执行ElseElse后面的语句组后面的语句组n+1n+1，而后执行，而后执行End IfEnd If后面的语句。需要注意：后面的语句。需要注意： 无论有几个分支，程序一旦执行了某一个分支则退出无论有几个分支，程序一旦执行了某一个分支则退出IfIf语句，其语句，其余分支不再执行。余分支不再执行。 ElseIfElseIf子句的数量没有限制，可以根据需要使用任意多个子句的数量没有限制，可以根据需要使用任意多个ElseIfElseIf子句。

45、子句。 ElseElse后不能有表达式，后不能有表达式，ElseElse表示以上表达式均为假时则执行其下表示以上表达式均为假时则执行其下面的语句组。面的语句组。 ElseElse及其后的语句组可以省略。及其后的语句组可以省略。 ElseIfElseIf 不能写作不能写作Else IfElse If。 3.2.1 If 3.2.1 If语句语句 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 4.If 4.If语句的嵌套语句的嵌套 在实现选择结构时，在实现选择结构时，若各个分支的语句组中若各个分支的

46、语句组中又包含另一个分支结构，又包含另一个分支结构，则成为选择结构的嵌套。则成为选择结构的嵌套。由于在由于在IfIf语句中又嵌套语句中又嵌套了另外的了另外的IfIf语句，因此语句，因此会形成更多的程序分支，会形成更多的程序分支，所以，所以，IfIf语句的嵌套也语句的嵌套也可实现多分支结构。可实现多分支结构。 3.2.1 If 3.2.1 If语句语句 If 表达式表达式1 Then If 表达式表达式2 Then语句组语句组1 Else语句组语句组2 End IfElse If 表达式表达式3 Then 语句组语句组3 Else 语句组语句组4 End IfEnd If内内层层内内层层外外层层

47、两层嵌套的两层嵌套的If语句语句 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 Select Case Select Case语句也称为情语句也称为情况语句，是多分支结构的另况语句，是多分支结构的另一种表示形式。一种表示形式。Select Case Select Case 语句的格式如下：语句的格式如下：Select Case Select Case 测试表达式测试表达式 Case Case 表达式列表表达式列表1 1 语句组语句组1 1 Case Case 表达式列表表达式列表2 2 语句组语

48、句组2 2 Case Case 表达式列表表达式列表n n 语句组语句组n n Case Else Case Else 语句组语句组n+1n+1End SelectEnd Select 3.2.2 Select Case 3.2.2 Select Case语句语句 Select Case语句的流程图语句的流程图FTFF表达式列表表达式列表n语句组语句组n+1语句组语句组nT表达式列表表达式列表2语句语句组组2T表达式列表表达式列表1语句组语句组1计算测试表达式的值计算测试表达式的值 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章

49、VBVB流程控制结构流程控制结构 Select Case Select Case语句的功能是根据测试表达式的值，语句的功能是根据测试表达式的值，从多个语句组中选择符合条件的一个语句组执行。从多个语句组中选择符合条件的一个语句组执行。 Select CaseSelect Case语句的执行过程首先计算测试表达式语句的执行过程首先计算测试表达式的值，然后将计算的结果与每个的值，然后将计算的结果与每个CaseCase后的表达式列后的表达式列表的值进行比较，如果有相匹配的，就执行该表的值进行比较，如果有相匹配的，就执行该CaseCase下面的语句组，执行完该语句组后则退出下面的语句组，执行完该语句组后

50、则退出Select Select CaseCase语句，不再与后面的表达式列表比较；若测试语句，不再与后面的表达式列表比较；若测试表达式的值没有找到匹配项，则执行表达式的值没有找到匹配项，则执行Case ElseCase Else语句语句后面的语句组，而后退出后面的语句组，而后退出Select CaseSelect Case语句；若无语句；若无Case ElseCase Else，则直接退出，则直接退出Select CaseSelect Case语句。语句。 3.2.2 Select Case 3.2.2 Select Case语句语句 Visual BasicVisual Basic程序设计

51、程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构说明：说明： 测试表达式可以是各类表达式，还可以是常量、变量或对象属性测试表达式可以是各类表达式，还可以是常量、变量或对象属性值，通常为变量。值，通常为变量。 CaseCase后的表达式列表的类型必须与测试表达式值的类型相同。表后的表达式列表的类型必须与测试表达式值的类型相同。表达式列表通常有四种形式：达式列表通常有四种形式：单个表达式、一组用逗号隔开的枚举值、单个表达式、一组用逗号隔开的枚举值、某个范围某个范围及及IsIs关系运算表达式关系运算表达式。 当有多个当有多个CaseCase子句的值与测试表达式

52、的值匹配时，只执行第一个子句的值与测试表达式的值匹配时，只执行第一个与之匹配的语句组。与之匹配的语句组。 Case ElseCase Else及其对应的语句组放在所有及其对应的语句组放在所有CaseCase的表达式列表的下面，的表达式列表的下面，它们用于指定当测试表达式的值与所有表达式列表都不匹配时所执它们用于指定当测试表达式的值与所有表达式列表都不匹配时所执行的操作。行的操作。 SelectSelect表示表示Select CaseSelect Case语句的开始，语句的开始， End SelectEnd Select表示表示Select Select CaseCase语句的结束，它们必须成

53、对出现。语句的结束，它们必须成对出现。 语句组可由一行或多行语句组成，还可以是语句组可由一行或多行语句组成，还可以是IfIf语句或其他语句或其他Select Select CaseCase语句等。语句等。 3.2.2 Select Case 3.2.2 Select Case语句语句 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 Visual Basic Visual Basic中提供了中提供了IIfIIf条件函数用于实现简单条件函数用于实现简单的条件选择，它是双分支选择结构的另一种表达形式。的

54、条件选择，它是双分支选择结构的另一种表达形式。IIfIIf函数的格式为：函数的格式为： IIfIIf ( (表达式表达式1, 1, 表达式表达式2, 2, 表达式表达式3)3) IIf IIf函数在执行时，首先计算表达式函数在执行时，首先计算表达式1 1的值，当表达的值，当表达式式1 1的值为真时，计算表达式的值为真时，计算表达式2 2的值，并将其作为的值，并将其作为IIfIIf函函数的返回值；当表达式数的返回值；当表达式1 1的值为假时，计算表达式的值为假时，计算表达式3 3的值，的值，并将其作为并将其作为IIfIIf函数的返回值。函数的返回值。 说明：三个表达式均不能省略，且可为任意表达式

55、。说明：三个表达式均不能省略，且可为任意表达式。 3.2.3 3.2.3 条件函数条件函数 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构例例3.193.19 输入三个数，将其按从小到大的顺序输出。输入三个数，将其按从小到大的顺序输出。（P76P76）例例3.203.20 编写程序，输入年份，判断该年是否为闰年。编写程序，输入年份，判断该年是否为闰年。(P77)(P77)例例3.213.21 编写程序，输入个人收入编写程序，输入个人收入salarysalary，计算个人，计算个人所得税所得税tax

56、tax并输出。并输出。(P78)(P78)例例3.223.22 编写程序，输入数据与运算符（编写程序，输入数据与运算符（+ +、- -、* *、/ /），输出运算结果，实现加减乘除四则运算。若除），输出运算结果，实现加减乘除四则运算。若除数为数为0 0或运算符输入错误，则给出提示信息。或运算符输入错误，则给出提示信息。(P78)(P78) 3.2.4 3.2.4 选择结构程序设计举例选择结构程序设计举例 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 3.3 3.3 循环结构循环结构 3.3.1

57、For 3.3.1 For循环语句循环语句 3.3.2 Do 3.3.2 Do循环语句循环语句 3.3.3 While 3.3.3 While循环语句循环语句 3.3.4 3.3.4 循环的强制退出循环的强制退出 3.3.5 3.3.5 循环的嵌套循环的嵌套 3.3.6 3.3.6 几种循环结构的比较几种循环结构的比较 3.3.7 3.3.7 循环结构应用程序举例循环结构应用程序举例 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB流程控制结构流程控制结构 在许多问题中，常常需要将某个程序段反复执行多次，在许多问题中，常常

58、需要将某个程序段反复执行多次，如果在这类程序中安排多个重复的语句序列，就会使程序冗如果在这类程序中安排多个重复的语句序列，就会使程序冗长并浪费计算机存储空间。为了解决这个问题，长并浪费计算机存储空间。为了解决这个问题，Visual Visual BasicBasic中提供了循环语句来实现程序段的多次反复执行，从中提供了循环语句来实现程序段的多次反复执行，从而简化程序结构，节省计算机存储空间。在循环结构中需要而简化程序结构，节省计算机存储空间。在循环结构中需要反复执行的语句称为循环体。循环结构是结构化程序设计的反复执行的语句称为循环体。循环结构是结构化程序设计的三种基本结构之一，它和顺序结构、选

59、择结构一起成为各种三种基本结构之一，它和顺序结构、选择结构一起成为各种复杂程序的基本构造单元。复杂程序的基本构造单元。 在在Visual BasicVisual Basic中，有两种类型的循环语句，一种是循中，有两种类型的循环语句，一种是循环次数已知的循环语句，即环次数已知的循环语句，即ForFor语句，一种是由条件控制的语句，一种是由条件控制的循环语句，相应的语句为循环语句，相应的语句为DoDo语句和语句和WhileWhile语句。语句。 3.3 3.3 循环结构循环结构 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第3 3章章 VBVB

60、流程控制结构流程控制结构 For For循环语句适用于循环次数已知的循环结构，其一般格式为：循环语句适用于循环次数已知的循环结构，其一般格式为： For For 循环变量循环变量 = = 初值初值 To To 终值终值 Step Step 步长步长 循环体循环体 Next Next 循环变量循环变量 3.3.1 For 3.3.1 For循环语句循环语句 For For语句的执行过程为：首语句的执行过程为：首先将初值赋给循环变量，然后检先将初值赋给循环变量，然后检查循环变量的值是否在初值到终查循环变量的值是否在初值到终值范围内，若超出了该范围，则值范围内，若超出了该范围，则结束循环，执行结束循环，执行NextNext后面的语句；后面的语句；如果没有超过该范围，则执行一如果没有超过该范围，则执行一次循环体，而