在VBA 编程中怎样选出6个幸运号？

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、最后运行程序即可。