在间隔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