ExcelVBA之6位Lotta程序

本文主要是介绍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

这篇关于ExcelVBA之6位Lotta程序的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---