vb中随机产生一个三位数正整数,将该数和该数的逆序同时输出-搜答案-搜搜考试网

10+int(89*rnd(1))再问：谢谢啊非常感谢

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

先把产生的三个随机数保存在一个数组中,输出该三个随机数,然后将数组中的逆序并输出,

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

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

Public Function IsPrime(ByVal x As Integer) As Boolean

一下代码!你参考一下!PrivateSubCommand1_Click()ClsDima()AsInteger'定义一个动态数组Dimb(10)AsInteger'用于统计Randomizen=4:m

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

dimary(14),jgaslong,dimSerAim(),sumaslongrandomizefori=1to13ary(i)=int(rnd*1000)nextFori=1To12Forj=i

'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS

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

PrivateSubCommand1_Click()Dimk,a(1To30)Fori=1To30a(i)=Int(Rnd*800+100)Forj=1Toi-1Ifa(i)=a(j)Theni=i-

若要生成a与b之间的随机实数,请使用：RAND()*(b-a)+a两位的随机正整数的话,a=10,b=99

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

是的!

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

Private Sub Command1_Click() Dim a%(0 To 19), b

=randi([imin,imax],...)returnsanarraycontainingintegervaluesdrawnfromthediscreteuniformdistributiono

公式是有问题的,正确的写法应该是CInt(Rnd*9000)+1000