教学课件第4章 程序控制结构.ppt

《教学课件第4章 程序控制结构.ppt》由会员分享，可在线阅读，更多相关《教学课件第4章 程序控制结构.ppt（55页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1第第4章章程序控制结构程序控制结构 2程序控制结构程序控制结构n本章内容：本章内容：n程序的程序的3种基本结构：顺序结构、选择结构和循环种基本结构：顺序结构、选择结构和循环结构结构nVisual Basic语言实现这语言实现这3种基本结构的语句种基本结构的语句n如何利用这如何利用这3种基本结构设计结构化程序种基本结构设计结构化程序 3学习目标学习目标 n理解结构化程序设计的三种基本结构和三种基理解结构化程序设计的三种基本结构和三种基本结构的嵌套方式本结构的嵌套方式n掌握赋值、掌握赋值、InputBox函数、函数、MsgBox函数、函数、Print方法的使用，条件表达式的构建方法，方法的使用，

2、条件表达式的构建方法，选择结构和循环结构程序设计的要点选择结构和循环结构程序设计的要点n熟练掌握熟练掌握If、Select、For、Do、While语句和语句和IIf函数的应用，能够用它们实现算法，编写应函数的应用，能够用它们实现算法，编写应用程序用程序 44.1 顺序结构顺序结构 n顺序结构是按照程序中语句的书写顺序依次执行顺序结构是按照程序中语句的书写顺序依次执行语句的程序结构语句的程序结构n顺序结构不含流程的跳转顺序结构不含流程的跳转nVB中顺序结构主要由赋值和过程调用构成中顺序结构主要由赋值和过程调用构成语句组语句组1语句组语句组25赋赋 值值 n赋值语句的格式赋值语句的格式n Let

3、 = n功能：计算赋值号（功能：计算赋值号（“=”）又边表达式的值，把计算结果赋给左边）又边表达式的值，把计算结果赋给左边的变量或对象属性的变量或对象属性 n例如：例如：nx = a + 2 * b - c / 5nText1.Text = VB程序设计程序设计 n说明说明n“=”是赋值号，表示值的赋予操作，不同于关系运算符是赋值号，表示值的赋予操作，不同于关系运算符“=” n赋值号左边只能是一个变量或一个对象的属性，不能是表达式或赋值号左边只能是一个变量或一个对象的属性，不能是表达式或常量常量 n赋值号右边表达式值的数据类型应与左边变量的类型一致，当不赋值号右边表达式值的数据类型应与左边变量

4、的类型一致，当不一致时，有些类型可以自动转换为变量的类型，有些则出错一致时，有些类型可以自动转换为变量的类型，有些则出错 n赋值一般用来实现表达式的计算，用在循环中还可以实现计数、赋值一般用来实现表达式的计算，用在循环中还可以实现计数、累加、累乘、阶乘、累除等运算累加、累乘、阶乘、累除等运算 6赋赋 值值n例例4-1 根据给定的圆半径，计算圆的面积和周长根据给定的圆半径，计算圆的面积和周长n程序代码程序代码Private Sub Command1_Click() Const PI = 3.14159 radius = Val(Text1.Text) Label1.Caption = radiu

5、s * radius * PI Label2.Caption = 2 * radius * PIEnd Sub 7赋赋 值值n例例4-2 将同类型变量将同类型变量a、b中的数据进行交换中的数据进行交换n程序代码程序代码c = aa = bb = c a cb ac b8数据的输入数据的输入 nInputBox函数函数 nInputBox函数的调用格式函数的调用格式nInputBox(, , )n其中其中n提示：是对话框上显示的字符串，一般用于提示用户输提示：是对话框上显示的字符串，一般用于提示用户输入什么数据入什么数据n标题：对话框标题栏上显示的标题标题：对话框标题栏上显示的标题n默认值：默认

