如何在标题栏中的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
将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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句