vb,10个两位随机正数组成的数组并输出.然后反序输出-搜答案-智慧作业帮

DimnMaxasInteger,nMinasInteger,nTmpasInteger,nJsqasIntegerDimdSumasDoubleRandomizenTmp=CInt(Rnd*100)

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

问题好像还没有结束啊,补充一下吧intA=rnd()*10000intB=val(mid(intA,4,1)&mid(intA,3,1)&mid(intA,2,1)&mid(intA,1,1))int

PrivateSubCommand1_Click()Fori=0To99RandomizeIfiMod10=0ThenPrintPrintInt(Rnd*90+10);ElsePrintInt(Rnd

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

我已经上机验证过了,正确.思路：产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s

LS的回答有可能出来100（三位数）改为a=int(Rnd*100)b=int(Rnd*100)

这是我做的,你参考一下.

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccccc

Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N

在窗体form1上画一个label1显示算式、一个text1输入答案,一个command1（更换命题）和一个command2（提交答案）.然后将以下代码黏贴到form1代码窗运行.你自己的代码做了部分

privatesubcommand1_click()dima(10)fori=1to10a(i)=int(rnd*90)+10printa(i);s=s+a(i)nextprintprint"总和="

1.随机函数RND()产生一个0-1之间（不含0和1）的随机小数2.INT(RND()*B+A)产生一个A（包括A）到A+B（不包括A+B）之间的整数,如INT(RND()*40+60),产生60-9

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

一显示按纽为Button1,文本显示为Txt1.以下为代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even

'试一下：PrivateSubCommand1_Click()Dima(1To10)AsStringDimiAsInteger,jAsIntegerFori=1To10Randomizea(i)=Ch

Dima(10)AsIntegerDimi%,j%,t%RandomizFori=1To10a(i)=Int(Rnd*90+10)Printa(i);NextPrintFori=1To9Forj=i+

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

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim

Randomizea=int(rnd*6)+50