vb程序设计语言与程序设计第5章

《vb程序设计语言与程序设计第5章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计山东外贸职业学院E-mail：liushuhua08@163.com信息管理系柳淑花第5章循环结构本章主要内容1、For…Next循环2、While……Wend循环3、Do……While循环4、循环嵌套5、其它辅助语句6、综合举例作业本章小结退出循环结构循环结构：所谓循环，就是重复执行某些操作。循环结构主要包括：当型循环和直到型循环。VB提供了三种不同风格的循环语句：1、For…Next循环2、While……Wend循环3、Do……While循环上一页下一页返回本章首页ForV=e1To

2、e2[Stepe3]…[ExitFor]…NextV计算e1、e2、e3v=e1V超过e2?v=v+e3循环体TrueFalse循环次数已知的循环,它的一般形式如：循环次数计算公式:循环次数=Int((E2-E1)/E3)+1例5.1求N!（阶乘）li5_1.vbp5.1For-Next循环上一页下一页返回本章首页例5.2判断用户输入的数是否为素数li5_2.vbp应用程序界面如图：编写代码：PrivateSubCommand1_Click()Dimmasinteger,kasintegerDimnAsLongIfV

3、al(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.

4、SetFocusEndSub上一页下一页返回本章首页例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()Dim

5、aAsInteger,iAsInteger,jAsIntegera=0Fori=1To5Forj=-2To2a=a+i+jNextjPrinta;NextiPrintPrinti,j,aEndSub上一页下一页返回本章首页练习2：编程显示如图所示的乘法九九表作业P772、3在窗体上添加一个命令按钮和一个Pictrue控件上一页下一页返回本章首页编写command1_click事件的代码如下：PrivateSubCommand1_Click()DimI%,j%DimexpssAsStringFori=1To9Forj=

6、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上一页下一页返回本章首页DoWhile<条件>……[ExitDo]……Loop循环体条件TrueFalse循环体条件Fals

7、eTrueDoUntil<条件>…[ExitDo]…Loop5.3Do循环-------当型循环上一页下一页返回本章首页Do…[ExitDo]…LoopWhile<条件>循环体条件TrueFalse5.3Do循环-------直到型循环Do…[ExitDo]…LoopUntil<条件>循环体条件FalseTrue上一页下一页返回本章首页Do循环举例例5.6求s=1+2+3+……+100的和例5.7求两自然数m,n的最大公约数和最小公倍数其设计思路是：最大公约数----辗转相除法（1）假设m大于n；（2）m除以n，得余

8、数r。（3）若r=0，则n即为所求的最大公约数，结束；否则，执行步骤（4）；（4）令m←n，n←r再转到（2）执行。最小公倍数：两数的乘积除以最大公约数见li5_7.vbp上一页下一页返回本章首页循环嵌套：即大循环中包含小循环。无论是Do-Loop循环，还是For-Next循环，都可以进行循环嵌套。注意：内循环一定要完整地包含在外循环内，不得相