6、值将自动显示在对话框的输入框中，作为默认值：默认值将自动显示在对话框的输入框中，作为默认的输入值，但可以被实际输入的数据所替换默认的输入值，但可以被实际输入的数据所替换nx，y坐标位置：对话框左上角在窗体中显示的位置坐标坐标位置：对话框左上角在窗体中显示的位置坐标9数据的输出数据的输出 n输出方式输出方式n输出到对象上输出到对象上n标签标签 为为Caption属性赋值属性赋值n文本框文本框 为为Text属性赋值属性赋值n使用使用Print方法输出方法输出n利用消息对话框利用消息对话框MsgBox函数和过程输出函数和过程输出 10窗体和图片框的窗体和图片框的Print方法方法nPrint方法的调

7、用格式方法的调用格式n.Print ；| ，n功能：计算各个表达式，按照指定的格式在对象上输出功能：计算各个表达式，按照指定的格式在对象上输出n对象名：可以是窗体或图片框的名称，缺省则表示窗体对象名：可以是窗体或图片框的名称，缺省则表示窗体n 表达式列表：是输出项，是表达式列表：是输出项，是1个表达式或用个表达式或用“；”或或“，”隔开的多个表达式，表达式的类型不限隔开的多个表达式，表达式的类型不限n 分隔符分隔符“；”和和“，”：定位当前位置，决定下一次：定位当前位置，决定下一次Print的输出位置的输出位置n“；”使当前位置定位在上一个显示的数据之后使当前位置定位在上一个显示的数据之后n“

8、，”使当前位置定位在下一个打印区（每个打印区使当前位置定位在下一个打印区（每个打印区14列）列）的启始位置的启始位置n表达式列表的最后无分隔符，则输出后换行，当前位置定表达式列表的最后无分隔符，则输出后换行，当前位置定位在下一行的左端位在下一行的左端 11Print方法方法n例例4-3 运行下面的代码，了解运行下面的代码，了解Print的输出格式的输出格式 Private Sub Form_Click() Print 123; abc最后无分隔符表示换行最后无分隔符表示换行 Print Name, Age2个字符串输出在个字符串输出在2个打印区个打印区 Print Jack, 21使用使用“,

9、”可以保证与上一行各列对齐可以保证与上一行各列对齐 Print输出一个空行输出一个空行 Print VB; 紧凑格式，当前位置在输出项之后紧凑格式，当前位置在输出项之后 Print “程序设计程序设计”,在在“VB”之后输出之后输出 当前位置移到本行下一个打印区当前位置移到本行下一个打印区 Print Print方法方法与上与上2个个Print输出在同一行输出在同一行 End Sub12Print方法方法nTab函数函数n调用格式调用格式nTab()nn是整数表达式是整数表达式n功能功能n把当前位置定位到从对象左端算起的第把当前位置定位到从对象左端算起的第n列的位置列的位置Private Su

10、b Form_Click() Print Num; Tab(10); Name; Tab(20); Age Print Tab(10); Jack; Tab(20); 21End Sub 13Print方法方法nFormat格式输出函数格式输出函数n在在Print方法中，用来控制各种类型数据的输出格式方法中，用来控制各种类型数据的输出格式n调用格式调用格式nFormat（, ）n表达式是在表达式是在Print方法中要输出的输出项方法中要输出的输出项 n格式字符串用来控制表达式的输出格式格式字符串用来控制表达式的输出格式 例例 输出输出 Print Format(12, 000.0) 012.0

