vb随机产生一个四位数

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

只要使用以下代码：dimaasintegerrandomizea=int(4*rnd)a的值即为0,1,2,3中的一个.

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

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

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

PrivateSubCommand1_Click()a=cint(inputbox("输入一个四位数"))ifa9999thenmsgboxa&"不是四位数!":exitsubfori=1to4b=b

问题好像还没有结束啊,补充一下吧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)

PrivateSubCommand1_Click()Dima()AsString,xAsIntegera=Split("7,8,54,69,12,32",",")Randomizet=Int(6*Rn

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

PrivateSubCommand1_Click()RandomizeDimiAsInteger,jAsInteger,kAsIntegeri=Int(Rnd*10)'0-9j=Int(Rnd*90)

把这几个符号先存到数组里用随机函数PrivateSubForm_Load()DimS(1To4)AsStringDimaAsIntegerRandomizeS(1)="+":S(2)="-":S(3)

DimxAsIntegerDima,b,c,dx=1234a=x\1000Mod10b=x\100Mod10c=x\10Mod10d=xMod10Printa,b,c,d与楼上相比,允许原始数字大于或

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

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

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

是的!

x = 4321d = x \ 1000 '千位c = x \ 100 

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

Randomizea=int(rnd*6)+50