关于产生不重复随机数的问题，求助各位大神

[weixin_42349845]

Public Class Form1
    Dim a() As Integer
    Dim i =0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As Integer
        Dim f = 1
        Dim k As Integer
        Do While f
            f = 0
            p = Int((10 - 0 + 1) * Rnd() + 0)
            k = 0
            If i >= 1 Then
                Do While k < i
                    If p = a(k) Then
                        f = 1
                        Exit Do
                    End If
                    k = k + 1
                Loop
            End If
        Loop
        i = i + 1
        ReDim a(i)
        a(i - 1) = p
        RichTextBox1.AppendText(p & vbCrLf)
    End Sub


End Class

生成10以内的不重复随机数，为什么会出现重复的，各位大神，我的过程哪里错了？

[threenewbee]

Dim a() As Integer = IEnumerable.Range(0, 10).OrderBy(Function(x) Guid.NewGuid()).ToArray() RichTextBox1.Text = String.Join(" ", a.Select(Function(x) x.ToString()))

[threenewbee]

好心给你写了代码，为什么无满意答案结帖？请lz给个解释。

[weixin_42349845]

不好意思，我找到我的哪错了，但是不能删除帖子，我页面没刷新没看到你的回复，我以为还没人回复，我就结了，不好意思，我关注您了，您说吧怎么补偿您

[threenewbee]

引用 3 楼 weixin_42349845 的回复:

不好意思，我找到我的哪错了，但是不能删除帖子，我页面没刷新没看到你的回复，我以为还没人回复，我就结了，不好意思，我关注您了，您说吧怎么补偿您

不是故意的没事。

[weixin_42349845]

不好意思了，新人，第一次发帖，不熟悉