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
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! | |||
作者: | 用户: 密码: 注册? 验证: 防止恶意留言请输入问题答案:3*6=? | ||
评论:
禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 |
|||