VB编程 生成20个1-100之间的随机数,统计其中一位数,两位数和三位数的个数

窗体中做三个文本框,分别放A,B,及A、B的最大分约数.PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Dor=aModba=b

Dimm(1To20)AsIntegerDimi,j,cntAsIntegerDimisHasSameAsBooleanFori=1To20'生成100以内的两位正整数m(i)=Int(Rnd()*9

OptionExplicitPrivatea(9)AsIntegerPrivateiMaxIndexAsIntegerPrivateSubCommand1_Click()Dimi,j,k,iMaxAs

Dima(1To20)AsIntegerPrivateSubCommand1_Click()ClsScale(0,0)-(100,100)Foru=1To20a(u)=Int(Rnd*50)+50b=

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

Dimk%Dima%(1To10)PrivateSubCommand1_Click()Fori=1To10Randomizea(i)=Int(Rnd*100+1)NextPrint"a数组:"k=1F

代码如下：dimi,a(100)asintegerrandomizefori=0to99a(i)=int(rnd*(100-1+1))+1'这是一个公式,next

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m

Private Sub Command1_Click()  Dim i As Integer, n As&nb

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

窗体加一按钮,一个文本框PrivateSubCommand1_Click()RandomizeFori=1To100Text1.Text=Int(Rnd*90)+10NextEndSu

@arr = Array.newfor i in 0..19 do @arr << rand(1.

再问：谢了，能否把程序给提供一下，我不会再答：好吧！

先建一个大一点的label1框,然后...DimaAsIntegerDimbAsStringDimcAsIntegerDimdAsStringDimeAsIntegerDimfAsIntegerDim

前些天我才写的,是给别人弄的,他要的是1到100的十个数,并且按command2可以到换,我稍加修改给你(别忘了把窗体拉长点哈!短了后面不能显示哦)还要添加一个commandPrivateSubCom

dima(9)asintegerprivatesubcommand1_click()dimiasintegerrandomizefori=0to9a(i)=int(rnd*101)text1.text

Private Sub Command1_Click()    Cls    Dim r(

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

PrivateSubCommand1_Click()DimiAsInteger,NAsInteger,num1AsInteger,num2AsIntegerN=Val(InputBox("请输入抛硬币