四章控制结构.ppt

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

1、四章控制结构 Still waters run deep.流静水深流静水深,人静心深人静心深 Where there is life,there is hope。有生命必有希望。有生命必有希望4.14.1顺序控制结构顺序控制结构顺序控制结构顺序控制结构 顺序结构就是各语句按出现的先后次序执行。一般的程序设计语言中，顺序结顺序结构就是各语句按出现的先后次序执行。一般的程序设计语言中，顺序结构的语句主要是构的语句主要是赋值语句、输入赋值语句、输入/输出语句输出语句等。在等。在VBVB中也有赋值语句，而输入中也有赋值语句，而输入/输出输出可以通过文本框、可以通过文本框、printprint方法等实现

2、，也可以通过系统提供的函数和过程来实现。方法等实现，也可以通过系统提供的函数和过程来实现。4.1.1 4.1.1赋值语句赋值语句赋值语句赋值语句 赋值语句的一般形式如下：赋值语句的一般形式如下：变量名变量名变量名变量名=表达式表达式表达式表达式 对象对象对象对象.属性属性属性属性=表达式表达式表达式表达式 程序执行时，先计算右边表达式的值，然后将值赋给左边的变量或属性。程序执行时，先计算右边表达式的值，然后将值赋给左边的变量或属性。例如：例如：X=100 X=100 把数值赋给变量把数值赋给变量X X；Text1.Text=VB Text1.Text=VB欢迎你欢迎你 把字符串赋给把字符串赋给

3、Text1Text1的的TextText属性属性 Label1.Caption=Date Label1.Caption=Date（）（）把把DateDate函数的结果赋给函数的结果赋给Label1Label1的的CaptionCaption属性属性 Label1.Top=Label1.Top-100 Label1.Top=Label1.Top-100把表达式的值赋给把表达式的值赋给Label1Label1的的TopTop属性属性 在赋值语句中，赋值运算符在赋值语句中，赋值运算符“=”“=”代表赋值操作，而不代表等量关系。代表赋值操作，而不代表等量关系。注意：当表达式的类型与变量的类型不一致时，

4、强制转换成左边的精度注意：当表达式的类型与变量的类型不一致时，强制转换成左边的精度变量名=表达式n n表达式可以是任何类型的表达式，一般与左边的变量类型一致例如：例如：Dim i as IntegerDim i as Integer i=3 i=32 2n n如果右边表达式类型与左边变量类型不同，则：n n1 1）表达式均为数值型，但精度不同时，表达式）表达式均为数值型，但精度不同时，表达式结果自动转换成左边的精度在赋值给变量。如：结果自动转换成左边的精度在赋值给变量。如：i%=3.56 i%=3.56 i=4 i=4n n2)变量为数值型，表达式为字符串时，若表达式为数字型字符串，则自动转换

5、为数值型在赋值给变量。x%=“123”x%=“123”x=123x=123 x%=“abc”x%=“abc”出错出错 x!=“”x!=“”出错出错n n3)变量为数值型，表达式为逻辑型时，true转换成1，false转换成0后赋值给变量 x%=true x x%=true x-1-1n n4)变量为逻辑型，表达式为数值型时，非0转换成true，0转换成false后赋值给变量Dim Boolean bDim Boolean bb=21 bb=21 btruetruen n5)变量为字符型，表达式为非字符型时，表达式的结果自动转换为字符型后赋值给变量 Dim s as StringDim s as

6、 Strings=123 ss=123 s”123”123”使用赋值语句时应注意：使用赋值语句时应注意：n n以下的赋值语句均是错误的:n n5=x+y 5=x+y 常量在左边常量在左边n nx+y=5 x+y=5 表达式在左边表达式在左边n nSin(x)=x+ySin(x)=x+yn n不能在一句赋值语句中为多个变量赋值：正确x=1y=1z=1错误：x=y=z=1n n4.1.24.1.2人机交互函数和过程人机交互函数和过程人机交互函数和过程人机交互函数和过程 Vb Vb程序与用户之间的直接交互可以通过程序与用户之间的直接交互可以通过InputBox()InputBox()函数、函数、Ms

