為額嚜列印出來之後
前面六個字都會重複呢?

Option Strict Off
Option Explicit On
Friend Class Form3
Inherits System.Windows.Forms.Form

Private Function GetNumber() As Short
Randomize() ' 對亂數產生器做初始化的動作。
GetNumber = Int((49 * Rnd()) + 1) ' 產生 1 到 49 之間的亂數值。
End Function

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
'UPGRADE_WARNING: 陣列 a 的下限已經從 1,1 變更成 0,0。 按一下以取得詳細資訊: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"'
Dim a(10, 6) As Short '存放樂透數字
Dim nCnt As Short '設定10組號碼
Dim nCnt2 As Short '設定6個號碼
Dim nRet As Short
Dim nFor As Short
Dim nFor2 As Short
Dim blnExist A ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

Public Class Form1
    Function SetNumber(ByVal NumberArray() As Integer) As Integer
        For i As Integer = 0 To 48
            NumberArray(i) = i + 1
        Next
    End Function
    Function GetNumber(ByVal NumberArray() As Integer) As String
        Dim Number As String
        Number = Nothing
        For i As Integer = 0 To 6
            Number += NumberArray(i).ToString() + "  "
        Next
        Return Number
    End Function
    Function RandNumber(ByVal NumberArray() As Integer) As String
        Dim r As Random = New Random
        Dim temp As Integer = 0
        For i As Integer = 0 To 48
            RandNumber = r.Next(1, 48)
            temp = NumberArray(i)
            NumberArray(i) = NumberArray(RandNumber)
            NumberArray(RandNumber) = temp
        Next
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NumberArray(49) As Integer
        SetNumber(NumberArray) 'Set Array Data
        RandNumber(NumberArray)
        Dim Number As String
        Number = GetNumber(NumberArray)
        MessageBox.Show(Number, "GET Number")
    End Sub
End Class