VB中怎样随机生成的20个数

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

呵呵,可以先用一个随机数确定你想要的出现概率,再在相应的概率里生成相应的取值范围,写个代码,参考一下吧：PrivateSubCommand1_Click()DimM,AAsIntegerRandomi

'在窗体上画两个列表框(ListBox),一个按钮(CommandButton)'粘贴以下代码'单击List1里的范围,在List2里列出该分类的所有数据DimNum(1To10000)AsInteg

定义20随机数,在判断每个随机数对2求于是否等于0,等于0的话个数加1,这样就好了.

dima(9)a(0)=25a(1)=33`````a(9)=99i=int(rnd*10)?a(i)看明白了吗?有问题再HI我再问：输出的三个数要求不重复的呢，你这样的只有一个

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()DimIAsIntegerDimN(15)AsInteger,MAsIntegerRandomizeForI=1To15N(I)=Int(Rnd*1

Dima(1To3)AsStringFori=1To3Forj=1To3Randomizea(i)=a(i)&CStr(Int(Rnd*10))NextjNexti再问：不好意思，是我没有说清楚，我想

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

Randomize初始化随机数发生器Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了然后挑选出来Mod3=0的数据排序就是了再问：就是mod3=0后不会排序啊再答：

'声明变量dimMin_numasintdimMax_numasintdimSum_numasintdimArr_num(9)asint'赋予初始值Min_num=101Max_num=-1Sum_n

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

通过SubMain启动Submain()Dima(9)AsInteger,pAsDouble,iAsInteger,nAsIntegerp=0n=0Fori=0To9a(i)=Rnd*100p=p+a

'在窗体上点击PrivateSubForm_Click()DimI,JAsIntegerDima(7),B(7)AsIntegerRandomizea(0)=Int(Rnd()*10)ForI=1To

privatesubcommand1_click()randomizedimaasinteger,basinteger,casintegera=int(rnd*12)+1text1=adob=int(

为了生成某个范围内的随机整数,可使用以下公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)upperbound是随机数范围的上限,而lowerbound则

Private Sub Command1_Click()    Cls    Dim r(

题目的含义混淆啊保证相同整数的个数为偶数,这就不叫随机了而且随机生成正数,是不会出现整数的,在这种情况下相同整数的个数总为0,满不满足条件?

#include#includeintmain(intargc,char**argv){intnum[1000];intmin=10000;inti;for(i=0;i再问：找到问题了--那是i++不