求，VB的七星彩代码

来源：百度知道 编辑：UC知道 时间：2024/06/06 01:36:10

你用产生随机数的函数做得了任何星彩都是易事了代码如下：
Private Sub Command1_Click()
Dim y%
y = InputBox("请输入你随机数的位数：")
z = Val(StrReverse(Format(1, String(y, "0"))))
Randomize
TextBox1.Text = (y) & "位数的这次出来的随机数是：" & Int(Rnd * (z * 10))
End Sub