学做36选7模拟器.不过只懂一半

Question

 小弟不才.问下  
 决对新手 
在搞一个36选7模拟器 
不会判断是否有重复.重复了怎么办.望大家帮忙 Private Sub Command1_Click() 
Dim a As Integer 
For n = 1 To 7 
a = Int(36 * Rnd) + 1 
Print a 
Next n 
End Sub  
 
只会到这.麻烦大家补冲下

Answer 1

Dim a() As Byte
Dim i As Integer
Dim j As IntegerReDim a(0 To 36)
For i = 0 To 36
  a(i) = i + 1
Next iFor i = 0 To 6
  Randomize
  j = UBound(a) * Rnd
  Debug.Print a(j)
  a(j) = a(UBound(a))
  ReDim Preserve a(UBound(a) - 1)
Next i

Answer 2

感谢二楼这位仁兄
  
*****************************************************************************
我希望有一天我能用鼠标双击我的钱包，然后选中我仅有的一张100元大钞，按住ctrl+c，接着不停地ctrl+v