vb6.0实验五题与答案.doc

《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、按图示设置各控件，程序运行时，在