山东外贸学院VB第5章循环结构课件

VisualBasic程序设计E-mail：信息管理系第5章循环结构本章主要内容1、For…Next循环2、While……Wend循环3、Do……While循环4、循环嵌套5、其它辅助语句6、综合举例作业

本章小结退出循环结构循环结构：

所谓循环，就是重复执行某些操作。循环结构主要包括：当型循环和直到型循环。VB提供了三种不同风格的循环语句：

1、For…Next

循环2、While……Wend循环3、Do……While循环上一页下一页返回本章首页例5.2判断用户输入的数是否为素数

li5_2.vbp应用程序界面如图：编写代码：PrivateSubCommand1_Click()Dimmasinteger,kasintegerDimnAsLongIfVal(Text1.Text)>2147483647ThenMsgBox"数据溢出，请重新输入",vbOKCancel+vbInformation,“数据错误”

Text1.Text=""Else上一页下一页返回本章首页n=CLng(Text1.Text)k=Int(Sqr(n))m=0‘m是一个标记：1—否，0—是Fori=2TokIfnModk=0Thenm=1NextiIfm=0ThenLabel2.Caption=“是一个素数”

ElseLabel2.Caption=“不是一个素数”EndIfEndIfText1.SetFocus

EndSub上一页下一页返回本章首页例5.3：求∏的值。计算公式见P67

应用程序li5_3.vbp界面如图：编写代码：PrivateSubForm_Click()DimI%,n%,p#n=InputBox("请输入n的值（1-32767）：")p=1ForI=1Tonp=p*(4*I*I)/((2*I-1)*(2*I+1))NextIp=2*pPrint"n=";n;"时","∏=";pEndSub上一页下一页返回本章首页练习1：写出下面程序的运行结果PrivateSubForm_Click()DimaAsInteger,iAsInteger,jAsIntegera=0Fori=1To5Forj=-2To2a=a+i+jNextjPrinta;NextiPrintPrinti,j,aEndSub上一页下一页返回本章首页编写command1_click事件的代码如下：PrivateSubCommand1_Click()DimI%,j%DimexpssAsStringFori=1To9Forj=1Toiexpss=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*10+1);expss;NextjPicture1.PrintNextiEndSub上一页下一页返回本章首页5.2While循环语句格式：While<条件>……[ExitDo]……Wend循环体TrueFalse循环体条件是否为真计算条件的值例5.5见P69例5.4找出最大整数n,使得N!<1000上一页下一页返回本章首页Do…[ExitDo]…LoopWhile<条件>循环体条件TrueFalse5.3Do循环-------直到型循环Do…[ExitDo]…LoopUntil<条件>循环体条件False

True上一页下一页返回本章首页Do循环举例例5.6求s=1+2+3+……+100的和例5.7求两自然数m,n的最大公约数和最小公倍数

其设计思路是：

最大公约数----辗转相除法

（1）假设m大于n；

（2）m除以n，得余数r。

（3）若r=0，则n即为所求的最大公约数，结束；

否则，执行步骤（4）；

（4）令m←n，n←r再转到（2）执行。最小公倍数：两数的乘积除以最大公约数见

li5_7.vbp

上一页下一页返回本章首页循环嵌套：即大循环中包含小循环。无论是Do-Loop循环，还是For-Next循环，都可以进行循环嵌套。注意：内循环一定要完整地包含在外循环内，不得相互交叉。示例：Fori=e1Toe2[Stepe3]…

Forj=d1tod2[Stepd3]…..Nextj…

Nexti5.4循环嵌套上一页下一页返回本章首页5.5其他辅助语句

With语句

With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句。

其语法结构为：

With<对象>[<语句块>]

EndWithWithCmdFirst.Height=.Height+2000.Caption=“Hello”.Move0,0EndWith如：CmdFirst.Height=CmdFirst.Height+2000CmdFirst.Caption=“Hello”CmdFirst.move0,0上一页下一页返回本章首页

Exit语句

有多种形式的Exit语句，如：

ExitFor------------用于For循环体ExitDo------------用于Do循环体ExitSub----------用于Sub过程体ExitFunction----用于Function过程体其功能是：强制退出当前循环（或过程）体

注意：它们通常和分支语句配合使用。上一页下一页返回本章首页5.6综合举例数值转换：将一个十进制数m转换成(2—16)进值数r的思路是：

将m不断除r取余数，直到商为0，以反序排列即得到结果。

例11：数值