编写一个VB程序,随机产生10个[0,99]区间的整数,将其奇偶数在List1

可以使用Math.radom（）：产生一个[0.0,1.0)之间的一个双精度实数.publicclassSanJiaoXing{publicstaticvoidmain(Stringargs[]){i

随机数rand（）函数产生,乘上10在加上1取整就是1—10,同理乘以100再加上1就是1-99,就利用这个思路.做做试试吧!

dima(10)asintegerdimiasinteger,kasinteger,pasintegerdimmasintegerdimnasintegerfori=1to10a(i)=int(rnd

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

公倍数,余下的,再装到其中一种盒子中.再问：。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊？

#include<stdio.h>#include<stdlib.h> #include<time.h> #define n 

Dima(9)AsIntegerRandomizea(0)=Int(Rnd()*21+10)Doa(1)=Int(Rnd()*21+10)LoopWhilea(1)=a(0)Doa(2)=Int(Rn

privatesubcommand1_click()fori=1to15randomizea=int(Rnd*20)+80ifi=1thenmax=a:min=aifmaxathenmin=aprin

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

在屏幕上,指的是在本程序窗体上的话就是dimiaslongfori=1to2me.line(1000*rnd,1000*rnd)-(1000*rnd,1000*rnd),&Hffffff*rndnex

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

programex;varx:integer;beginrandomize;{先执行randomize,才能得到随机整数}x:=random(900)+100;{random(n)产生0～n-1的随机

PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%

是的!

PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>

楼主看看这个：Private Sub Command1_Click()   Dim aNum(9) As Long,&n

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

我HI你吧,等一下