最新《高等教育循环》PPT课件教学讲义PPT课件.ppt

《最新《高等教育循环》PPT课件教学讲义PPT课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《高等教育循环》PPT课件采用循环程序可以解决一些按一定规则重复执行的问题。例如，统计一个班几十名学生，甚至全校几千名学生的学期成绩，如求平均分、不及格人数等本章主要内容第5章循环结构程序设计Do...LoopFor...Next退出循环出口语句(Exit)循环语句多重循环列表框与组合框常用算法程序举例循环是指在指定的条件下多次重复执行一组语句被重复执行的一组语句称为循环体VB提供的循环语句有For...NextDo...LoopWhile...WendForEach...Next最常用的是For...Next和Do...Loop语句假真循环体循环条件采用Print直接在窗体

2、上输出结果，程序代码：PrivateSubForm_Load()Showt=1Forc=1To8t=t*cNextcPrint"T=";tEndSub程序运行结果是：T＝40320语句t=t*c称为乘法器。先将t置1(不能置0)。在循环程序中，常用累加和累乘来完成各种计算任务例5.3求T=8!=1×2×3×…×8例5.3例5.3T=8!=1×2×3×…8，把结果显示在网页上。t=1'累乘器初值为１Forc=1To8t=t*c'累乘器，在原有积的基础上每次乘一个数NextPrint"T=";t程序执行结果是：T＝40320分析c=1t←t*c11c=3t←t*c1*2

3、3c=2t←t*c12c=8t←t*c1*2*…78……累乘器t=t*k旧值。前n项之积新乘的数采用Print直接在窗体上输出结果，程序代码如下：PrivateSubForm_Load()ShowDimpiAsSingle,cAsInteger,sAsIntegerpi=0s=1's表示加或减运算Forc=1To10000Step2pi=pi+s/cs=-s'交替改变加、减号NextcPrint"π=";pi*4EndSub程序运行结果是：π＝3.141397例5.4用π/4＝1-1/3+1/5-1/7+……级数求π的近似值(取前5000项来进行计算)例5.4Fort=1T

4、o3Ift<=1Thena=3Ift<=2Thena=2Ift<=3Thena=1Printa;NexttPrinttA.3333B.1234C.3214D.1114下列程序的运行结果是？想一想思考题DFort=1To3Ift>=1Thena=3Ift>=2Thena=2Ift>=3Thena=1Printa;NexttPrinttA.3334B.1234C.3214D.1114下列程序的运行结果是？想一想思考题C运行下面程序后，循环体执行了______次。i=0:n=1DoWhilei<32i=(i+1)*(i+1)n=n+1LoopPrintnA.2B.3C.4D.5请回

5、答问题想一想思考题Cs="ABCDEFGHIJ":c=""Fork=2ToLen(s)Step3a=Mid(s,k)c=c+Left(a,1)NextkPrintcA.BDFB.CFIC.BEHD.BEI下列程序的运行结果是？想一想思考题C采用DoWhile...Loop语句采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()DimnAsInteger,sAsLongShown=1:s=0DoWhilen<=100s=s+n*nn=n+1LoopPrint"s=";sEndSub程序运行结果：S＝338350例5.5求S＝12+22+…+1

6、002例5.5“辗转相除法”算法：求出m/n余数p，若p＝0，n即为最大公约数；若p非0，则把原来的分母n作为新的分子m，把余数p作为新的分母n继续求解设计步骤如下：(1)创建应用程序的用户界面和设置对象属性例5.7输入两个正整数，求它们的最大公约数例5.7编写的“计算”按钮Click事件过程代码如下：PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,pAsIntegerm=Val(Text1.Text):n=Val(Text2.Text)Ifm<=0Orn<=0ThenMsgBox("数据错误!")EndEndIfD

7、op=mModnm=nn=pLoopWhilep<>0Text3.Text=mEndSub若输入的m和n的值为85和68，则运行结果如上图语句格式：While条件循环体Wend功能：当条件成立(为真)时，执行循环体；当条件不成立(为假)时，终止循环。本语句与上述DoWhile...Loop循环语句相似，其差别是：While...Wend语句中不能使用Exit语句跳出循环。5.1.3While...Wend循环语句用于提前退出循环格式：Exit{For

8、Do}功能：直接从For循环或Do循环中退出