7、gBox()MsgBox()函数和函数和MsgMsg过过程进行。程进行。1.InputBox1.InputBox（）函数（）函数（）函数（）函数 InputBox InputBox（）函数可以产生一个对话框，这个对话框作为输入数据的界面（）函数可以产生一个对话框，这个对话框作为输入数据的界面,等待等待用户输入数据，当用户单击用户输入数据，当用户单击“确定确定“按钮或回车时，函数返回输入的值，类型为字按钮或回车时，函数返回输入的值，类型为字符型。函数格式如下：符型。函数格式如下：变量变量变量变量$InputBoxInputBox（Prompt,Title,Default,XPos,YPosePr

8、ompt,Title,Default,XPos,YPose）例例例例4-1 4-1 应用应用应用应用InputBoxInputBox函数进行患者信息的输入，运行界面如图函数进行患者信息的输入，运行界面如图函数进行患者信息的输入，运行界面如图函数进行患者信息的输入，运行界面如图 程序代码如下：程序代码如下：Private Sub Form_Click()Private Sub Form_Click()Dim cl$,msg1$,msg2$,msg3$,msg$,I$Dim cl$,msg1$,msg2$,msg3$,msg$,I$cl=Chr(13)+Chr(10)cl=Chr(13)+Chr(

9、10)回车、换行回车、换行 msg1=msg1=请输入患者姓名请输入患者姓名 msg2=msg2=输入后单击确定按钮输入后单击确定按钮 msg3=msg3=或按回车键或按回车键 msg=msg1+cl+msg2+cl+msg3 msg=msg1+cl+msg2+cl+msg3 I=InputBox(msg,I=InputBox(msg,患者信息输入框患者信息输入框,张三张三,400,400),400,400)End SubEnd Subn n注意n n各项参数次序必须一一对应，各项参数次序必须一一对应，PromptPrompt项不可省项不可省略，略，n n其他项可以省略，但处于中间的默认参数要

10、用其他项可以省略，但处于中间的默认参数要用逗号占位符跳过逗号占位符跳过n n该函数返回的值为字符型，如果需要输入数值该函数返回的值为字符型，如果需要输入数值并参加运算时，在运算前运用并参加运算时，在运算前运用Val(c)Val(c)函数将其类函数将其类型转换为数值类型型转换为数值类型例：inputBox.vbp2.MsgBox2.MsgBox（）函数和（）函数和（）函数和（）函数和MsgBoxMsgBox过程过程过程过程MsgBoxMsgBox（）函数可以产生一个消息框，等待用户选择按钮，（）函数可以产生一个消息框，等待用户选择按钮，当用户单击某个按钮时，函数返回按钮的值，类型为整型。当用户单

11、击某个按钮时，函数返回按钮的值，类型为整型。函数格式如下：函数格式如下：变量变量MsgBox MsgBox（Prompt,Type,TitlePrompt,Type,Title）Promp:Promp:字符串表达式，用于提示信息字符串表达式，用于提示信息TypeType：消息框类型：消息框类型TitleTitle：字符串表达式，在标题栏中显示：字符串表达式，在标题栏中显示4.1.24.1.2人机交互函数和过程人机交互函数和过程人机交互函数和过程人机交互函数和过程分组分组 内部常数内部常数 按钮值按钮值 描述描述 按钮数目按钮数目 VBOkOnlyVBOkOnlyVBOkCancelVBOkCa

12、ncelVBAboutRetryignreVBAboutRetryignreVBYesNoCancelVBYesNoCancelVBYesNoVBYesNoVBRetryCancelVBRetryCancel0 01 12 23 34 45 5只显示只显示“确定确定”按钮按钮显示显示“确定确定”“”“取消取消”按钮按钮显示显示“终止终止”“”“重试重试”“”“忽略忽略”按按钮钮显示显示“是是”“”“否否”“”“取消取消”按钮按钮显示显示“是是”“”“否否”按钮按钮显示显示“重试重试”“”“取消取消”按钮按钮图标类型图标类型VBCriticalVBCriticalVBQusetionVBQuse

