VB随机生成20个100以内的两位正整数,统计其中有多少个不同的数.

privatesubcommand1_click()dima(1to10)asinteger,i,jfori=1to10a(i)=int(rnd*100)+1printa(i);nextprintfo

一分都没有.郁闷.不过还是花点时间给你写一个.vb6.0xp系统测试通过,希望能选择为最佳.另外本人强烈鄙视提问了却不珍惜别人劳动成果,不选任何答案的!PrivateSubForm_Click()'使

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

importjava.io.BufferedWriter;importjava.io.File;importjava.io.FileWriter;importjava.io.IOException;p

这样才对初始化应加在For循环里s要变为双精度（这样平均数才有小数点后几位）楼主试我这个：PrivateSubCommand1_Click()Dimi%,j%,max%,min%,s%Fori=1To

你拉三个文本框,一个按钮text1和text1拉高一点,MultiLine设置为true,排列如图所示Private Sub Command1_Click()  

我的是最简洁的程序算法,哈哈,整个算法只有一个20次的循环,精简明朗快速DimRanValue(100)AsInteger'100个临时数据来计算重复DimiValueAsIntegerDimiCou

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

PrivateSubCommand1_Click()DimiAsInteger,myTempNumAsInteger,myTempStrAsStringRandomize(Timer)Fori=1To

生成按钮代码：PrivateSubCommand1_Click()RandomizeFori=1To100t=Int(Rnd()*900+100)IftMod2=0ThenList1.AddItemt

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

subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu

importjava.util.Random;publicclassTest{publicstaticvoidmain(String[]args){Randomr=newRandom();int[]a

'把所有的与最大值相同的都显示出来PrivateSubForm_Load()Me.AutoRedraw=TrueDima(0To19)AsIntegerDimb(0To19)AsIntegerDimM

Private Sub Command1_Click()    Cls    Dim r(

PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex

kk(i,1)=rnd*90+10'生成20个100以内的两位正整数10

Listresult=newList();while(result.Count

Dimay(20)PrivateSubCommand1_Click()Text1=""Fori=0To19ay(i)=Int(Rnd*100)Text1=Text1&""&ay(i)NextiEndS

vb6测试通过PrivateSubCommand1_Click()Dima(10)AsInteger,tempAsInteger,iAsInteger,jAsIntegerRandomizetemp=