06章 循环结构

2007年5月17日星期四,重庆医科大学计算机教研室,第0章循环控制结构,贺向前,2020年5月2日1时51分,重庆医科大学计算机教研室,主要内容：,For循环语句While循环语句DoLoop循环语句各种算法,2020年5月2日1时51分,重庆医科大学计算机教研室,循环语句,While循环条件语句块Wend,DoWhile循环条件语句块Loop,DoUntil循环条件语句块Loop,Do语句块LoopWhile循环条件,Do语句块LoopUntil循环条件,For变量=值1To值2Step步长语句块Next变量,2020年5月2日1时51分,重庆医科大学计算机教研室,教师惩罚小学生抄写课文遍,Print重庆医科大学“Print重庆医科大学“Print重庆医科大学“Print重庆医科大学,三十行,2020年5月2日1时51分,重庆医科大学计算机教研室,5.3各种循环语句的语法格式,5.3.2WhileWend循环While循环条件语句块Wend,2020年5月2日1时51分,重庆医科大学计算机教研室,5.3.2WhileWend循环,i=1Whilein；m除以n得余数r；若r=0，则n为最大公约数，算法结束；否则执行步骤；将n赋值给m，r赋值给n，重复步骤。,2020年5月2日1时51分,重庆医科大学计算机教研室,OptionExplicitPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)r=mModnWhiler0m=nn=rr=mModnWendLabel3.Caption=最大公约数为:p=p+1NextjPrintNextiEndSub,2020年5月2日1时51分,重庆医科大学计算机教研室,例6-9：进制转换。任意输入一个十进制整数，单击“转换”按钮后，将该数转换为指定进制的数。程序界面，如图所示。,2020年5月2日1时51分,重庆医科大学计算机教研室,程序代码如下：OptionExplicitPrivateSubCommand1_Click()DimnumAsInteger,baseAsInteger,rAsIntegernum=Val(Text1.Text)Text2.Text=SelectCaseTrueCaseOption1.Valuebase=2CaseOption2.Valuebase=8EndSelectDoWhilenum0r=numModbasenum=numbaseText2.Text=LTrim(Str(r)&Text2.TextLoopEndSub,注意连接的顺序：a$=a$&b&a$=b$&a$功能上有什么区别？,2020年5月2日1时51分,重庆医科大学计算机教研室,例6-10：随机产生10000个1，4间的随机整数，统计1、2、3、4各数字出现的次数。,DimN%,c1%,c2%,c3%,c4%,i%i=1DoWhileimaxThenmax=NIfNminThenmin=Nsum=sum+NNextimean=sum/20Printmax,min,meanEndSub,2020年5月2日1时51分,重庆医科大学计算机教研室,例6-12：迭代求a的立方根。Xi+1=1/3*(2*xi+a/xi),PrivateSubForm_Click()Dimx1#,x2#,a#x2=1a=Val(InputBox(inputa)DoUntilAbs(x2-x1)0.00001x1=x2x2=2*x1/3+a/(3*x1*x1)LoopMsgBoxa&的立方根是：&x2EndSub,2020年5月2日1时51分,重庆医科大学计算机教研室,总结,