vb.net产生随机数

方法名称：next()；功能描述：返回一个0~2147483647之间的整数

方法名称：next(i)；功能描述：返回一个0~i之间的整数

方法名称：next(i，j)；功能描述：返回一个i~j之间的整数

方法名称：Nextdouble()；功能描述：返回一个0~1之间的随机小数

================

使用方法：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim rand = New System.Random()

    MsgBox(rand.next().ToString())

End Sub

==========================

产生N个不同数的话，我给你个我写的VB的代码，你稍微改下：

产生0-10的数：

Private Sub Command1_Click()

    Randomize()

    Dim a(10) As Long

    n = 10

    For i = 0 To n

        a(i) = Int(Rnd() * (n + 1))

        For j = 0 To i - 1

            If a(i) = a(j) Then

                i = i - 1

                Exit For

            End If

        Next

    Next

    For i = 0 To n

        Print(a(i))

    Next

End Sub