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

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

ID:51723820

大小:117.50 KB

页数:7页

时间:2020-03-15

vb6.0实验五题与答案.doc_第1页
vb6.0实验五题与答案.doc_第2页
vb6.0实验五题与答案.doc_第3页
vb6.0实验五题与答案.doc_第4页
vb6.0实验五题与答案.doc_第5页
资源描述:

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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。