13、tionVBExclsmationVBExclsmationVBinformation VBinformation 16163232484864 64 关键信息图标关键信息图标 红色红色STOPSTOP标志标志询问信息图标？询问信息图标？警告信息图标！警告信息图标！信息图标信息图标i i 默认按钮默认按钮VBDefaultButton1VBDefaultButton1VBDefaultButton2VBDefaultButton2VBDefaultButton3 VBDefaultButton3 0 0256256512 512 第第1 1个按钮为默认个按钮为默认第第2 2个按钮为默认个按钮为

14、默认第第3 3个按钮为默认个按钮为默认 模式模式 VBApplicationModelVBApplicationModelVBSystemModel VBSystemModel 0 04096 4096 应用模式应用模式系统模式系统模式 其中Type为整型表达式，用来控制在消息框中显示的按钮、图标的种类、数量。其按钮、图表设置值及意义 如下表所示：变量MsgBox（Prompt,Type,Title）例如例如例如例如:要显示要显示要显示要显示“重试重试重试重试”、“取消按钮取消按钮取消按钮取消按钮”、关键信息图标、关键信息图标、关键信息图标、关键信息图标 红色红色红色红色stopstop图图图

15、图标，第一个按钮为默认、系统模式标，第一个按钮为默认、系统模式标，第一个按钮为默认、系统模式标，第一个按钮为默认、系统模式type值为5+16+0+4096,或VBRetryCancel+VBCritical+VBDefualtButton+VBSystomModelt=vbRetryCancel+vbCritical+VBDefualtButton+VBSystomModelret=MsgBox(消息框示例,t,消息框)例 msgBox.vbp MsgBoxMsgBox函数返回所选按钮整数值的意义如下表所示：函数返回所选按钮整数值的意义如下表所示：内部常数内部常数 返回值返回值 被单击的按钮

16、被单击的按钮 VBOkVBOkVBCancelVBCancelVBAboutVBAboutVBRetryVBRetryVBIgnreVBIgnreVBYesVBYesVBNo VBNo 1 12 23 34 45 56 67 7 确定确定取消取消终止终止重试重试忽略忽略是是否否 若只需给出prompt参数，可以这样使用Ret=msgBox“prompt”4.24.2选择结构选择结构选择结构选择结构n n4.2.1 IF4.2.1 IF条件语句条件语句n n1.IFThen 1.IFThen 语句（单分支结构）语句（单分支结构）语句形式：语句形式：(1)IF Then 语句块 End IF(2)

17、IF Then 语句块表达式表达式语句块语句块FT单分支结构流程示意图单分支结构流程示意图其中：表达式一般为关系表达式、逻辑表达式，也可以为算术表达式。表达式的值按非零为True，零为False 进行处理。语句块：可以是一条或多条语句。如果采用形式（2）表示则语句之间要用冒号分隔，并且一定写在同一行上。If 和end if 要成对出现n n例例4-34-3已知两个变量已知两个变量x x和和y y，比较它们的大小，使，比较它们的大小，使x x中的值大于中的值大于y y。（要实现两。（要实现两个变量中的数互相交换通常以使用第三变量为过渡，在此为个变量中的数互相交换通常以使用第三变量为过渡，在此为t

18、 t）语句如下：）语句如下：IF x y Then t=x 将变量x中的值暂时存放于变量t中x=y 用变量y中的值替代变量x中的值 y=t 再将原变量x中的值替代变量y中的值End IF 或者 IF x y Then t=x:x=y:y=tn n2.IF.ThenElse2.IF.ThenElse（双分支结构）（双分支结构）（双分支结构）（双分支结构）语句形式：语句形式：IF IF Then Then 1ElseElse 2End IF End IF 或者：或者：IF IF Then Then Else Else 2如果表达式的值为非零或True执行语句块1，否则执行语句块2。表达式语句块1语

