欢迎来到天天文库
浏览记录
ID:51723820
大小:117.50 KB
页数:7页
时间:2020-03-15
《vb6.0实验五题与答案.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、实验五专业_____________班级________年级________姓名______________学号_______________一、实验目的1、熟练使用三种循环结构1)For循环For<循环变量>=<初值>To<终值>[Step<步长>]<循环体语句序列>Next[<循环变量>]2)Do循环格式一格式二格式三格式四DoWhile<条件><循环体语句序列>LoopDoUntil<条件><循环体语句序列>LoopDo<循环体语句序列>LoopWhile<条件>Do<循环体语句序列>LoopUnt
2、il<条件>3)While循环While<条件><循环体语句序列>Wend2、掌握几个常用算法数列求和、级数求和、求最大公约数及最小公倍数、数制转换、求阶乘闰年、素数、水仙花数、自然数对等判断二、实验内容1、按图示设置各控件,程序运行时,在Text1中输入一正整数,单击“判断”按钮,在标签控件Label1中显示“是完数”或“不是完数”。说明:完数是指其所有因子和等于它本身的数。如:28,1+2+4+7+14=28;所以28为完数。(类似的有:判断素数、求各位数字之和、水仙花数、自然数对)PrivateSu
3、bCommand1_Click()DimsumAsInteger,iAsIntegera=Val(Text1.Text)Fori=1Toa-1IfaModi=0Thensum=sum+iNextiDebug.PrintsumIfsum=aThenLabel1.Caption="完数"ElseLabel1.Caption="非完数"EndSub2、按图示设置各控件,程序运行时,在Text1中输入一正整数N的值,单击“计算阶乘”按钮,在Text2中显示N!的值。PrivateSubCommand1_Click
4、()Dims%a=Val(Text1.Text)s=1Fori=1Toas=s*iNextText2.Text=sEndSub3、按图示设置各控件,程序运行时,在Text1中输入一正整数N的值,单击“计算”,在Text2中显示所有[1,N]之间平方根为整数的数。PrivateSubCommand1_Click()a=Val(Text1.Text)Fori=1ToaIfInt(Sqr(i))=Sqr(i)ThenText2.Text=Text2.Text&i&""EndIfNextiEndSub4、按图示设
5、置各控件,程序运行时,在Text1中输入一正整数M的值,在Text2中输入一正整数N的值,单击“计算”,在Text3中显示所有[M,N]之间能被3整除,但不能被6整除的数。(类似求所有[M,N]之间能被3整除,但不能被6整除的数之和;还有可以改为:“除5余2”、“偶数”、“奇数”、“闰年”之类等等)PrivateSubCommand1_Click()m=Val(Text1.Text):n=Val(Text2.Text)IfmnFori=nTomIfiMod3=0
6、AndiMod6<>0ThenText3.Text=Text3.Text&i&""EndIfNextiEndSub5、按图示设置各控件,程序运行时,在Text1中输入一正整数N的值,单击“S=”按钮,在Text2中显示:S=1-1/2+1/3–1/4+…+(-1)N+1/N的值。PrivateSubCommand1_Click()Dimn%,S!,i%n=Val(Text1.Text)Fori=1TonS=S+(-1)^(i+1)/iNextiText2.Text=SEndSub6、把上题中的表达式改为:
7、S=1+1/1!+1/2!+1/3!+1/4!+…+1/N!PrivateSubCommand1_Click()Dimn%,S!,i%,t%n=Val(Text1.Text)t=1:S=1Fori=1Tont=t*iS=S+1/tNextiText2.Text=SEndSubS=11+22+33+44+…+NNPrivateSubCommand1_Click()Dimn%,S%,i%n=Val(Text1.Text)Fori=1TonS=S+i^iNextiText2.Text=SEndSub7、按图示设
8、置各控件,程序运行时,在Text1中输入一字符串,单击“统计”按钮,在Text2中显示该字符串中数字字符(大写字符、小写字符)的个数。PrivateSubCommand1_Click()a=Text1.TextFori=1ToLen(a)IfAsc(Mid(a,i,1))>47AndAsc(Mid(a,i,1))<58Thenk=k+1EndIfNextiText2.Text=kEndSub8、按图示设置各控件,程序运行时,在
此文档下载收益归作者所有