求做一个36选7的编程

这个是代码。请看一下

Private Sub command1_click()
m = m + 1
If m > 7 Then
Command1.Enabled = False
Else
Command1.Caption = "产生 " + CStr(m) & "中奖"

a = Int(Rnd * 36 + 1)
Label1.Caption = Label1.Caption & " " & a
End If

End Sub

代码没有问题。

给你个思路吧。

1.给出36个不重复的数字，如从1到36。

2.从这36个数字中取7个随机数

3.根据这7个随机数搜索有没有人中奖。