为额嚜列印出来之后
前面六个字都会重复呢?

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