vb实验五题与附标准答案

《vb实验五题与附标准答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验五专业_____________班级________年级________姓名______________学号_______________一、实验目的1、熟练使用三种循环结构1）For循环For<循环变量>=<初值>To<终值>[Step<步长>]<循环体语句序列>Next[<循环变量>]2）Do循环格式一格式二格式三格式四DoWhile<条件><循环体语句序列>LoopDoUntil<条件><循环体语句序列>LoopDo<循环体语句序列>LoopWhile<条件>Do<循环体语句序列>LoopUntil<条件>3）While循环While<条件><循环体语句

2、序列>Wend2、掌握几个常用算法数列求和、级数求和、求最大公约数及最小公倍数、数制转换、求阶乘闰年、素数、水仙花数、自然数对等判断二、实验内容1、按图示设置各控件，程序运行时，在Text1中输入一正整数，单击“判断”按钮，在标签控件Label1中显示“是完数”或“不是完数”。矚慫润厲钐瘗睞枥庑赖。说明：完数是指其所有因子和等于它本身的数。如：28，1+2+4+7+14=28；所以28为完数。（类似的有：判断素数、求各位数字之和、水仙花数、自然数对）聞創沟燴鐺險爱氇谴净。PrivateSubCommand1_Click()DimsumAsInteger,iAsIn

3、tegera=Val(Text1.Text)Fori=1Toa-1IfaModi=0Thensum=sum+iNextiDebug.PrintsumIfsum=aThenLabel1.Caption="完数"ElseLabel1.Caption="非完数"残骛楼諍锩瀨濟溆塹籟。EndSub7/72、按图示设置各控件，程序运行时，在Text1中输入一正整数N的值，单击“计算阶乘”按钮，在Text2中显示N！的值。酽锕极額閉镇桧猪訣锥。PrivateSubCommand1_Click()Dims%a=Val(Text1.Text)s=1Fori=1Toas=s*iNe

4、xtText2.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、按图示设置各控件，程序运行时，在Text1中输入一正整数M的值，在Text2中输入一正整数N的值，单击“计算”，在Text3中显示所

5、有[M,N]之间能被3整除，但不能被6整除的数。（类似求所有[M,N]之间能被3整除，但不能被6整除的数之和；还有可以改为：“除5余2”、“偶数”、“奇数”、“闰年”之类等等）謀荞抟箧飆鐸怼类蒋薔。PrivateSubCommand1_Click()m=Val(Text1.Text):n=Val(Text2.Text)7/7IfmnFori=nTomIfiMod3=0AndiMod6<>0ThenText3.Text=Text3.Text&i&""EndIfNextiEndSub5、按图示设置各控件，程序运行时，在Tex

6、t1中输入一正整数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、把上题中的表达式改为：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=1For

7、i=1Tont=t*iS=S+1/tNextiText2.Text=SEndSubS=11+22+33+44+…+NNPrivateSubCommand1_Click()Dimn%,S%,i%n=Val(Text1.Text)Fori=1Ton7/7S=S+i^iNextiText2.Text=SEndSub7、按图示设置各控件，程序运行时，在Text1中输入一字符串，单击“统计”按钮，在Text2中显示该字符串中数字字符（大写字符、小写字符）的个数。茕桢广鳓鯡选块网羈泪。PrivateSubCommand1_Click()a=Text1.TextFori=1To

8、Len(a