欢迎来到天天文库
浏览记录
ID:14743732
大小:369.50 KB
页数:11页
时间:2018-07-30
《循环章节的参考例题》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
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;"=";DoUntilx4、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=sEndS7、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,nA8、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
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
此文档下载收益归作者所有