循环章节的参考例题

《循环章节的参考例题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、7.2运行下列程序，输出什么图形？PrivateSubCommand1_Click()clsForr=1000To1200Step100Circle(2000,2000),rNextrEndSub7.3有如下程序：PrivateSubForm_Click()x=InputBox("输入x")y=x:n=1:p=x:t=1Dop=-1*p*x*xt=t*(2*n)*(2*n+1)y=y+p/tn=n+1LoopUntilAbs(p/t)<=0.000001PrintyEndSub运行该程序后所实现的数学运算

2、式是___B。A)B)C)D)7.4在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是AA)BBB)AC)BD)AACCCBBCCBBBDDDDCCCDDDCCCCEEEEEDDDDEEEEDDDDD7.5下面程序运行时，外层、中层和内层循环次数分别为__C__。PrivateS

3、ubForm_Click()Fora=1To3Forb=1ToaForc=bTo3Next:Next:NextEndSubA)2186B)333C)3614D)8637.6阅读以下程序，写出程序的功能：在窗体上打印输出:将用户输入的任意一个正整数分解为质因子之积PrivateSubForm_Click()DimxAsInteger,iAsIntegerx=InputBox("输入正整数x=")i=2:Printx;"=";DoUntilx

4、ePrinti;"*";EndIfx=xiElsei=i+1EndIfLoopEndSub习题7.7程序代码填空：由键盘输入一个正整数，找出大于或等于该数的第一个素数。PrivateSubform_Click()DimpAsInteger,xAsInteger,flagAsBooleanflag=False‘此处设置flag为标志性变量，初始值为False，表示没有找到素数x=InputBox("请输入一个正整数")DoWhileNotflagp=2:flag=True‘此处设置flag为标志性变量，假

5、设x是素数，用flag为TRUE来标志DoWhileflagAnd(p<=(x/2))‘判断x是否为素数IfxModp=0Thenflag=False‘当x能被p整除，说明x不是素数，用flag为False来标志Elsep=p+1‘当x不能被p整除，则取下一个数p=p+1EndIfLoopIfNotflagThenx=x+1‘若x不是为素数，则继续判断比x大的数是否为素数LoopPrintxEndSub习题7.8编程实现任意长度的数据的逆序显示。2PrivateSubCmdInvert_Click()‘方

6、法一DimiAsInteger,sAsString,nAsIntegern=Len(TxtS)Fori=nTo1Step-1s=s&Mid(TxtS,i,1)‘从字符串的最后逆序依次取出每个字符顺序连接NextiTxtV=sEndSubPrivateSubCmdInvert_Click()‘方法二DimiAsInteger,sAsString,nAsIntegern=Len(TxtS)Fori=1Tons=Mid(TxtS,i,1)&s‘从字符串中顺序依次取出每个字符逆序连接NextiTxtV=sEndS

7、ubPrivateSubCmdInvertClick()‘方法三DimiAsInteger,sAsString,nAsIntegern=Len(TxtS.Text)Fori=nTo1Step-1s=s+Left(Right(TxtS.Text,n-i+1),1)NextiTxtV.Text=sEndSub2习题7.9实现用户输入内容中英文字母的大小写互换。仿照课本148~149页例7-6的思路方法一：PrivateSubCmdChange_Click()DimiAsInteger,sAsString,nA

8、sString*1,rAsStrings=TxtS‘提取在文本框中用户输入的内容Fori=1ToLen(s)‘由i控制顺序访问的字符位置n=Mid(s,i,1)‘提取用户输入内容中的第i个字符Ifn>="a"Andn<="z"Then‘若该字符为小写，则改成大写11n=UCase(n)‘将s字符串中的第i个小写字符转换为大写ElseIfn>="A"Andn<="Z"Then‘若该字符为大写，则改成小写n=LCase(n)‘将s