1、zcj1第四章第四章 VBVB程序设计程序设计4.1顺序结构程序设计4.2选择结构程序设计4.3循环结构zcj2 VBVB虽然采用事件驱动机制，但由虽然采用事件驱动机制，但由于于VBVB应用程序主要是由过程组成的，所以应用程序主要是由过程组成的，所以要用到结构化程序设计的方法要用到结构化程序设计的方法。本。本章将依章将依次介绍顺序结构、选据结构和循环结构这次介绍顺序结构、选据结构和循环结构这三大类基本的结构化程序设计三大类基本的结构化程序设计方法。方法。zcj34.1 4.1 顺序结构程序设计顺序结构程序设计zcj4 VB VB中可以使用多种语句，但使用最频繁的语中可以使用多种语句，但使用最频
2、繁的语句当数赋值语句。格式为：句当数赋值语句。格式为：Let Let 变量名变量名=表达式表达式 Let Let 对象名对象名.属性属性=表达式表达式 功能：将表达式的赋值给变量或对象的某个属功能：将表达式的赋值给变量或对象的某个属性。性。例如：例如：n1n1100100 s1 s1“姓名姓名”1l=false 1l=false label1.caption=s1 label1.caption=s1 text1.text=text1.text=请输入：请输入：+s1+s14 4.1 1.1 1 赋值语句赋值语句（letlet语句）语句）4.1zcj54.1.2 4.1.2 注释、暂停与程序结束
3、语注释、暂停与程序结束语句句1 1注释语句注释语句 为了提高程序的可读性，通常在程序为了提高程序的可读性，通常在程序的适当位置加上必要的注释。格式为：的适当位置加上必要的注释。格式为：Rem Rem 注释内容注释内容 或或 注释内容注释内容zcj62 2暂停语句暂停语句StopStop语句用来暂停语句的执行，作用相当于语句用来暂停语句的执行，作用相当于“运行运行”菜单中的菜单中的“中断中断”命令。命令。格式为：格式为：Stop Stop当执行到当执行到StopStop语句时，语句时，系统自动打开立即窗系统自动打开立即窗口。口。StopStop语句语句般用来在解释程序中设置断点，般用来在解释程序
4、中设置断点，以便对程序进行检查和调试。如果在可执行文件以便对程序进行检查和调试。如果在可执行文件(exe)exe)中含有中含有StopStop语句，将关闭所有文件退出运语句，将关闭所有文件退出运行。因此，当程序调试完毕，在生成可执行文件行。因此，当程序调试完毕，在生成可执行文件之前，应删去程序中的所有之前，应删去程序中的所有StopStop语句。语句。zcj73 3结束语句结束语句EndEnd End End语句通常用来结束一个程序的执行。语句通常用来结束一个程序的执行。其格式为：其格式为：End End EndEnd话句提供了一种话句提供了一种强迫终止程序强迫终止程序的方法。的方法。EndE
5、nd语句可放在程序中的任何位置，当在程序中语句可放在程序中的任何位置，当在程序中EndEnd语语句中时，句中时，将中止当前程序，重置所有变量，并关将中止当前程序，重置所有变量，并关闭所有的数据文件。闭所有的数据文件。程序中也可以没有程序中也可以没有EndEnd语句，语句，这并不影响程序的运行。这并不影响程序的运行。但如果程序中没有但如果程序中没有EndEnd语句，或者虽有但没有语句，或者虽有但没有执行含有执行含有EndEnd语句的事件过程，程序就不能正常结语句的事件过程，程序就不能正常结束，必须执行束，必须执行“运行运行”菜单中的菜单中的“结束结束”命令或命令或单击工具栏的单击工具栏的“结束结
6、束”按钮。按钮。zcj84 4.1 1.3 3 数据的输出数据的输出1 1使用使用PrintPrint方法输出数据方法输出数据 使用使用PrintPrint方法，可以在窗体方法，可以在窗体(Form)(Form)、调试窗口、调试窗口(Debug)(Debug)、图片框、图片框(PictureBox)(PictureBox)、打印机、打印机(Printer)(Printer)等对象中输出文本或表达式的值。等对象中输出文本或表达式的值。其格式为：其格式为：对象名对象名.Print.Print 表达式列表表达式列表,|;,|;功能：在窗体、图形对象或打印机等对象中输出功能：在窗体、图形对象或打印机等
7、对象中输出信息。信息。zcj9例例:使用使用PrintPrint方法直接在窗体上输出数据实方法直接在窗体上输出数据实例。运行结果见图例。运行结果见图4.14.1所示。所示。Private Sub Form_Click()Private Sub Form_Click()a1=2:a2=4:a3=6 a1=2:a2=4:a3=6 Print a1,a2,a3 Print a1,a2,a3 Print Print Print a1+a2+a3=;a1+a2+a3 Print a1+a2+a3=;a1+a2+a3End SubEnd Subzcj10运行程序运行程序zcj11例例:Print:Prin
8、t方法实例。运行结果见图方法实例。运行结果见图4.24.2所所示。示。Private Sub Form_Click()Private Sub Form_Click()Print 10+20=,Print 10+20=,Print 10+20 Print 10+20 Print 30+20=;Print 30+20=;Print 30+20 Print 30+20 End SubEnd Subzcj12zcj132 2格式函数格式函数Format$Format$（配合（配合printprint方法一起使用）方法一起使用）用用PrintPrint方法输出数据时，为了以某种特定的格方法输出数据时，为
9、了以某种特定的格式显示或打印数据，可使用式显示或打印数据，可使用Format$Format$函数来实现。函数来实现。其格式为：其格式为：Format$(Format$(表达式表达式 格式字符串格式字符串)功能：按格式字符串指定的格式将表达式以字符串功能：按格式字符串指定的格式将表达式以字符串形式返回。形式返回。与print有关的函数：tab函数/spc函数/format$函数zcj14(1)Tab函数：在参数n指定的位置输出其后的表达式的值。格式：Tab(n)例 Print Tab(25);“ABC“在第25列显示“ABC”串(2)Spc函数：使光标从当前位置跳过n个空格，对输出进行定位。格式
10、：Spc(n)说明：Tab中的参数n是绝对列号，而Spc函数中的n参数是相对于前一输出项的最后一个字符而言跳过的空格数。例如：Print Hello;Tab(10);World 第二个字符串从第10列起输出 Print Hello;Spc(10);World 两个字符串之间相隔10个空格与与PrintPrint方法有关的函数方法有关的函数zcj15(3)Format函数：使数值或日期按指定的格式输出。格式：Format(数值表达式，格式字符串)数值格式化输出 格式字符串是一个串常量或串变量，由专门的格式说明字符组成，这些字符决定了数据项的显示格式和长度，详见教材表4-2。例 Print For
11、mat(12345.6,“#,#.#”)输出：12,345.6 日期和时间格式化输出 日期和时间格式化是将日期类型表达式的值或数值表达式的值以日期、时间的序数值按“格式字符串”指定的格式输出。有关格式见教材表4-3。例 Print Format(Now,“yyyy年m月dd日hh:mm”)输出：2007年4月12日zcj163 3使用标签和文本框输入输出使用标签和文本框输入输出 标签是标签是VBVB中最简单的控件，用于显示文本信中最简单的控件，用于显示文本信息，但不能编辑，通常用于显示提示信息息，但不能编辑，通常用于显示提示信息。文本框文本框(TextBox)(TextBox)控件可用来控件可
12、用来显示或输入显示或输入文文本，与标签配合使用可以很好的控制数据的输入本，与标签配合使用可以很好的控制数据的输入输出。输出。例例 设计一个窗体，如设计一个窗体，如图所图所示。其中有示。其中有3 3个标个标签、签、3 3个文本框和个文本框和1 1个命令按钮。个命令按钮。zcj17zcj18编写单击命令按钮响应事件程序如下：编写单击命令按钮响应事件程序如下：Private Sub Command_Click()Private Sub Command_Click()a1=text1.text a1=text1.text a2=text2.text a2=text2.text a3=a1 a3=a1*
13、a2a2 text3=a3 text3=a3End Sub End Sub 选择选择 运行运行启动启动 命令，分别输入命令，分别输入矩形的长和宽，单击矩形的长和宽，单击 开始计算开始计算 按钮，在按钮，在第三个文本框中就会显示矩形的面积。第三个文本框中就会显示矩形的面积。zcj191 1输入函数输入函数InputBoxInputBox为为了输入数据，增加人机交互界面，了输入数据，增加人机交互界面，VBVB提供了提供了InputBoxInputBox函数。当调用函数。当调用InputBoxInputBox函数时系统会弹出一个对函数时系统会弹出一个对话框，等待用户输入数话框，等待用户输入数据。据。
14、其其格式格式为：为：InputBox(promptInputBox(prompt，titletitle，DefaultlDefaultl，XposXpos，YposYpos，HelpFileHelpFileContext)Context)功功能：产生一个对话框，等待用户输入数据，并能：产生一个对话框，等待用户输入数据，并返回所输返回所输入的文本内容入的文本内容 缺省值缺省值标题标题提示提示运行程序zcj20参数说明：prompt：提示信息字符串表达式，最大1024个字符。该信息自动换行，如果要按自己的要求换行，则需插入回车、换行符来分隔，即Chr(13)+Chr(10)或VB常量vbCrLf。
15、title：对话框标题。default：对话框中的默认字符串，缺省时为空白。xpos,ypos：对话框左上角的点坐标，缺省时，对话框显示在屏幕中心。zcj212.MsgBox2.MsgBox输出函数与输出函数与MsgBoxMsgBox语句语句（1 1）MsgBoxMsgBox函数函数 与与WindowsWindows风格相似，风格相似，VBVB提供了一个可以显示提供了一个可以显示提示信息对话框的提示信息对话框的MsgMsg函数。此函数可以用对话框函数。此函数可以用对话框的形式向用户输出信息，并根据用户的选择做出的形式向用户输出信息，并根据用户的选择做出响应。其格式为：响应。其格式为：MsgBo
16、x(Prompt MsgBox(Prompt，ButtonsButtons，TitleTitle，HelpFileHelpFile，Context)Context)功能：根据参数建立一个对话框，显示提示情功能：根据参数建立一个对话框，显示提示情息，同时将用户在对话框中的选择结果传输给程息，同时将用户在对话框中的选择结果传输给程序。序。函数中共包括函数中共包括5 5个参数，其中个参数，其中TitleTitle、HelpFileHelpFile和和ContextContext参数与参数与InputBoxInputBox函数中同名参数含义类函数中同名参数含义类似。似。InputBox(prompt，
17、title，Defaultl，Xpos，Ypos，HelpFileContext)zcj22（2 2）MsgBoxMsgBox语句语句 MsgBoxMsgBox语句与语句与MsgBoxMsgBox函数的作用相似函数的作用相似，各参数的含义也与，各参数的含义也与MsgBoxMsgBox函数相同，其函数相同，其格式为：格式为：MsgBox MsgBox ，ButtonsButtons，TitleTitle，HelpFileHelpFile，Context Context 功能：建立一个对话框，显示提示信功能：建立一个对话框，显示提示信息，同时接收用户在对话框中的选择。息，同时接收用户在对话框中的选
18、择。zcj23MsgBoxMsgBox函数和函数和MsgBoxMsgBox过程过程 函数形式函数形式:变量变量%=MsgBox(%=MsgBox(提示提示,按钮按钮 图标图标+缺省按钮缺省按钮+模式模式，标题，标题)过程形式过程形式:MsgBox MsgBox 提示提示,按钮按钮 图标图标+缺省按钮缺省按钮+模式模式,标标题题 图标标题提示信息命令按钮zcj24按钮及图标值如下按钮及图标值如下:根据用户所选按钮，函数返根据用户所选按钮，函数返回回1 17 7的整数值，其含义的整数值，其含义如下表如下表:（表（表4.2)4.2)zcj25例例:编写程序，使用编写程序，使用MsgBoxMsgBox
19、函数显示对话函数显示对话框，运行结果如图框，运行结果如图4.94.9所示所示Private Sub Form_Click()Private Sub Form_Click()m1=m1=继续录入数据吗继续录入数据吗?m2=MsgBox m2=MsgBox函数示例函数示例 h=MsgBox(m1,36,m2)h=MsgBox(m1,36,m2)Print h Print hEnd SubEnd Sub运行程序运行程序zcj26zcj274.2 4.2 选择结构程序设计选择结构程序设计zcj28 选择结构是一种分支结构，它能根据所指选择结构是一种分支结构，它能根据所指定条件的当前值在两条或多条程序路
20、径中判定条件的当前值在两条或多条程序路径中判断并选择一条执行，因此该结构也被称为判断并选择一条执行，因此该结构也被称为判断结构。它为处理多种复杂情况提供了便利断结构。它为处理多种复杂情况提供了便利条件。条件。VBVB中选择结构语句有中选择结构语句有IfIf语句和语句和Select CaseSelect Case语句语句两两种。种。zcj29 1.If1.IfThenThen语句语句(单分支结单分支结构构)If If Then Then 语句块语句块 End IfEnd If 或或 If If Then Then tyx例例:已知两个数已知两个数x和和y，比较它们的比较它们的大小，大小，使得使得
21、x大于大于y.If xy Then t=x:x=y:y=t End If 或或 If xy Then t=x:x=y:y=tIfIf语句语句多行分支结构单行分支结构运行程序zcj302.If2.IfThenThenElseElse语句语句(双分支结构双分支结构)If If Then Then 1 Else Else 2 End If End If If If Then Then Else Else 2 例如：输出例如：输出x,y两个中值较大的一个值。两个中值较大的一个值。IF XY Then Print XElse Print YEnd If也可以写成如下的单行形式：也可以写成如下的单行形式：
22、IF XY Then Print X Else Print Y 双分支选择结构执行过程双分支选择结构执行过程 多行分支结构单行分支结构运行程序zcj31注意注意：单行形式If语句与多行形式的If语句的区别前者适用于简单的二叉分支的情况，后者适用于多分支的情况。前者可以改写为后者的形式。前者必须写在一行中；后者必须写成多行，并且在关键字“Then”后面必须回车。后者必须是If开头，End If结束，两者必须成对出现。但是，前者没有End If。另外，在多行形式的If语句中，代码的排版推荐使用缩进方式，这样不仅有利于阅读程序，也有利于发现错、排除错误。zcj32对于简单的条件结构，有时可以使用VB
23、提供的IIF函数来实现，它和“if.thenelse”语句有类似功能。其格式如下：IIf（,）如前：例题zcj333.If3.IfThenThenElseIfElseIf语句语句(多分支结多分支结构构)形式形式:If If Then1 Then 1 ElseIf ElseIf Then2Then 2 Else Else 语句块语句块 n+1 n+1 End If End If执行过程单行分支结构If then elseif then else语句块语句块 n+1 Select case“ElseIf”是一个关键字，不能写成“Else If”。zcj34Select CaseSelect Cas
24、e语句语句 在某些情况下，对某个条件表达式可能出现在某些情况下，对某个条件表达式可能出现多种取值不同的情况或者需要根据某些离散的值多种取值不同的情况或者需要根据某些离散的值进行不同的处理时，进行不同的处理时，IfIf结构语句不太适合，需要结构语句不太适合，需要使用另一种多分支选择结构语句使用另一种多分支选择结构语句Select CaseSelect Case语句来完成。在这种语句结构中，只有一个用来语句来完成。在这种语句结构中，只有一个用来判断的表达式，根据表达式不同的计算结果，来判断的表达式，根据表达式不同的计算结果，来执行不同的语句序列。执行不同的语句序列。zcj35Select case
25、Select case Case Case 1 1Case Case 2 2Case Case n nCase ElseCase Else n+1End SelectEnd SelectSelect CaseSelect Case语句的格式为：语句的格式为：功能：在语句开始时将功能：在语句开始时将“测试表测试表达式达式”计算一次，根据计算一次，根据“测试表测试表达式达式”的值，在一组相互独立的的值，在一组相互独立的可选语句序列中判断出当前应该可选语句序列中判断出当前应该选择执行的语句序列。选择执行的语句序列。zcj36注意事项：(1)执行过程：先对“测试表达式”求值，然后从上到下顺序地测试该值
26、与哪一个Case子句中的“表达式表列”相匹配；一旦找到，则执行该Case分支的语句块，然后把控制转移到End Select后面的语句块；如果没找到，则执行Case Else分支的语句块，然后把控制转移到End Select后面的语句块。(2)“测试表达式”可以是数值表达式或字符串表达式，通常为变量或常量。zcj37(3)每个Case子句中的语句块可以是一行或多行VB语句。(4)“表达式表列”中的表达式必须与测试表达式的类型相同。zcj38(5)“表达式表列”称为域值，可以是下列形式之一：表达式1，表达式2 当“测试表达式”的值与其中之一相同时，就执行该Case子句中的语句块。例 Case 2,
27、4,6,8,10表达式1 To 表达式2 当“测试表达式”的值落在表达式1和表达式2之间时(含表达式1和表达式2的值)，则执行该Case子句中的语句块。书写时，必须把较小值写在前面。例 Case 2 To 10 Is关系表达式 当“测试表达式”的值满足“关系表达式”指定条件时，执行该Case子句中的语句块。zcj39(6)有时可以用choose函数代替Choose(整数表达式，选项列表）返回列表选项或者是null例：根据当前日期函数now，weekday，利用choose函数显示“今日是星期*”。运行程序思考：显示“*年*月*日是星期*”zcj40 例：输入一学生成绩，评定其等级。方法是：例：
28、输入一学生成绩，评定其等级。方法是：90100分为分为“优秀优秀”，8089分为分为“良好良好”，7079分为分为“中等中等”，6069分为分为“及格及格”，60分以为分以为“不合格不合格”。分别用分别用IfThenElseIf语句和语句和Select Case语句实现，并比较他们的不语句实现，并比较他们的不同。同。运行程序运行程序运行程序Select caseIfThenElseIfzcj41 多分支选择结构语句用来处理较复杂的多条件选择判断。多分支选择结构语句用来处理较复杂的多条件选择判断。Select CaseSelect Case结构语句也称之为结构语句也称之为“情况语句情况语句”或简
29、称为或简称为“CaseCase语句语句”。它实际上是多行。它实际上是多行IfIf（块结构）条件语句的一种变形（块结构）条件语句的一种变形。两者之间的主要区别在于：。两者之间的主要区别在于：块结构条件语句可以对多个表块结构条件语句可以对多个表达式的结果进行判断，从而执行不同的操作达式的结果进行判断，从而执行不同的操作；而而CaseCase语句只语句只能对一个表达式的结果进行判断，然后再选择不同的操作流能对一个表达式的结果进行判断，然后再选择不同的操作流程。程。zcj42选择结构的嵌套 在选择结构的每个分支中，可以是任何语句，也可以再是一个分支结构。这种分支结构中包含另一个分支结构的情况称为分支嵌
30、套。在分支嵌套中应注意的问题：每个结构必须完整。外层结构必须完全包住内层结构，不能交叉。内层结构应采用缩进格式，以使层次清楚。zcj43If then If then End ifEnd if和IfThenElseIf语句语句(多分支多分支结构结构)的区别？的区别？运行程序比较：4.6.1 4.6.2zcj44 例如：编一个账号和密码输入的检验程序，运行界面如下图。对输入的账号和密码规定如下：账号不超过6位数字，以按tab键表示输入结束；密码4位字符，输入文本框以“*”显示，单击“确定”按钮表示输入结束，密码假定位“zzz”;当输入不正确，如账号为非数字字符，密码不正确等，显示有关信息，再输入
31、。运行程序zcj45注意：对于嵌套结构，为了增强程序的可读性，书写时采用锯齿型；If 与end if必须配对使用，且end if 与最接近的if配对。zcj464 43 3 循环结构循环结构?计算1+2+3+100 的值。?计算1+2+3+10 的值。zcj474.3.1 ForNext4.3.1 ForNext循环循环 ForNextForNext循环是一种已知循环次数的循环，循环是一种已知循环次数的循环，按照指定的次数重复执行循环体。在循环体中使按照指定的次数重复执行循环体。在循环体中使用一个循环变量（计数器），每重复执行一次循用一个循环变量（计数器），每重复执行一次循环体，循环变量就会按
32、照步长值自动增加或减少环体，循环变量就会按照步长值自动增加或减少。其格式如下：。其格式如下：For For=To To Step Step 语句序列语句序列 Exit ForExit For Next Next zcj48 其中：其中：循环变量：是用做循环计数器的数值变量，也称为循环循环变量：是用做循环计数器的数值变量，也称为循环控制变量。控制变量。初值：循环控制变量的初值，是个常数或数值表达式。初值：循环控制变量的初值，是个常数或数值表达式。终值：循环控制变量的终值，是终值：循环控制变量的终值，是个常数或数值表达式个常数或数值表达式。步长：循环控制变量的增量，是一个常数或数值表达步长：循环控
33、制变量的增量，是一个常数或数值表达式式。功能：按指定的次数执行循环体。功能：按指定的次数执行循环体。?计算1+3+5+99 的值(1到100之间的奇数和)。比较goto语句zcj49ForNext循环流程图zcj50？s=1*2*3*n,计算出s不大于5000时n的最大值。?计算1*2*3*100的值。运行程序zcj514.3.2 WhileWend4.3.2 WhileWend循环循环 有有些问题的解决过程可能不能事先知道需些问题的解决过程可能不能事先知道需要重复执行某些操作的次数，那么用要重复执行某些操作的次数，那么用ForNextForNext循循环语句就不适合了，但可以考虑用环语句就不
34、适合了，但可以考虑用WhileWendWhileWend或或DoDo循环语循环语句。句。WhileWendWhileWend循环也是循环也是种形式的循环结构，也种形式的循环结构，也称称当型循当型循环环。比较：比较：与与ForNextForNext循环不同的是：它不是确定循环次循环不同的是：它不是确定循环次数的循环结构，而是根据给定数的循环结构，而是根据给定“条件条件”的成立与否的成立与否决定程序的流程。决定程序的流程。zcj52 其格式为：其格式为：WhileWhile条件表达式条件表达式 语句序列语句序列 WendWend 功能：如果功能：如果“条件表达式条件表达式”的值为的值为TrueTr
35、ue，则，则执行循环中的执行循环中的“语句序列语句序列”即循环体，否则即循环体，否则退出循环。退出循环。zcj53WhileWend循环结构流程图zcj544.3.3 4.3.3 DoDo循环循环 这这种形式的循环语句比种形式的循环语句比WhileWendWhileWend语句功语句功能更能更强。强。比较：比较：WhileWend WhileWend循环只能在初始位置检查循环条件是否循环只能在初始位置检查循环条件是否成立；成立；而而DoDo循环可以有两种格式，既可以在初始位置检查循环可以有两种格式，既可以在初始位置检查循环条件是否成立，又可以在执行一遍循环体后的循环条件是否成立，又可以在执行一
36、遍循环体后的结束位置判断循环条件是否成立，然后再根据循环结束位置判断循环条件是否成立，然后再根据循环条件是条件是TrueTrue或或FalseFalse决定是否执行循环体。决定是否执行循环体。运行程序运行程序zcj55 格式：格式：Do While|Until Do While|Until 条件条件 循环体循环体 LoopLoop Do While.Loop Do While.Loop语句的功能：当条件成立语句的功能：当条件成立(为真为真)时，执行循环体；当条件不成立时，执行循环体；当条件不成立(为假时为假时)，终止循环终止循环 Do Until.Loop(Do Until.Loop(直到型循
37、环直到型循环)语句的功能语句的功能：当条件不成立当条件不成立(为假为假)时，执行循环体，直时，执行循环体，直到条件成立到条件成立(为真为真)时，终止循环时，终止循环前测型前测型Do.LoopDo.Loop循环循环zcj56?求求 S12+22+1002?用用/41-1/3+1/5-1/7+级数级数,求求的近的近似值。当最后一项的绝对值小于似值。当最后一项的绝对值小于10-5时，停止计时，停止计算。算。运行运行zcj57 语句格式如下：语句格式如下：DoDo 循环体循环体 Loop While|UntilLoop While|Until条件条件 功能：先执行循环体，然后判断条件，根据条件决功能：
38、先执行循环体，然后判断条件，根据条件决定是否继续执行循环定是否继续执行循环 注意，本语句执行循环的最少次数为注意，本语句执行循环的最少次数为1 1，而前测型，而前测型Do.LoopDo.Loop语句的最少次数为语句的最少次数为0(0(即一次都不执行循环即一次都不执行循环)后测型后测型Do.LoopDo.Loop循环循环zcj58 ForForNext Next 前测型前测型 S=0 S=0 s=0:k=1s=0:k=1 For k=1 to 8 For k=1 to 8 Do While k=8Do While k=8 s=s+k s=s+k s=s+ks=s+k Next k Next k
39、k=k+1k=k+1 Print s Print s LoopLoop Print sPrint s s=0:k=1 s=0:k=1 do do s=s=s+ks+k k=k+1 k=k+1 Loop While k=8 Loop While k=8 Print s Print s三种循环语句比较三种循环语句比较 示例：求和示例：求和s=1+2+3+s=1+2+3+8+8后后测测型型zcj59 “辗转相除法辗转相除法”算法：算法：求出求出m/nm/n余数余数p p，若，若p p0 0，n n即为最大公约数；若即为最大公约数；若p p非非0 0，则把原来的分母，则把原来的分母n n作为新的分子作
40、为新的分子m m，把余数把余数p p作为新的分母作为新的分母n n继续求解继续求解 设计步骤如下：设计步骤如下：(1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性例例5.8 5.8 输入两个正整数，求它们的最大公约数输入两个正整数，求它们的最大公约数运行程序zcj604.3.4 4.3.4 循环嵌套循环嵌套 上面介绍的循环例题只含有一层循环，叫单层循环，上面介绍的循环例题只含有一层循环，叫单层循环，而把循环体内含有循环语句的循环称为循环嵌套（多重而把循环体内含有循环语句的循环称为循环嵌套（多重循环）。循环）。VBVB有三种形式的循环语句，每种形式的循环内有三种
41、形式的循环语句，每种形式的循环内部可以嵌套一层同类型的循环语句，也可以嵌套一层其部可以嵌套一层同类型的循环语句，也可以嵌套一层其他类型的循环语句。嵌套一层的循环结构称为二重循环他类型的循环语句。嵌套一层的循环结构称为二重循环。在多重循环中，如果遇到。在多重循环中，如果遇到Exit ForExit For（DoDo）语句，则可）语句，则可以跳出该语句所在当前一层的循环。以跳出该语句所在当前一层的循环。zcj61 例:设计一个程序，在窗体上显示3至200之间所有的素数。显示效果如图4.27所示。图4.27算法一算法二zcj62 下面采用下面采用“穷举法穷举法”来解此题。来解此题。其做法是：从所有可
42、能解中，逐个进行试其做法是：从所有可能解中，逐个进行试验，若满足条件，就得到一个解，否则不是。直到验，若满足条件，就得到一个解，否则不是。直到条件满足或判别出无解为止。条件满足或判别出无解为止。令母鸡为令母鸡为x x只，小鸡为只，小鸡为y y只，根据题意可知只，根据题意可知 y=100 xy=100 x 开始先让开始先让x x初值为初值为1 1，以后逐次加，以后逐次加1 1，求，求x x为何值时为何值时，条件，条件3x+y/3=1003x+y/3=100成立。如果当成立。如果当x x达到达到3030时还不能使时还不能使条件成立，则可以断定此题无解条件成立，则可以断定此题无解 例例 用用100
43、100 元买元买100 100 只鸡，母鸡只鸡，母鸡3 3元元1 1只，小鸡只，小鸡1 1元元3 3只，只，问各应买多少只问各应买多少只?运行程序zcj63 例如：例如：10102 2*5 5 24=2 24=2*2 2*2 2*3 3 76=2 76=2*2 2*1919 例例 把一个正整数写成若干个素数相乘的形式把一个正整数写成若干个素数相乘的形式运行程序作业：在显示“九九乘法表”运行程序运行程序zcj64本章小结本章小结 本章主要介绍了本章主要介绍了VBVB程序设计的三大基本结程序设计的三大基本结构，即顺序结构、选择结构和循环结构。使构，即顺序结构、选择结构和循环结构。使用了较为生动的例子具体演示了这三大类基用了较为生动的例子具体演示了这三大类基本结构里面所包含的常用语句结构的使用方本结构里面所包含的常用语句结构的使用方法，体现了结构化程序设计思想的巨大魅力法，体现了结构化程序设计思想的巨大魅力。通过本章的学习，要熟练掌握结构化程序。通过本章的学习，要熟练掌握结构化程序设计的这三大类结构化设计方法，为以后的设计的这三大类结构化设计方法，为以后的程序设计打下扎实的基础。程序设计打下扎实的基础。
