vb练习(三)编程

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

1、1.建立一个6×6的整型二维数组（数据由程序调用Rnd函数产生[0，10）的随机整数数），输出数组中所有奇数列元素的和。DimA(5,5)AsIntegerDimi,jAsIntegerFori=0To5Forj=0To5A(i,j)=Int(Rnd()*10)NextNextDimsumAsIntegerFori=0To5Forj=0To5Step2sum=sum+A(i,j)NextNext‘902.编写一个函数，其功能为求两个数的最大公约数。PublicFunctiongcd(ByValm

2、AsInteger,ByValnAsInteger)AsIntegerDimiAsIntegerIfm>nThenDimtAsIntegert=m:m=n:n=tEndIfFori=mTo1Step-1IfmModi=0AndnModi=0Thengcd=iExitFunctionEndIfNextEndFunction3.用InputBox输入一个年份，判断该年份是否是平年，若是则输出“Yes”，否则输出“No”。DimyearAsIntegeryear=Val(InputBox(""))If

3、(yearMod400=0)Or(yearMod4=0AndyearMod100<>0)ThenMsgBox("No")ElseMsgBox("Yes")EndIf4.建立一个6×6的整型二维数组（数据由程序调用Rnd函数产生[0，20）的随机整数数），输出数组中所有奇数列元素的和。DimA(5,5)AsIntegerDimi,jAsIntegerFori=0To5Forj=0To5A(i,j)=Int(Rnd()*20)NextNextDimsumAsIntegerForj=0To5Step2

4、Fori=0To5sum=sum+A(i,j)NextNextText1.Text=sum'所有奇数列元素的和为：1885.输入两个整数m、n，编写程序使得m>=n，并输出m、n的值。Dimm,nAsIntegerm=Val(InputBox(""))n=Val(InputBox(""))Ifm

5、.0001时求和终止。结果取5位小数。1-1/3+1/5-1/7+1/9-1/11+…+(-1)^(n-1)*1/(2n-1)+…PrivateSubCommand1_Click()DimnAsIntegerDimitemAsDoubleDimsumAsDoublei=1DoWhileTrueitem=(-1)^(i-1)*1/(2*i-1)sum=sum+itemIfAbs(item)<0.0001ThenExitDoElsei=i+1EndIfLoopMsgBox(Format(sum,"0

6、.0000"))EndSub'sum=0.785457.编写程序，建立一个6×6的整型二维数组（数据由程序调用Rnd函数产生[0，10）的随机整数数），输出数组中的最大元素。PrivateSubCommand1_Click()DimA(5,5)AsIntegerDimi,jAsIntegerFori=0To5Forj=0To5A(i,j)=Int(Rnd()*10)NextNextDimmaxAsIntegerFori=0To5Forj=0To5IfA(i,j)>maxThenmax=A(i,j

7、)EndIfNextNextText1.Text=max'最大元素为：9EndSub8.编写一个函数，其功能为判断一个3位正整数是否是"水仙花数"。（"水仙花数"是指各位数字的立方和与该数相等，如153=1^3+5^3+3^3,153就是水仙花数。）PublicFunctionPanduan(ByValxAsInteger)AsBooleanDimaAsInteger,bAsInteger,cAsIntegera=x100b=(xMod100)10c=xMod10Ifx=a^3+b^3+c^

8、3ThenPanduan=TrueElsePanduan=FalseEndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegeri=InputBox("输入一个3位正整数：")MsgBox(Panduan(i))EndSub9.计算sum=1+2+...+100Dimsum,iAsDoubleFori=1To100sum=sum+iNextprintsum10.定义一个下标上界为10整型数组，并为其赋值（值处于[0，100]之间），计算数组中所有