两个数之间的随机数

Public Class Form1
    Public Shared minLen As Double = 1000.0
    Public Shared maxLen As Double = 5000.0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim random As New Random(DateTime.Now.Millisecond)
        Dim randInt As Integer = random.[Next](0, 100)
        Dim Len = minLen + (maxLen - minLen) * randInt / 100
        MsgBox(Len)
    End Sub
End Class

欢迎关注微信公众账号ByCAD