各位大虾,vb随机生成4位随机数,怎么实现啊,送分啦

[letdreamfly]

各位大虾,vb随机生成4位随机数,怎么实现啊,送分啦

[jam021]

生成4个一位的,然后串成4位的字符串,再转成数字,呵呵

[sloven]

randomize(timer)
dim ii as integer
ii=int(rnd*10000)

[zgvslch]

rnd 函数
Dim MyValue as Integer
MyValue = Int((8999 * Rnd) + 1000)

[letdreamfly]

好,不错,送分

[Jason78]

Dim a As Integer
a = Int(10000 * Rnd())
Print a

[xiang1516]

全对
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer

a = Rnd() * 10
b = Rnd() * 10
c = Rnd() * 10
d = Rnd() * 10
Text1.Text = a & b & c & d

[cdsun]

Dim rndnum As String
Dim verifycode As String
Randomize
Do While Len(rndnum) < 4
num1 = CStr(Chr((57 - 48) * Rnd + 48))
rndnum = rndnum & num1
Loop
verifycode = rndnum
Label3.Caption = verifycode

[northwolves]

Private Sub Command1_Click()
Randomize
MsgBox Mid(Rnd, 3, 4)
End Sub

[qidaozhilong]

sloven(sloven)的这段代码有错误
randomize(timer)
dim ii as integer
ii=int(rnd*10000)
1、当rnd返回1时，显示10000，这是5位数
2、当rnd返回0时，显示0，这是0位数
应该在最后+一句format()函数，来控制一下格式。

[Mars.CN]

Randomize(Timer)

<变量>=int(Rnd*100+(终值-起值-1))

实现了从两个数之间取值的结果