西北农林科技大学 vb实习作业

《西北农林科技大学 vb实习作业》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第五章(1)例5-2PrivateSubCommand1_Click()Dimsum!,n%,aver!sum=0n=0x=Val(InputBox("请输入"))DoWhilex<>-9999sum=sum+xn=n+1x=Val(InputBox("请输入"))Loopaver=sum/nMsgBox"共输入"&n&"个数,平均值为:"&averEndSub(2)例5-3PrivateSubCommand1_Click()Dima%(65To90),cAsString*1le=Len(Text1)Fori=1To

2、lec=UCase(Mid(Text1,i,1))Ifc>="A"Andc<="Z"Thenj=Asc(c)a(j)=a(j)+1EndIfNextiForj=65To90Ifa(j)>0ThenPicture1.Print"";Chr(j);"=";a(j);"";NextjEndSub(3)例5-4PrivateSubCommand1_Click()Dima$()Dimx(0To10)AsIntegera=Split(Text1,",")Fori=oToUBound(a)If(a(i)<=100Anda(i)>0

3、)Thenk=a(i)10x(k)=x(k)+1EndIfNextiPrintPrint"100分的有:"&x(10)&"人"Fori=9To0Step-1Printi*10&"分-";i*10+9&;"分有:"&x(i)&"人"NextiEndSubPrivateSubCommand2_Click()EndEndSub(4))输入多名学生的一门课程成绩（成绩用数组存放，要求成绩用文本框输入），统计0-59、60-69、70-79、80-89、90-100个分数段人数。PrivateSubCommand1_Clic

4、k()Dima$()Dimx(0To10)AsIntegera=Split(Text1,",")Fori=oToUBound(a)If(a(i)<=100Anda(i)>0)Thenk=a(i)10x(k)=x(k)+1EndIfNextiPrintPrint"90-100分的有:"&x(10)+x(9)&"人"Fori=8To6Step-1Printi*10&"分-";i*10+9&;"分有:"&x(i)&"人"NextiFori=0To5s=x(i)+sNextiPrint"0-59分的有"&s;"人"EndS

5、ub(5)例5-6(用穷举法、辗转相除法两种方法)PrivateSubCommand1_Click()Dimm%,n%m=Val(InputBox("请输入第一个数m:"))n=Val(InputBox("请输入第二个数n:"))Ifm

6、(11)例5-12(12)第136页第3题(13)第136页第4题(14)第136页第5题(15)第136页第7题(16)第136页第8题(17)第136页第11题