酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88289

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

VB大樂透彩組合6個號碼


程式碼
一個Command1 6個TEXT
Private Sub Command1_Click()
    Dim N(7) As Integer
    Randomize
    i = 1
    Do
        N(i) = Int(Rnd() * 49 + 1) '49改38就是小樂透
        i = i + 1
        For j = 1 To i - 2
            If N(i - 1) = N(j) Then
                i = i - 1
                Exit For
            End If
        Next
    Loop Until i = 7 '7改6  產生五個號碼 今彩539

    For i = 1 To 7
        Text1 = N(1)
        Text2 = N(2)
        Text3 = N(3)
        Text4 = N(4)
        Text5 = N(5)
        Text6 = N(6)
    Next
End Sub

 

相簿設定
標籤設定
相簿狀態