在区间 VB.NET 中循环生成随机数

Question

如何在标题栏0-99之间循环生成随机数，如下所示：https://www.dropbox.com/s/n6cvxlpjzklys80/vb.gif

我可以在菜单栏中生成随机数，但无法在特定间隔内循环。

Dim value As Integer = CInt(Int((99 * Rnd()) + 1))
Dim randomnumber As String = "My random no. between " & value.ToString

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Text = randomnumber

    End Sub

Answer 1

将 windows 表单计时器添加到您的项目和此代码

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.Timer1.Interval = 100 '10 per second
    Me.Timer1.Start()
End Sub

Private Shared prng As New Random
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Me.Text = "My random no. between " & prng.Next(100)
End Sub