如何清空或重置或清除此類型的數組？

Question

我有一個特定的數組整數

 Dim ArrayWinRandomNumber(0 To 5) As Integer

還有另一個功能

Private Sub repetido()
    For x = 0 To 5
        Randomize()
        Dim RandomNumber As Integer
        RandomNumber = CInt(Int((49 * Rnd()) + 1))
        For y = 0 To 5
            If RandomNumber = ArrayWinRandomNumber(y) Then
                repetido()
            End If
        Next
        ArrayWinRandomNumber(x) = RandomNumber
    Next x
    ordenar()
End Sub

問題是，他第一次打來電話會重復，但效果很好，但是如果您第二次打來電話。 我返回了IndexOutOfRangeException

Answer 1

您可能應該做這樣的事情（您正在使用vb.net之類的vb6）

Imports System.Linq
. . . . . . . . .  . .
Dim r as new Random()
Dim items() as Integer = Enumerable.Range(1, 5).Select(Function(i) r.Next()).ToArray()

For Each i as Integer in items
    console.WriteLine("Item val: " & i)
Next

它會隨時為您提供隨機數數組