求一抽签程序代码

'加一个命令按钮,拷下面的文字看看
Private Sub Command1_Click()
Static a(1 To 10) As Integer, e As Integer
Dim b As Integer, c As Integer
If e = 0 Then
For b = 1 To 10
a(b) = b
Next
End If
e = e + 1
If e = 11 Then
e = 0
Command1.Caption = "重新开始"
Exit Sub
End If
Randomize
For c = 1 To 10
b = Int(Rnd() * 10) + 1
If a(b) <> -1 Then
Command1.Caption = "第" & e & "次抽签结果是" & a(b)
a(b) = -1
Exit For
Else
b = Int(Rnd() * 10) + 1
End If
Next
End Sub

这是抽3次的代码，你参考一下吧。
Private Sub Command1_Click()
Randomize
Dim nums(1 To 10) As String, n As Integer, cishu As Integer
Dim i As Integer, j As Integer
For i = 1 To 10
nums(i) = CStr(i)
Next
Do
n = Int(Rnd * 10) + 1
If nums(n) <> "," Then
Print nums(n)
nums(n) = ","
cishu = cishu + 1
End If
Loop Until cishu = 3
Print
End Sub

一共可以抽几次
例如1-10 中