19、句块2FT双双分支结构流程示意图分支结构流程示意图例例4-2 4-2 编写一医生工作站的登录检验程序，运行界面如图编写一医生工作站的登录检验程序，运行界面如图4 43 3。对登录名。对登录名（医生工号）和密码的规定如下：（医生工号）和密码的规定如下：（1 1）医生工号不超过）医生工号不超过6 6位数字，密码为位数字，密码为6 6位字符，密码输入时显示为位字符，密码输入时显示为“*”“*”。本题假设密码为本题假设密码为“cljuan”“cljuan”。（2 2）当医生工号输入非数字字符，密码不正确时，显示相关信息。）当医生工号输入非数字字符，密码不正确时，显示相关信息。（3 3）若单击）若单击“

20、重试重试”按钮，则清除原来输入的内容，焦点定位在原输入文按钮，则清除原来输入的内容，焦点定位在原输入文本框，等待用户输入。若单击取消按钮，程序停止运行。本框，等待用户输入。若单击取消按钮，程序停止运行。本程序运行结果如图所示，程序代码见后页。例例例例4-2 4-2 程序代码如下：程序代码如下：程序代码如下：程序代码如下：Private Sub Command1_Click()Private Sub Command1_Click()Dim I As IntegerDim I As IntegerIF Not Text2=cljuan ThenIF Not Text2=cljuan Then I=

