资源描述：
《最容易考到的vb程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第1题：编程，用随机函数产生2个10～100的整数，输出最大值。正确答案：PrivateSubCommand1_Click()Dimx%,y%,max%Randomizex=Int(Rnd*91+10)y=Int(Rnd*91+10)Max=xIfy>MaxTheny=MaxPrintMaxEndSub第2题：编程，将一个三位整数倒序输出。PrivateSubCommand1_Click()Dimx%,bw%,sw%,gw%x=Text1.Textbw=x100sw=x10Mod10整除Mod取余gw=xMod10x=gw*100+sw*10+bwPrintxEndSub第2
2、题：编程，求算式1+1/2！+1/3！+1/4！+……前10项的和。正确答案：PrivateSubCommand1_Click()Dimi%,s!，a!a=1:s=0Fori=1To10a=a/is=s+aNextiPrint"1+1/2!+1/3!+……=";sEndSub第1题：编程，求方程x2+y2=1000的所有整数解。正确答案：PrivateSubCommand1_Click()Dimx%,y%Forx=-32To32Fory=-32To32Ifx^2+y^2=1000ThenPrintx,yEndIfNexty,x或NextyNextx(先y后x)因为两个forEndS
3、ub第1题：编程，求算式1-1/2+1/3-1/4+……前30项的和。正确答案：PrivateSubCommand1_Click()Dimi%,s!,f%s=0:f=1Fori=1To30s=s+f/if=-fNextiPrint"1-1/2+1/3-1/4+……=";sEndSub第3题：编程，计算多项式Sn=a+aa+aaa+aaaa+…+aa…a（n个a），其中a是一个随机产生的1～9之间的整数；n是一个5～10之间的整数可从输入对话框中输入。正确答案：PrivateSubForm_Click()Dimi%,a#,n%,s#Randomizea=Int(Rnd*9)+1Don
4、=InputBox("输入一个n值：")LoopWhilen<4Orn>10(运行一下)s=0Fori=1TonT=T+as=s+Ta=a*10错的，应该还有b=a···NextiPrint"s=a+aa+aaa+……+";sEndSub第2题：编程，打印输出有数字组成的金字塔。图案如图所示。（P67）12223333344444445555555554444444333332221正确答案：PrivateSubForm_Click()Dimi%,j%,k%Fori=1To5PrintTab(1+5-i);设置该行输出的起始位置Forj=1To2*i-1PrintTrim(Str(
5、i));NextjPrintNextiFori=4To1Step-1PrintTab(1+5-i);Forj=1To2*i-1PrintTrim(Str(i));NextjPrintNextiEndSub数组：第1题：编程，从键盘输入一个字符串，将该字符串中的各个字符按照ASCII码从小到大排序后组成新的字符串，再从窗体输出。例如：输入字符串为“A4ngZ9”,输出字符串为“49AZgn”。正确答案：PrivateSubForm_Click()Dima()AsStringDimx$,i%,n%,p%x=InputBox("输入一个字符串")n=Len(x)ReDima(n)Fori
6、=1Tona(i)=Mid(x,i,1)NextiFori=1Tonp=iForj=i+1TonIfa(j)7、请输入a(1,"&i&")")a(i,1)=InputBox("请输入a("&i&",1)")NextiFori=2To4Forj=2To4a(i,j)=a(i-1,j)+a(i,j-1)NextjNextiFori=1To4Forj=1To4Printa(i,j);NextjPrintNextiEndSub函数第1题：编写Function函数过程，计算1+22+32+42+……n2。正确答案：PrivateFunctionsum(nAsInteger)AsSingl
