ExcelVBA之6位Lotta程序

当你厌倦了选择你的幸运号码，你可以让VB为你选择。下面的过程Lotto使用1到51的六个数字填充数组：

Sub Lotto()
Const spins = 6
Const minNum = 1
Const maxNum = 51
Dim t As Integer
'looping variable in outer loop 外部循环变量
Dim i As Integer
'looping variable in inner loop 内部循环变量
Dim myNumbers As String
'string to hold all picks 储存选号的字符串
Dim lucky(spins) As String
'array to hold generated picks 储存产生的选号的数组
myNumbers = ""
For t = 1 To spins
Randomize
lucky(t) = Int(((maxNum - minNum + 1) * Rnd) + minNum)
'see if this number was picked before 检查本数字是否之前被选出来过
For i = 1 To (t - 1)
If lucky(t) = lucky(i) Then
lucky(t) = Int(((maxNum–minNum + 1) * Rnd) + minNum)
End If
Next i
MsgBox "Lucky number is " & t & lucky(t)
myNumbers = myNumbers & " –" & lucky(t)
Next t
MsgBox "Lucky numbers are " & myNumbers
End Sub