生成具有循环随机数在间隔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