1、打开excle软件，进入VBA的编程界面，缝侨新建一个子过程。
2、定义两个常量。一个最大值，一个最小值，等一下我们要选出在1-60之间的6个幸运号码。
Const minNum = 1
Const maxNum = 60
3、然后定义变量，t,i,用来循环的变量，lucky是用来存储幸运号码的数组。
Dim t As Integer
Dim i As Integer
Dim lucky(6) As String
4、然后进行第一层循环。
5、进行第二层循环铲欠屈，检查是否有重复的数字。
6、将结果打印出来。
完整代码如下：
Sub find_lucky()
Const minNum = 1
Const maxNum = 60
Dim t As Integer
Dim i As Integer
Dim lucky(6) As String
For t = 1 To 6
Randomize
lucky(t) = Int((maxNum - minNum + 1) * Rnd) + minNum
For i = 1 To (t - 1)
If lucky(t) = lucky(i) Then
lucky(t) = Int((maxNum - minNum + 1) * Rnd) + minNum
i = 0
End If
Next i
宙铲 MsgBox "第" & t & "个luckynumber is" & lucky(t)
Next t
End Sub
7、最后运行程序即可。
