tianqing20wen2010-06-28TA获得超过2.3万个赞关注PrivateSubCommand1_Click()RandomizeDima(1To20)AsIntegerDimiAsIntegerDimsumAsInteger,**eraAsDoubleFori=1To20a(i)=Int(Rnd*1001)sum=sum+a(i)Next**era=sum/20Print**eraEndSub==============PrivateSubCommand1_Click()Dima(4,5)AsInteger,i,jAsIntegerDimk,g,hAsDoublek=0Fori=1To4Forj=1To5a(i,j)=Int(Rnd*101)k=k+a(i,j)Ifa(i,j)>60Thenh=h+1ShowPicture1.Printa(i,j);NextjPicture1.PrintNextig=k/20ShowPicture2.Print"平均分为："&gPicture2.Print"及格人数为："&hEndSub