21、MsgBox(I=MsgBox(密码错误密码错误,5+64+0+VBSystemModel,5+64+0+VBSystemModel,登录密码登录密码)IF I=2 Then End Else Text2=IF I=2 Then End Else Text2=用户单击用户单击“取消取消”按钮返回按钮值按钮返回按钮值 text2=“”text2=“”用户单击用户单击”重试重试”按钮文本框置空按钮文本框置空,等待用户重新输入等待用户重新输入 Text2.SetFocus Text2.SetFocus 将焦点设置在文本框将焦点设置在文本框2 2上上,方便用户输入方便用户输入End IFEnd IFE

22、nd SubEnd SubPrivate Sub Text1_LostFocus()Private Sub Text1_LostFocus()焦点离开文本框焦点离开文本框1 1时触发时触发LostFocusLostFocus事件事件IF Not IsNumeric(Text1)Then IF Not IsNumeric(Text1)Then 利用利用IsNumericIsNumeric（）函数判断文本框中输入的是否为数字字符（）函数判断文本框中输入的是否为数字字符 MsgBox MsgBox 医生工号必须是数字字符医生工号必须是数字字符 Text1=Text1=Text1.SetFocus T

23、ext1.SetFocusEnd IFEnd IFEnd SubEnd Subn n3.IFThenElseIF3.IFThenElseIF（多分支结构）（多分支结构）（多分支结构）（多分支结构）语句形式：语句形式：IF IF Then 1Then 1ElseIF ElseIF Then2 Then 2 ElseElse n+1 End IF End IF TTTTTT表达式1表达式2表达式n语句块1语句块2语句块n语句块n1FFF多分多分支结构流程示意图支结构流程示意图不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，

24、否则什么也不执行。.ElseIf不能写成 Else If。Private Sub Command1_Click()Private Sub Command1_Click()Dim x,yDim x,yPicture1.ClsPicture1.Clsx=Val(Text1.Text)x=Val(Text1.Text)将文本转换为数值型后赋值给变量将文本转换为数值型后赋值给变量x x，y yy=Val(Text2.Text)y=Val(Text2.Text)IF x 90 And y 60 ThenIF x 90 And y 60 ThenPicture1.Print Picture1.Print

25、血压偏低血压偏低 ElseIF x=140 And y=90 ThenElseIF x=140 And y=90 ThenPicture1.Print Picture1.Print 血压正常血压正常 ElseIF x 160 And y 95 ThenElseIF x 160 And y 95 ThenPicture1.Print Picture1.Print 临界高血压临界高血压 ElseElsePicture1.Print Picture1.Print 高血压高血压 End IFEnd IFEnd SubEnd SubPrivate Sub Command2_Click()Private

26、Sub Command2_Click()EndEndEnd Sub End Sub 例4-5 按照世界卫生组织(WHo)建议使用的血压标准是：凡正常成人收缩压应小于或等于140MmHg，舒张压小于或等于90MmHg。如果成人收缩压大于或等于160MmHg，舒张压大于或等于95MmHg为高血压；血压值在上述两者之间，亦即收缩压在141159MmHg之间，舒张压在91-94MmHg之间，为临界高血压。低血压通常指血压低于90/60MmHg。运行界面与程序代码如下：例例 已知百分制成绩mark，显示对应的五级制成绩 哪些正确，哪些错误？返回72n n4.2.2 Select Case 4.2.2 S

27、elect Case 语句语句语句语句Select Case Select Case 语句是多分支结构的又一种表示形式，又称情况语句。语句是多分支结构的又一种表示形式，又称情况语句。语句形式：语句形式：Select Case Select Case 变量或表达式变量或表达式 Case Case 表达式列表表达式列表1 1 1Case Case 表达式列表表达式列表2 2 2Case Else Case Else 1End SelectEnd SelectF表达式列表1语句块1表达式列表2语句块2表达式列表n语句块n.语句块n1TTTSelect语句流程示意图FF.Private Sub Com

28、mand1_Click()Private Sub Command1_Click()Dim code As StringDim code As Stringcode=Trim(Text2.Text)code=Trim(Text2.Text)Select Case codeSelect Case codeCase+Case+Text4.Text=Val(Text1)+Val(Text3)Text4.Text=Val(Text1)+Val(Text3)Case-Case-Text4.Text=Val(Text1)-Val(Text3)Text4.Text=Val(Text1)-Val(Text3)C

29、ase*Case*Text4.Text=Val(Text1)*Val(Text3Text4.Text=Val(Text1)*Val(Text3Case/Case/IF Val(Text3)=0 Then IF Val(Text3)=0 Then MsgBox(MsgBox(除数不能为除数不能为0 0，请重新输入，请重新输入)Text3=“Text3=“Text4.Text=Text4.Text=Text3.SetFocusText3.SetFocusElseElseText4=Val(Text1)/Val(Text3Text4=Val(Text1)/Val(Text3 End IF End I

30、FEnd SelectEnd SelectEnd SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()EndEndEnd SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click()Text1=Text1=Text2=Text2=Text3=Text3=Text4=Text4=Text1.SetFocusText1.SetFocusEnd SubEnd Sub例4-7编写一个简便四则运算器，应用Select Case 判断运算符。运行界面如图【

31、程序代码】：与同类型的下面四种形式之一：表达式 例:case A 一组枚举表达式(用逗号分隔)case 2,4,6,8 表达式1 To 表达式2 case 60 To 100 Is 关系运算符表达式 case Is 605.IF 5.IF 语句的嵌套语句的嵌套语句的嵌套语句的嵌套语句形式：语句形式：IF IF Then 1 Then 语句块语句块语句块语句块IF IF Then2 Then语句块语句块语句块语句块End IFEnd IF语句块语句块语句块语句块End IFEnd IFn n例例4-6 4-6 输入输入3 3个整数，按从小到大的顺序输出。程序运行界面如图个整数，按从小到大的顺序输

32、出。程序运行界面如图 程序代码如下：程序代码如下：Private Sub Command1_Click()Private Sub Command1_Click()Dim x%,y%,z%,t%Dim x%,y%,z%,t%Form1.ClsForm1.Clsx=Val(InputBox(x=Val(InputBox(请输入请输入1 1个整数个整数)y=Val(InputBox(y=Val(InputBox(请输入请输入1 1个整数个整数)z=Val(InputBox(z=Val(InputBox(请输入请输入1 1个整数个整数)Print Print 您输入三个的数是：您输入三个的数是：;x;

33、Spc(1);y;Spc(1);z;x;Spc(1);y;Spc(1);zIF x y ThenIF x y Then 如果如果x yx y则则x,yx,y交换交换t=x:x=y:y=tt=x:x=y:y=tEnd IFEnd IFIF y z ThenIF y z Thent=y:y=z:z=t t=y:y=z:z=t IF x y Then IF x y Then t=x:x=y:y=t t=x:x=y:y=t End IF End IFEnd IFEnd IFPrint Print 从小到大的顺序是：从小到大的顺序是：;x;Spc(1);y;Spc(1);z;x;Spc(1);y;Spc

34、(1);zEnd SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()EndEndEnd SubEnd Subn n例例2-72-7在文本框中输入在文本框中输入1-10001-1000之间的数字，如果输入非数值，或数值超出之间的数字，如果输入非数值，或数值超出范围，给予提示，并重新输入。运行效果及程序代码如下：范围，给予提示，并重新输入。运行效果及程序代码如下：Private Sub Form_Load()Private Sub Form_Load()Text1.Text=Text1.Text=Text2.Text

35、=Text2.Text=End SubEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then If KeyAscii=13 Then 回车键的回车键的ASCIIASCII码值为码值为1313 If IsNumeric(Text1.Text)Then If IsNumeric(Text1.Text)Then 判断是否是数值判断是否是数值 x=Val(Text1.Text)x=Val(Text1.Text)If x

36、 1000 Then If x 1000 Then Text1.Text=Text1.Text=Text1.SetFocus Text1.SetFocus 焦点回到文本框焦点回到文本框 Text2.Text=Text2.Text=数值超出范围数值超出范围,再输入再输入!文本框中显示提示信息文本框中显示提示信息 Else Else Text2.Text=Text2.Text=输入正确！输入正确！End If End If Else Else Text1.SetFocus Text1.SetFocus Text2.Text=Text2.Text=请输入数字请输入数字!End If End IfEn

37、d IfEnd IfEnd SubEnd Sub4.2.3 4.2.3 条件函数条件函数条件函数条件函数VBVB中提供的条件函数：中提供的条件函数：IIFIIF（）函数和（）函数和ChooseChoose（）函数，适用于简单的判断场合。（）函数，适用于简单的判断场合。前者代替前者代替IFIF语句，后者可代替语句，后者可代替Select CaseSelect Case语句，语句，n nIIFIIF（）函数（）函数（）函数（）函数函数形式：函数形式：IFFIFF（表达式，条件为（表达式，条件为TrueTrue时的值，条件为时的值，条件为FalseFalse时的值）时的值）例如：求例如：求x x，y

38、 y中大的数，放入变量中大的数，放入变量T T中，可以应用语句中，可以应用语句 T=IFF(xy,x,y)T=IFF(xy,x,y)n nChoose()Choose()函数函数函数函数函数形式：函数形式：ChooseChoose（整型表达式，选项列表）（整型表达式，选项列表）其中整型表达式的值决定函数返回选项列表中的哪个值。如果整型表达式为其中整型表达式的值决定函数返回选项列表中的哪个值。如果整型表达式为1 1，则函数返回选项列表中的第一项的值，若整型表达式为则函数返回选项列表中的第一项的值，若整型表达式为2 2，则函数返回选项列表，则函数返回选项列表中的第中的第2 2项的值，项的值，依次类

39、推。依次类推。如果整型表达式的值小于如果整型表达式的值小于1 1或大于列出的选项数目时，函数返回或大于列出的选项数目时，函数返回NullNull。如果整型表达式的值为非整型时，系统自动取其整数进行判断。如果整型表达式的值为非整型时，系统自动取其整数进行判断。例如，根据例如，根据x x是是1 14 4的值，转换成的值，转换成“内科内科”、“外科外科”、“妇科妇科”、“儿科儿科”的的语句可以写成：语句可以写成：kbkbChooseChoose（x,“x,“内科内科”,“”,“外科外科”,“”,“妇科妇科”,“”,“儿科儿科”）4.34.3循环结构循环结构循环结构循环结构4.3.1 For4.3.1

40、 For循环语句循环语句循环语句循环语句ForFor循环语句是计数型循环语句，用于控制循环次数预知的循环结构。循环语句是计数型循环语句，用于控制循环次数预知的循环结构。语句形式：语句形式：For For 循环变量初值循环变量初值 To To 终值终值 Step Step 步长步长 Next Next 循环变量循环变量说明：说明：循环变量必须是数值型循环变量必须是数值型步长：一般为正数，初值小于终值步长：一般为正数，初值小于终值 ；若为负数，初值大于终值；若为负数，初值大于终值；Step Step 缺省时默认为缺省时默认为1 1。语句块：重复执行的部分，构成循环体，语句块：重复执行的部分，构成循

41、环体，可以是一句或多句。可以是一句或多句。Exit For Exit For：退出循环，执行：退出循环，执行Next Next 后的下一条语句。后的下一条语句。循环次数：循环次数：n nIntInt（+1 +1 ）Exit For循环体终值初值终值初值步长步长TF循环变量初值循环变量终值语句块有Exit For语句块循环变量循环变量步长FT步长0时For循环语句流程示意图例例4-84-8求求100100以内所有数的和。以内所有数的和。程序块如下：程序块如下：Sum Sum 0 0 sum sum 为累加和变量，设初值为为累加和变量，设初值为0 0For iFor i 1 To 100 1 To

42、 100 Sum SumSumSumi iNext iNext i 又如：求又如：求1010的阶乘。的阶乘。T T1 1 TT为连乘积的变量，设初值为为连乘积的变量，设初值为1 1For iFor i1 To 101 To 10 T TT*iT*iNext iNext i退出循环时，i的值是多少呢？4.3.2DoLoop4.3.2DoLoop循环语句循环语句循环语句循环语句DoDo循环用于控制循环次数未知的循环结构。循环用于控制循环次数未知的循环结构。语句形式：语句形式：(1)(1)Do While|UntilDo While|Until Exit Do Exit Do Loop Loop（2

43、 2）DoDo Exit Do Exit Do Loop While|Until Loop While|Until TFF表 达 式 列表 语句块有Exit Do 语句块Do WhileLoopDo WhileLoop循环循环流程图流程图TDo Loop WhileDo Loop While流程示意图流程示意图FT表达 式列表语句块Exit Do语句块T例例例例4-94-9利用利用利用利用Do WhileDo While循环编写一个将十进制数转换成二进制数的程序。程循环编写一个将十进制数转换成二进制数的程序。程循环编写一个将十进制数转换成二进制数的程序。程循环编写一个将十进制数转换成二进制数的

44、程序。程序运行界面如图：序运行界面如图：序运行界面如图：序运行界面如图：程序代码如下：程序代码如下：Private Sub Command1_Click()Private Sub Command1_Click()Dim x$,n%Dim x$,n%，a%,a%,n=InputBox(n=InputBox(请输入请输入1 1个整数个整数)Print Print 十进制数为：十进制数为：;n;nx=x=Do While n 0Do While n 0 a=n Mod 2 a=n Mod 2 n=n 2 n=n 2 x=Chr(48+a)&x x=Chr(48+a)&xLoopLoopPrint P

45、rint 二进制数为：二进制数为：;x;xPrintPrintEnd SubEnd Sub例 我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。分析：解此问题两种方法，可根据公式：26=13*(1+0.008)n 直接利用标准对数函数求得；也可利用循环求得，程序如下：Private Sub Command1_Click()x=13 n=0 Do While x maxa Then maxa=x IF x maxa Then maxa=x IF x mina Then mina=x IF x 0 And t r Then r=t 求最短的残料 ia=a 最短残料时a的段数 ib=b 最短残料时b的段数 End If Next a Next b Print ia,ib,rEnd Sub