vb中 产生[5,46]之间随机整数VB表达式是
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/21 01:41:14
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