33选6 vb程序

Question

从1~33的自然数中选6个，然后6个数都不能重复，就跟彩票抽奖一样。程序的版面越简洁越好。一个按钮一点就选出来最好。当然实在不行，也可以按照你的方法编。帮帮忙。谢了！！！！

Answer 1

Private Sub Command1_Click()
Dim a As String, b(6) As String
Randomize
a = ""
For i = 65 To 97
a = a & Chr(i)
Next i
For i = 0 To 5
b(i) = Mid(a, 1 + Int(Len(a) * Rnd), 1)
a = Replace(a, b(i), "")
b(i) = Asc(b(i)) - 64
Next i
Print Join(b, ",")
MsgBox Join(b, ",")
End Sub

Answer 2

你提供什么报酬.
QQ:1274750692
邮箱:[email protected]
详谈

Answer 3

写个随机函数就可以了！
见一个按钮 按钮的代码如下：

dim i as integer
i=int（rnd*33+1）