Question

我使用以下功能

CInt(Math.Floor((99999999 - 10000000 + 1) * Rnd())) + 10000000)

获取长度为8位的随机数...
好的，当我在调试模式下运行此函数时，我得到了我想要的长度的不同数字的总和但是当我运行我的程序功能

时

Dim rguun As String = CInt(Math.Floor((99999999 - 10000000 + 1) * Rnd())) + 10000000)

总是给我回相同的号码为什么会这样？

Answer 1

Public Sub randomnumber()
    Dim rndNumber As String = ""
    Dim rnd As New Random
    For n As Integer = 0 To 7
        rndNumber &= Rnd.Next(0, 9)
    Next
End Sub

随机数发生器

1 个答案: