如何用VB编写一个简单的选号器？就是点击然后程序随机帮选出一个数

如何用VB编写一个简单的选号器？就是点击然后程序随机帮选出一个数。。。

就是随机生成一个数字啊，代码：

int(rnd*100) '生成0-99之间的一个数

有个框可以输入几十几，，然后点击选号可以选出要的号码的。。。这要怎么的代码，，，，，，，

这不是就是显示你输入的几十几吗，这不是随机生成，这分明是作弊啊。

就是把你输入的数字显示出来啊。

aa = InputBox("输入你的几十几的数")

MsgBox aa, vbInformation, "中奖号码是："

还有倘若要显示一个号码对于几个文字的话要加什么代码。。。

不需要加啊，如上：

MsgBox aa, vbInformation, "中奖号码是："

Dim a(20) As Integer

Private Sub Form_click()

t = Val(InputBox("输入投票数字"))

Select Case t

Case 1 To 20

a(t) = a(t) + 1

End Select

Me.Cls

For I = 1 To 20

If I Mod 5 = 0 Then

Print

Else

Print Format(I, "00") &":" &a(I) &"次 "

End If

Next

End Sub

Private Sub Form_Load()

Me.AutoRedraw = True

End Sub

Dim a(6) As Integer '声明数组

Function JC(n As Integer) As Double

'求阶乘

JC = 1

For i = 1 To n

JC = JC * i

Next

End Function

Sub S36_7()

'选号

On Error Resume Next

For i = 0 To 6

Line1:

a(i) = Fix(Rnd * 36) + 1

For j = 0 To i - 1

If a(i) = a(j) Then

GoTo Line1

End If

Next

Next

End Sub

Sub PrintNum()

'输出

For i = 0 To 6

Print a(i)

Next

Print

End Sub

Private Sub Command1_Click()

'调用

Call S36_7

Call PrintNum

End Sub

Private Sub Command2_Click()

'输出

Print "获奖概率"JC(36) / JC(7) / JC(36 - 7)

End Sub

---