vb中产生[5,46]之间随机整数VB表达式是-搜答案-智慧作业帮

Private Sub Command1_Click()Text1.Text = ""Dim A(1 To 1

PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(

'本人亲测可行Private Sub Form_CLICK() Dim arr(9) As In

RANDOM(1,30)

Toproducerandomintegersinagivenrange,usethisformula:Int((upperbound-lowerbound+1)*Rnd+lowerbound)Her

改用通用的获取随机字符的方式.定义一个字符串strAph="abcd.ABCD..."取随机一个字符a=mid(strAph,int(rnd(52))+1)

PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To

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)

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

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

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

Dima(5)AsDoublefori=1to5a(i)=fix(rnd*10)nextiFori=1To4Forj=1To5-iIfa(j)temp=a(j)a(j)=a(j+1)a(j+1)=te

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

Rnd（1）随机数产生的是（0,1）Rnd（1）*42则为（0,42）Int取整函数,Int（Rnd（1）*42）则为[0,41]然后加5,即为[5,46]答案固然是B.希望可以帮到你!

是的!

[0,4)[0,10)再问：第二个怎么能是[0,10]再答：Rand(2)是[0,2)然后再乘以5就是[0,10)包括0，但不包括10再问：Int(Rnd(1)*4+1)这样应该是[1,4]了吧?再答

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim

vb中 产生[5,46]之间随机整数VB表达式是