大樂透號碼排列組合

創建一個 Excel VBA 程式來生成大樂透號碼排列組合的基本想法是隨機選擇 49 個號碼中的 6 個號碼，並且確保這些號碼是唯一的。以下是一個簡單的 VBA 程式碼範例，展示了如何生成這樣的隨機號碼組合：

Sub GenerateLottoNumbers()
    Dim Numbers(1 To 6) As Integer
    Dim i As Integer, j As Integer
    Dim temp As Integer
    Dim isUnique As Boolean

    ' 初始化隨機數生成器
    Randomize

    ' 生成六個唯一的號碼
    For i = 1 To 6
        Do
            isUnique = True
            ' 生成一個新的隨機數
            temp = Int((49 * Rnd) + 1)

            ' 檢查號碼的唯一性
            For j = 1 To i - 1
                If Numbers(j) = temp Then
                    isUnique = False
                    Exit For
                End If
            Next j
        Loop While Not isUnique

        Numbers(i) = temp
    Next i

    ' 排序號碼
    Call BubbleSort(Numbers)

    ' 輸出結果
    For i = 1 To 6
        Debug.Print Numbers(i)
    Next i
End Sub

' 簡單的冒泡排序算法
Sub BubbleSort(arr() As Integer)
    Dim i As Integer, j As Integer
    Dim temp As Integer

    For i = LBound(arr) To UBound(arr)
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
End Sub

此代碼將在 VBA 的 Immediate Window 中輸出六個隨機且唯一的號碼。要執行此代碼，您需要在 Excel 的 VBA 編輯器中創建一個模塊並將此代碼粘貼進去。您可以通過按 Alt + F11 從 Excel 進入 VBA 編輯器，然後插入一個新模塊並添加代碼。