33选6 vb程序

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

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
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-08-14
你提供什么报酬.
QQ:1274750692
邮箱:[email protected]
详谈
第2个回答  2010-08-14
写个随机函数就可以了!
见一个按钮 按钮的代码如下:

dim i as integer
i=int(rnd*33+1)
相似回答
大家正在搜