vb练习题参考答案

《vb练习题参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一参考答案一、选择题12345678910BACCCCACBC11121314151617181920BBACDCBADC21222324252627282930BDCDBADBAC二、填空题1、窗体2、Sqr(y^3+3/abs(a*b))3、1574、随机访问方式5、False或06、57、08、Text1.Text9、C2.Caption10、1或a(1)11、Preserve12、i13、k=m14、a(i)或a(UBound(a))15、Option2316、917、I18、then19、i+j20、Print21、a

2、()或a22、Ubound(b)或1023、n=n-1或n=10–I24、ForAppend25、Print#1,s或Write#1,s一、编程题1、FunctionGcd(ByvalmAsInteger,ByvalnAsInteger)AsIntegerr=mModnIfr=0ThenGcd=nElseGcd=Gcd(n,mModn)Loopr=mModnDoUntilr=0m=nn=rr=mModnLoopGcd=nDimrAsIntegerDor=mModnm=nn=rLoopUntilr=0Gcd=mEndFunctio

3、n红部分代码可以换成蓝色或者黑色的代码。232、OptionBase1PrivateSubCommand1_Click()DimA(26)AsIntegerDimmaxAsIntegers=Text1.TextL=Len(s)Fori=1ToLch=UCase(Mid(s,i,1))Ifch>="A"Andch<="Z"ThenIdx=Asc(ch)-Asc("A")+1A(Idx)=A(Idx)+1EndIfNextimax=A(1)Fori=1To2623IfA(i)>maxThenmax=A(i):x=iNextiLabe

4、l1.Caption="使用频率最高的是"&Chr(x+64)&"，共出现"&max&"次。"EndSub二参考答案一、单选题1-5:BCCCA6-10:DBDCB11-15:CBDAA16-20:CBADC21-25:AABAB26-30:ACDBD二、填空题231、(1)12、(2)AAAAAAA3、(3)24、(4)12185、(5)306、(6)Function(7)n(8)JieC=n*JieC(n-1)(9)End237、(10)Len(s)或Len(Text1.text)(11)Mid(s,i,1)(12)c<=”

5、Z”(13)Nexti8、(14)ReDimia(n)(15)Int(Rnd*(99-10+1))+10或Int(Rnd*90)+1023(16)n-1(17)ia(imin)=t9、(18)t(19)Sx=Sx+t(20)*t*(21)Loop10、(22)Form_Clik()(23)X=-3.1415926(24)y=sin(x)(25)>3.1415926三、编程题231、FunctionMax(a()AsSingle)AsSingleDimiMax%,i%iMax=Lbound(a)Fori=Lbound(a)+1To

6、Ubound(a)Ifa(i)>a(iMax)TheniMax=iNextiMax=a(iMax)EndFunctionPrivateSubPicture1_Click()Dimx(1To10)AsSingleFori=1To10x(i)=Rnd*100Print"x("&i&")="&x(i);NextiPrintPrint"最大的数组元素是"&Max(x())EndSub2、DimPiAsDouble,IAsLong,fuhao%fuhao=1i=1DoUntil1/i<0.0000001Pi=Pi+fuhao*1/Ifuh

7、ao=-fuhaoi=i+2LoopPi=4*PiPrint"π=";Pi23三参考答案一、单选题1B2D3D4B5B6D7C8B9D10A2311B12B13B14D15D16D17B18C19B20B21B22A23D24A25A26D27C28D29A30D二、填空[1]AAAAA[2]顺序文件[3]5.0[4]9[5]Picture1.Picture=LoadPicture("d:pic1.jpg")[6]x=Int(Rnd*(200-100+1)+100)或其他等价的表达式[7]iMod8=0ThenPrint条件可

8、表达为Int(i/8)=i/8或i/8=i8[8]M[9]1To7或0To7或LBound(arr)ToUBound(arr)[10]M=arr(i)[11]Interval[12]Enabled=True[13]Label1.Caption=Time[14]