VisualBasic练习题(三)答案

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

1、VisualBasic练习题（三）答案填空1.Caption2.3.4.5.147596.按值7.8.49.Str10.4807526976编程1.DimA(5,5)AsIntegerDimi,jAsIntegerFori=0To5Forj=0To5A(i,j)=Int(Rnd()*10)NextNextDimsumAsIntegerFori=0To5Forj=0To5Step2sum=sum+A(i,j)NextNextText1.Text=sum'所有奇数列元素的和为：902.PublicFunctiongcd(ByValmAsInteger,ByValnAsI

2、nteger)AsIntegerDimiAsIntegerIfm>nThenDimtAsIntegert=m:m=n:n=tEndIfFori=mTo1Step-1IfmModi=0AndnModi=0Thengcd=iExitFunctionEndIfNextEndFunction3.DimyearAsIntegeryear=Val(InputBox(""))IfyearMod400=0Or(yearMod4=0AndyearMod100<>0)ThenMsgBox("No")ElseMsgBox("Yes")EndIf4.DimA(5,5)AsIntegerDi

3、mi,jAsIntegerFori=0To5Forj=0To5A(i,j)=Int(Rnd()*20)NextNextDimsumAsIntegerFori=0To5Step2Forj=0To5sum=sum+A(j,i)NextNextText1.Text=sum'所有奇数列元素的和为：1885.Dimm,nAsIntegerm=Val(InputBox(""))n=Val(InputBox(""))Ifm

4、_Click()DimnAsIntegerDimitemAsDoubleDimsumAsDoublen=1DoWhileTrueitem=(-1)^(n-1)*1/(2*n-1)sum=sum+itemIfAbs(item)<0.0001ThenExitDoElsen=n+1EndIfLoopMsgBox(Format(sum,"0.00000"))EndSub'sum=0.785457.PrivateSubCommand1_Click()DimA(5,5)AsIntegerDimi,jAsIntegerFori=0To5Forj=0To5A(i,j)=Int(Rn

5、d()*10)NextNextDimmaxAsIntegerFori=0To5Forj=0To5IfA(i,j)>maxThenmax=A(i,j)EndIfNextNextText1.Text=max'最大元素为：9EndSub8.PublicFunctionPanduan(ByValxAsInteger)AsBooleanDimaAsInteger,bAsInteger,cAsIntegera=x100b=(xMod100)10c=xMod10Ifx=a^3+b^3+c^3ThenPanduan=TrueElsePanduan=FalseEndIfEndFu

6、nctionPrivateSubCommand1_Click()DimiAsIntegeri=InputBox("输入一个3位正整数：")MsgBox(Panduan(i))EndSub9.Dimsum,iAsDoubleFori=1To100sum=sum+iNextprintsum10.Dima(10),i,sumAsIntegerFori=0To10a(i)=Int(Rnd()*101)NextFori=0To10Ifa(i)〉=60Thensum=sum+a(i)EndIfNextprintsum