以下內容貼在 FORM 上..
====================================================

' 大樂透模擬器 By Rocson
' 本程式需要一個 TEXT 和一個 COMMAND
' 請將 TEXT 的 MultiLine 設為 True
'

Dim Num1(49) As Integer
Dim Num2(48) As Integer
Dim Num3(47) As Integer
Dim Num4(46) As Integer
Dim Num5(45) As Integer
Dim Num6(44) As Integer
Dim GotNum(6) As Integer

Public Function Random(min As Single, max As Single, n As Long) As String
     Randomize
     Random = Format((max - min) * Rnd + min, IIf(n > 0, "0." & String(n, "0"), "0"))
End Function

Private Sub Command1_Click()
     Dim a As Single, b As Single, n As Long
     Dim i As Integer
     Dim j As Integer
     Dim k As Integer
     Dim t As Integer
    
     Dim RTime(6) As Integer
    
     For i = 1 To 6
      RTime(i) = Random(1, 10, n)
     Next
    
     For i = 1 To 49
      Num1(i) = i
     Next
     For t = 1 To RTime(1)
      GotNum(1) = Num1(Random(1, 49, n))
     Next
     k = 1
     For j = 1 To 49
    
      If Num1(j) <> GotNum(1) Then
       Num2(k) = Num1(j)
       k = k + 1
      End If
     Next
     '---------------------------------------------------
     For t = 1 To RTime(2)
      GotNum(2) = Num2(Random(1, 48, n))
     Next
    
     k = 1
     For j = 1 To 48
     
      If Num2(j) <> GotNum(2) Then
       Num3(k) = Num2(j)
       k = k + 1
      End If
     Next
     '---------------------------------------------------
     For t = 1 To RTime(3)
      GotNum(3) = Num3(Random(1, 47, n))
     Next
     k = 1
     For j = 1 To 47
     
      If Num3(j) <> GotNum(3) Then
       Num4(k) = Num3(j)
       k = k + 1
      End If
     Next
     '---------------------------------------------------
     For t = 1 To RTime(4)
      GotNum(4) = Num4(Random(1, 46, n))
     Next
     k = 1
     For j = 1 To 46
     
      If Num4(j) <> GotNum(4) Then
       Num5(k) = Num4(j)
       k = k + 1
      End If
     Next
     '---------------------------------------------------
     For t = 1 To RTime(5)
      GotNum(5) = Num5(Random(1, 45, n))
     Next
     k = 1
     For j = 1 To 45
     
      If Num5(j) <> GotNum(5) Then
       Num6(k) = Num5(j)
       k = k + 1
      End If
     Next
     '---------------------------------------------------
     For t = 1 To RTime(6)
      GotNum(6) = Num6(Random(1, 44, n))
     Next
     '---------------------------------------------------
     Text1.Text = "(" & Trim(Str(GotNum(1))) & ")(" & Trim(Str(GotNum(2))) & ")(" & Trim(Str(GotNum(3))) & ")(" & Trim(Str(GotNum(4))) & ")(" & Trim(Str(GotNum(5))) & ")(" & Trim(Str(GotNum(6))) & ")" & vbCrLf & Text1.Text
    
     Debug.Print GotNum(1)
     Debug.Print GotNum(2)
     Debug.Print GotNum(3)
     Debug.Print GotNum(4)
     Debug.Print GotNum(5)
     Debug.Print GotNum(6)
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.Height = 3135
Text1.Width = 5535
Command1.Height = 375
Command1.Width = 5535
Form1.Caption = "大樂透模擬器 By Rocson"
Form1.Width = 5895
Form1.Height = 4500

End Sub