生成具有循環隨機數在間隔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