Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 随机数
Dim a As Random = New Random(55)
Label1.Text = a.Next(10, 15)
End Sub
vb.net产生随机数Random代码实例
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 随机数
Dim a As Random = New Random(55)
Label1.Text = a.Next(10, 15)
End Sub
vb.net产生随机数Random代码实例