11、 Print Format(1234.56, #.#) 1234.6 Print Format(12, #.#) 12 14消息对话框消息对话框MsgBox函数和过程函数和过程 nMsgBox既可以作为函数使用，也可以作为过程既可以作为函数使用，也可以作为过程使用使用n弹出一个消息对话框，显示一条消息并接收用户弹出一个消息对话框，显示一条消息并接收用户的选择，然后返回用户的选择的选择，然后返回用户的选择n作为函数调用作为函数调用MsgBox nMsgBox( , , ) n“提示信息提示信息”显示在消息对话框上的字符串显示在消息对话框上的字符串n“标题标题”消息对话框的标题消息对话框的标题n“

12、对话框样式对话框样式”对话框上显示的图标和按钮组对话框上显示的图标和按钮组合合 15MsgBox中中样式的值和含义样式的值和含义 样样 式式值值系统符号常量系统符号常量含含 义义按钮按钮组合组合 0vbOKOnly只显示只显示“OK”（确定）按钮，是默认值（确定）按钮，是默认值1vbOKCancelvbOKCancel显示显示“OK”、“Cancel”（取消）按钮（取消）按钮2vbAbortRetryIgnore显示显示“Abort”（终止）、（终止）、“Retry”（重试）、（重试）、“Ignore”（忽略）（忽略）按钮按钮3vbAbortRetryIgnore显示显示“Abort”（终止）

13、、（终止）、“Retry”（重试）、（重试）、“Ignore”（忽略）（忽略）按钮按钮4vbAbortRetryIgnore显示显示“Abort”（终止）、（终止）、“Retry”（重试）、（重试）、“Ignore”（忽略）（忽略）按钮按钮5vbAbortRetryIgnore显示显示“Abort”（终止）、（终止）、“Retry”（重试）、（重试）、“Ignore”（忽略）（忽略）按钮按钮图标图标类型类型 16vbCritical显示显示 图标图标 32vbQuestion显示显示 图标图标48vbExclamation显示显示 图标图标64vbInformation显示显示 图标图标默认默

14、认按钮按钮 0vbDefaultButton1第第1个按钮是默认值个按钮是默认值 256vbDefaultButton2第第2个按钮是默认值个按钮是默认值 16MsgBox函数函数n例如例如 nx = MsgBox(按钮与图标按钮与图标, vbOKCancel, 消息对话框消息对话框) nx = MsgBox(产生错误！产生错误！, vbAbortRetryIgnore + vbCritical, 提示提示) nx = MsgBox(是否继续？是否继续？, vbYesNo + vbQuestion + vbDefaultButton2) 17MsgBox函数的返回函数的返回值值 按按 下下 的

15、的 按按 钮钮返返 回回 值值系系 统统 常常 量量“OK”（“确定确定”）1vbOK“Cancel”（“取消取消”）2vbCancel“Abort”（“终止终止”）3vbAbort“Retry”（“重试重试”）4vbRetry“Ignore”（“忽略忽略”）5vbIgnore“Yes”（“是是”）6vbYes“NO”（“否否”）7vbNO18MsgBox过程过程n调用格式调用格式 nMsgBox , , n“提示信息提示信息”、“对话框样式对话框样式”、”标题标题”的含义的含义与与MsgBox函数相同函数相同n没有返回值没有返回值19MsgBox应用应用n例例4-5 分析下面事件过程的执行结

16、果分析下面事件过程的执行结果 Private Sub Command1_Click() Dim name$, sex$ name = InputBox(请输入姓名请输入姓名) sex = InputBox(请输入性别请输入性别, , 男男) x = MsgBox(请确认：请确认： & Chr(13) & 姓名：姓名： & name & Chr(13) _ & 性别：性别： & sex, vbQuestion + vbYesNoCancel, 确认确认) If x = vbYes Then Print 姓名：姓名：; name, 性别：性别：; sex End If If x = vbCance

17、l Then MsgBox 您放弃了输入您放弃了输入, vbExclamation, 提示提示 End IfEnd Sub 20注释、暂停与结束语句注释、暂停与结束语句n注释语句注释语句nRem | n暂停语句暂停语句nStopn结束语句结束语句nEndn结束当前程序的运行，关闭当前程序打开的窗体结束当前程序的运行，关闭当前程序打开的窗体和所有数据文件和所有数据文件 214.2 选择结构选择结构 条件条件P语句组语句组1语句组语句组2TF22条件的描述条件的描述 n条件由一个关系表达式或逻辑表达式来描述，称为条件表达式条件由一个关系表达式或逻辑表达式来描述，称为条件表达式 n表达式的值为表达式

18、的值为True或或False，表示条件满足或不满足，表示条件满足或不满足n例例4-6 按下面的要求写出条件表达式按下面的要求写出条件表达式 判断整型变量判断整型变量value是否为偶数是否为偶数 x能同时被能同时被3和和5整除整除 线段线段a、b、c是否可以构成一个三角形是否可以构成一个三角形 判断判断ch中的字符是否为大写字母中的字符是否为大写字母 判断判断x是否在是否在1，10区间内区间内 判断年份判断年份year是否是闰年。满足下面条件之一的年份是闰年是否是闰年。满足下面条件之一的年份是闰年n 能被能被4整除，但不能被整除，但不能被100整除整除n 能被能被400整除整除 判断（字符串）

19、变量判断（字符串）变量“姓名姓名”中的人名是否姓中的人名是否姓“张张” 设有设有“性别性别”（字符型）、（字符型）、“年龄年龄”（整型）、（整型）、“博士导师博士导师”（逻辑型）（逻辑型）3个变量，根据变量的值判断所代表的职工是否满个变量，根据变量的值判断所代表的职工是否满足退休条件。退休条件是：博士导师为足退休条件。退休条件是：博士导师为62岁，其他人，男职工岁，其他人，男职工为为60岁，女职工为岁，女职工为55岁岁 23条件的描述条件的描述n条件表达式为条件表达式为value Mod 2 = 0 x Mod 3 = 0 And x Mod 5 = 0a+bc And a+cb And b+

20、caA = ch And ch = Z1 = x And x = 10year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0Left(姓名姓名, 1) = 张张 或或 Left(姓名姓名, Len(张张) = 张张博士导师博士导师 And 年龄年龄 = 62 Or Not 博士导师博士导师 And _ (性别性别 = 男男 And 年龄年龄 = 60 Or 性别性别 = 女女 _ And 年龄年龄 = 55)24条件语句条件语句 If语句语句 n格式格式1（单行（单行If语句）：语句）：nIf Then Else n格式格式2（块（块If语句

21、）：语句）：nIf Thenn nElse: n nEnd Ifn省略省略Else分支的格式分支的格式nIf Then n或：或：nIf Then nnEnd If 25条件语句条件语句 If语句语句n例例4-7 按下列要求写出按下列要求写出If语句语句如果整型变量如果整型变量value中的数值是偶数，则输出，中的数值是偶数，则输出，否则不输出否则不输出若线段若线段a、b、c可以构成一个三角形，则输出可以构成一个三角形，则输出三角形的面积，否则输出不能构成三角形的三角形的面积，否则输出不能构成三角形的提示信息提示信息若若ch中的字符是大写字母，则转换为小写字中的字符是大写字母，则转换为小写字母

22、，并输出母，并输出输出年份输出年份year是否是闰年是否是闰年按照例按照例4-6中中 的退休条件，输出该职工是的退休条件，输出该职工是否应该退休的信息否应该退休的信息 26n按上述要求的按上述要求的If语句代码语句代码If value Mod 2 = 0 Then Print valueIf a + b c And a + c b And b + c a Then p = (a + b + c) / 2 Print 三角形面积：三角形面积：; Sqr(p * (p - a) * (p - b) * (p - c) Else Print 线段线段a、b、c不能构成三角形不能构成三角形 End I

23、fIf A = ch And ch = Z Then ch = LCase(ch) : Print chIf year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 Then Print year; 是闰年是闰年 Else Print year; 不是闰年不是闰年 End IfIf 博士导师博士导师 And 年龄年龄 = 62 Or Not 博士导师博士导师 And _ (性别性别 = 男男 And 年龄年龄 = 60 Or 性别性别 = 女女 And 年龄年龄 = 55) Then Print 该职工已到退休年龄该职工已到退休年龄 Else

24、 Print 该职工未到退休年龄该职工未到退休年龄 End If27If语句应用语句应用n例例4-8 计算并输出计算并输出 |x| 的值的值n程序代码程序代码nPrivate Sub Command1_Click()n Dim x As Integern x = InputBox(请输入一个整数请输入一个整数)n If x 0 Thenn Print -xn Elsen Print xn End IfnEnd Sub 开始开始结束结束输入输入xx 0输出输出 -x输出输出xTF28If语句应用语句应用n例例4-9 求一元二次方程求一元二次方程ax2+bx+c=0的实根的实根 开始开始结束结束输

25、入输入a、b、ct = 0输出输出1个实根个实根b2-4ac tt 0输出输出2个实根个实根TFTF输出输出“无实根无实根”29n程序代码程序代码Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, t As Single a = InputBox(请输入一个实数请输入一个实数) b = InputBox(请输入一个实数请输入一个实数) c = InputBox(请输入一个实数请输入一个实数) t = b * b - 4 * a * c If t 0 Then Print 方程没有实根！方程没有实根！ E

26、xit Sub End If If t = 0 Then Print 方程有方程有1个实根：个实根：; -b / (2 * a) Else Print 方程有方程有2个实根：个实根：; (-b + Sqr(t) / (2 * a), (-b - Sqr(t) / (2 * a) End IfEnd Sub 30选择结构的嵌套选择结构的嵌套 n如果在如果在If语句的至少一个分支中包含了另一个完整的语句的至少一个分支中包含了另一个完整的If语句，就构成了选择结构的嵌套语句，就构成了选择结构的嵌套n例例4-10根据输入的根据输入的x输出下面的分段函数的值输出下面的分段函数的值y -1 x 0输入输入

27、 xx 0 x = 0TFy = -1y = 0y = 1输出输出 yTF开始开始结束结束31选择结构的嵌套选择结构的嵌套n例例4-12编写一个四则运算程序。输入编写一个四则运算程序。输入2个运算数和个运算数和运算符，可计算出结果运算符，可计算出结果n算法设计算法设计 开始开始结束结束输入输入2个数和个数和1个运算符到文本个运算符到文本框框运算符是运算符是“+”计算加法并输出计算加法并输出计算减法并输出计算减法并输出计算乘法并输出计算乘法并输出计算除法并输出计算除法并输出输出错误提示输出错误提示运算符是运算符是“-”运算符是运算符是“*”运算符是运算符是“/”TFTFTFTF32选择结构的嵌套

28、选择结构的嵌套n界面设计界面设计 控件控件名称名称标题标题用途用途文本框文本框Text1输入第输入第1个数个数文本框文本框Text2输入第输入第2个数个数文本框文本框Text3输入运算符输入运算符标签标签Label1无无输出运算结果输出运算结果标签标签Label2=命令按钮命令按钮Command1计算计算执行程序执行程序33nPrivate Sub Command1_Click()n If Text3.Text = + Thenn Label1.Caption = Val(Text1.Text) + Val(Text2.Text)n Elsen If Text3.Text = - Thenn

29、Label1.Caption = Val(Text1.Text) - Val(Text2.Text)n Elsen If Text3.Text = * Thenn Label1.Caption = Val(Text1.Text) * Val(Text2.Text)n Elsen If Text3.Text = / Thenn Label1.Caption = Val(Text1.Text) / Val(Text2.Text)n Elsen Label1.Caption = 运算符错误运算符错误n End Ifn End Ifn End Ifn End IfnEnd Sub 34选择结构的嵌套选

30、择结构的嵌套n为使嵌套结构更加清晰，上面程序可以写成以下格式为使嵌套结构更加清晰，上面程序可以写成以下格式nPrivate Sub Command1_Click()n If Text3.Text = + Thenn Label1.Caption = Val(Text1.Text) + Val(Text2.Text)n ElseIf Text3.Text = - Thenn Label1.Caption = Val(Text1.Text) - Val(Text2.Text)n ElseIf Text3.Text = * Thenn Label1.Caption = Val(Text1.Text)

31、 * Val(Text2.Text)n ElseIf Text3.Text = / Thenn Label1.Caption = Val(Text1.Text) / Val(Text2.Text)n Elsen Label1.Caption = 运算符错误运算符错误n End IfnEnd Sub 35多分支语句多分支语句Select Case语句语句 nSelect Case语句的格式语句的格式 nSelect Case nCase n nCase n n nCase n nCase Else n nEnd Select 其中表达式列表可以是下面情况其中表达式列表可以是下面情况n表达式表达式

32、nCase 4 或或 Case x+yn一组用逗号隔开的枚举值一组用逗号隔开的枚举值nCase 1, 3, 4n表达式表达式1 To 表达式表达式2nCase 60 To 80nIs关系表达式关系表达式nCase Is 536多分支语句多分支语句Select Case语句语句n例例4-12用用Select Case语句改写为语句改写为nPrivate Sub Command1_Click()n Select Case Text3.Textn Case +n Label1.Caption = Val(Text1.Text) + Val(Text2.Text)n Case -n Label1.Ca

33、ption = Val(Text1.Text) - Val(Text2.Text)n Case *n Label1.Caption = Val(Text1.Text) * Val(Text2.Text)n Case /n Label1.Caption = Val(Text1.Text) / Val(Text2.Text)n Case Elsen Label1.Caption = 运算符错误运算符错误n End SelectnEnd Sub 37条件函数条件函数 IIf函数函数 n调用格式调用格式 nIIf（，） n表达式表达式1是一个关系表达式或逻辑表达式是一个关系表达式或逻辑表达式 n例如例

34、如n输出输出x的绝对值的绝对值 Print IIf(x 0, -x, x) n计算例计算例4-10中的分段函数的值放入变量中的分段函数的值放入变量y y = IIf(x 0, -1, IIf(x = 0, 0, 1) 38选择结构程序设计要点选择结构程序设计要点 n选择条件的组成选择条件的组成n由一个关系表达式或逻辑表达式组成（用于由一个关系表达式或逻辑表达式组成（用于If语句）语句）n由一个数值或字符表达式组成（用于由一个数值或字符表达式组成（用于Select Case语句）语句）n条件表达式与嵌套层次的关系条件表达式与嵌套层次的关系 n可以增加条件表达式的复杂性来减少嵌套层数可以增加条件表

35、达式的复杂性来减少嵌套层数 n也可以利用增加嵌套层数来简化条件表达式也可以利用增加嵌套层数来简化条件表达式 39选择结构程序设计要点选择结构程序设计要点nSelect Case语句与嵌套的语句与嵌套的If语句的区别语句的区别n嵌套嵌套If语句中每个分支（除最后的语句中每个分支（除最后的Else分支）都有一个条件表分支）都有一个条件表达式，达式，Select Case语句只有一个数值或字符表达式语句只有一个数值或字符表达式 n嵌套嵌套If语句中的条件是产生逻辑值的表达式；语句中的条件是产生逻辑值的表达式；Select Case语句语句中是数值或字符表达式中是数值或字符表达式n嵌套的嵌套的If语句

36、有语句有n个表达式，个表达式，n个或个或n+1个分支，表达式有个分支，表达式有2种取种取值，决定是否执行本分支中的代码；值，决定是否执行本分支中的代码；Select Case语句只有一语句只有一个表达式，个表达式，n个或个或n+1个分支，表达式有多种取值，根据取值个分支，表达式有多种取值，根据取值的不同决定执行哪个分支的不同决定执行哪个分支nSelect Case语句用于有限的场合；嵌套的语句用于有限的场合；嵌套的If语句则可以实现各语句则可以实现各种多分支结构种多分支结构n当只有一个判断，但有多种可能性的情况下，使用当只有一个判断，但有多种可能性的情况下，使用Select Case语句比较方

37、便；当有多种不同条件需要判断时，只能使语句比较方便；当有多种不同条件需要判断时，只能使用用If语句的嵌套语句的嵌套n当使用当使用Select Case语句时，要把实际问题中的各种情况变换语句时，要把实际问题中的各种情况变换为一个数值表达式或字符表达式的不同取值，若不能实现简单为一个数值表达式或字符表达式的不同取值，若不能实现简单的变换，则应使用的变换，则应使用If语句的嵌套语句的嵌套40选择结构程序设计要点选择结构程序设计要点n嵌套时要注意的一些问题嵌套时要注意的一些问题n整体嵌套整体嵌套 nIf语句和语句和Select Case语句可以相互嵌套，但必须语句可以相互嵌套，但必须把整个语句作为一

38、个整体嵌套在上层把整个语句作为一个整体嵌套在上层If或或Select Case语句的一个分支中语句的一个分支中n要注意要注意Else、 End If与与If的匹配的匹配n如果只有如果只有If语句的一个分支有嵌套，应尽可能把语句的一个分支有嵌套，应尽可能把内层内层If嵌套在外层嵌套在外层If的的Else分支中分支中414.3 循环结构循环结构 n循环必须是有条件的循环必须是有条件的 n循环结构由两部分组成循环结构由两部分组成 n循环体循环体n要重复执行的程序代码要重复执行的程序代码 n循环的控制部分循环的控制部分n描述循环条件，确定循环范围描述循环条件，确定循环范围的语句的语句 n循环有两种标准

39、类型循环有两种标准类型 当型循环当型循环直到型循环直到型循环条件条件循环体循环体TF条件条件循环体循环体TF42For 语句语句 nFor循环属于当型循环循环属于当型循环 nFor语句的格式语句的格式nFor = To Step n n Exit Forn nNext 循环体循环体数值表达式数值表达式For语句的执行过程语句的执行过程循环变量未循环变量未越过终值越过终值循环体循环体TF初值初值 循环变量循环变量循环变量循环变量加步长加步长n For语句的执行过程语句的执行过程 43For 语句应用语句应用n例例4-14 编写程序计算并输出编写程序计算并输出1 + 3 + 5 + +99的值。的

40、值。n程序代码程序代码nPrivate Sub Command1_Click()n Dim k As Integer, s As Integern s = 0n For k = 1 To 99 Step 2n s = s + kn Next kn Print snEnd Sub44Do Loop 语句语句 nDo Loop语句共有语句共有4种格式，可以实现当型种格式，可以实现当型循环和直到型循环循环和直到型循环 格式一格式一Do While 语句组语句组 Exit Do 语句组语句组Loop格式二格式二Do Until 语句组语句组 Exit Do 语句组语句组Loop格式三格式三Do 语句组

41、语句组 Exit Do 语句组语句组Loop While 格式四格式四Do 语句组语句组 Exit Do 语句组语句组Loop Until 45Do Loop 语句应用语句应用n例例4-15 用用Do Loop循环编程序计算并输出循环编程序计算并输出1 + 3 + 5 + +99的值的值程序代码程序代码Private Sub Command1_Click() Dim k As Integer, s As Integer s = 0 k = 1 Do While k = 2P n思路思路 n把把P转存到变量转存到变量a中中 n在循环中计算在循环中计算P*(1+0.05)再放入再放入Pn同时用计数

42、器同时用计数器n对循环次数进行计数对循环次数进行计数 n循环条件为循环条件为P2*a n循环结束后的循环结束后的n值就是需要经过的年数值就是需要经过的年数 47n算法设计算法设计 n程序代码程序代码 nPrivate Sub Command1_Click()n Dim P As Single, n As Integern P = Val(Text1.Text)n a = Pn n = 0n Do While P 2 * an P = P * (1 + 0.05)n n = n + 1n Loopn Label1.Caption = nnEnd Sub 当年当年GDP值值 PP a ， 0 nP

43、 2*aP = P * (1 + 0.05)n = n+1输出输出 n结束结束开始开始48Do Loop 语句应用语句应用n例例4-17 利用利用 的计算公式计算的计算公式计算 的近似值的近似值n =4 - 4/3 + 4/5 - 4/7 + 4/9 - 4/11 + . n分析分析 n第第k项为项为n 是各项的累加和是各项的累加和n当当xk的绝对值足够小（例如小于的绝对值足够小（例如小于10-6），就可以），就可以结束累加，得到结束累加，得到 的近似值的近似值n思路思路n在循环中计算在循环中计算xk，再累加到变量，再累加到变量PI中，直到中，直到xk的绝对值小于的绝对值小于10-6 124)

44、 1(1kxkk49n程序代码程序代码nPrivate Sub Command1_Click()n Dim PI As Double, x As Doublen Dim k As Long, sign As Integern sign = 1n k = 1n PI = 0n Don x = sign * 4 / (2 * k - 1)n PI = PI + xn k = k + 1n sign = -signn Loop Until Abs(x) 0.000001n Print PInEnd Sub 50While Wend 语句语句 n格式格式 nWhile n 语句组语句组nWend n例

45、例4-19 输入一个自然数，判断是否是素数输入一个自然数，判断是否是素数 51n程序代码程序代码nPrivate Sub Command1_Click()n Dim IsPrime As Boolean, x As Integer, k As Integern IsPrime = Truen k = 2n x = Val(Text1.Text)n While k x And IsPrimen If x Mod k = 0 Thenn IsPrime = Falsen Elsen k = k + 1n End Ifn Wendn If IsPrime Thenn Label1.Caption =

46、 是素数是素数n Elsen Label1.Caption = 不是素数不是素数n End IfnEnd Sub 52循环结构的嵌套循环结构的嵌套 n各种循环语句都可以相互嵌套，但要完整嵌套各种循环语句都可以相互嵌套，但要完整嵌套 n例例4-21 在文本框在文本框Text1中输入行数，单击命令按钮，中输入行数，单击命令按钮，则在窗体上显示如图所示的图案。则在窗体上显示如图所示的图案。n分析分析n图案的第图案的第i行有行有2i-1个个“*”n每行第每行第1个个“*”之前有之前有n - i个空格符个空格符n思路思路 n使用使用2层循环层循环n外层循环每循环一次，输出一行外层循环每循环一次，输出一行

47、“*”字符字符n循环中先输出本行第循环中先输出本行第1个个“*”之前的空格（不换行）之前的空格（不换行）n再执行内层循环输出一行再执行内层循环输出一行“*”字符，然后换行字符，然后换行n内层循环每循环一次，输出一个内层循环每循环一次，输出一个“*”字符，不换行字符，不换行n循环次数等于本行循环次数等于本行“*”字符的个数字符的个数 53n程序代码程序代码nPrivate Sub Command1_Click()n Dim i%, j%, n%n n = Val(Text1.Text)n For i = 1 To nn Print Space(n - i);n For j = 1 To i *

48、2 - 1n Print *;n Next jn Printn Next inEnd Sub 54循环结构程序设计要点循环结构程序设计要点 n对要解决的问题进行抽象对要解决的问题进行抽象 n把实际问题抽象为一些简单步骤的重复把实际问题抽象为一些简单步骤的重复n考虑重复的次数和结束循环的方式考虑重复的次数和结束循环的方式n三种循环语句的特点三种循环语句的特点n循环都是有条件的，只有当循环条件满足时，才循环一次循环都是有条件的，只有当循环条件满足时，才循环一次n不同的循环语句对循环条件的描述方式不同不同的循环语句对循环条件的描述方式不同nFor循环语句使用初值、终值的形式反映循环条件，其表达循环语

49、句使用初值、终值的形式反映循环条件，其表达能力有限，因而适用场合也有限能力有限，因而适用场合也有限nDo循环语句和循环语句和While循环语句直接用逻辑表达式作为循环循环语句直接用逻辑表达式作为循环条件，表达能力很强，可用于解决各种循环问题。条件，表达能力很强，可用于解决各种循环问题。n在在For循环的循环体中不应再有改变循环条件的语句循环的循环体中不应再有改变循环条件的语句n在在Do循环和循环和While循环的循环体中必须有改变循环条件的语循环的循环体中必须有改变循环条件的语句句n对于已知循环次数的循环使用对于已知循环次数的循环使用For语句比较方便；其他情况语句比较方便；其他情况应选用应选

50、用Do循环或循环或While循环循环n若遇到先循环后判断条件的情况，选用若遇到先循环后判断条件的情况，选用Do循环比较方便循环比较方便 55循环结构程序设计要点循环结构程序设计要点n注意循环条件的构成和改变注意循环条件的构成和改变 nDo循环和循环和While循环的初始条件和对循环条件的改变都循环的初始条件和对循环条件的改变都要用相应的语句来实现要用相应的语句来实现 n如果循环条件是由逻辑运算符如果循环条件是由逻辑运算符Or或或And连接的多个表达连接的多个表达式，则循环体内应该有能够改变每个表达式从而改变循式，则循环体内应该有能够改变每个表达式从而改变循环条件的语句，如果缺少改变某个表达式的