谁能帮我编一个随机选数字的程序啊？

Question

谁能帮我编一个随机生成一个4位数程序啊，我最近在一个影视论坛灌水，但论坛币来得太慢了，里面有个彩票中心，每次随机生成一个4位数，猜中了就赚了，我想的是最好能把上一次的号码的4位数输进去，然后点生成，它能从这次的基础上产生一个新的4位数来。希望大家帮帮我。

Answer 1

直接使用rnd()函数就可以了啊!!!

Answer 2

谢谢，我连语法都不会诶
就是一个command按钮和一个text筐
我把上次的4个数字选上去点command就在text筐生成了一个新的
在点继续生成下去
我vb都忘光了，大家帮忙小弟一下

Answer 3

Private Sub Form_Load()
    ''窗体加载的时候先初始化随机数
    Randomize()
End SubPrivate Sub Command1_Click()
    ''按钮按下, 产生4位随机数
    Text1.Text=Format(Int(Rnd*9999),"0000")
End Sub

Answer 4

生成4位数容易，可是，不一定它是怎么生成的呀？？n=int(rnd*(大数-小数))+小数就是了里边你自己定义吧

Answer 5

Randomize timer以时间为随机种子,每次产生不同的随机数.

Answer 6

Option ExplicitPrivate Sub Command1_Click()
Debug.Print Right("0000" & Int(Rnd(1) * 9999), 4)
End Sub