在VB.NET中生成随机数

这些是有关在Visual Basic中生成随机数的一些“随机”想法。

维基百科会比我提供更好的介绍，请参见

http://en.wikipedia.org/wiki/Random_number_generator 。

关键是您需要使用种子启动随机数生成器。 从午夜以来以毫秒数的形式加载表单是一种简单的开始方法。

VB.Net版本

这个演示项目将尽可能简单。 它由一个带有一个按钮的表单组成。 每次按下该按钮，都会弹出一个MsgBox，其中包含1到10之间的一个随机数字。此代码适用于VB.NET，是使用VB.NET 2005 Express Edition创建的。

启动一个新项目，然后双击工具箱中的按钮以将一个按钮添加到表单。 双击按钮以查看代码大纲：

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    End Sub
End Class

将该代码替换为：

Public Class Form1
    Private oRand As Random
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        oRand = New Random(DateTime.Now.Millisecond)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim iRand As Integer
        iRand = oRand.Next(1, 10)
        MsgBox(iRand)
    End Sub
End Class

请注意以下关键项：

1. oRand是随机数生成器，在模块级别定义
2. 使用当前时间的millisecong组件在Form Load事件中一次初始化oRand。
3. Random对象的Next方法生成一个新数字。

From: https://bytes.com/topic/visual-basic/insights/641768-generating-random-numbers-vb-net