VB中 我想产生一个 1000-9999的随机数 该如使用INT(RND*(B-A)+1)+A

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/27 15:48:15

VB中 我想产生一个 1000-9999的随机数 该如使用INT(RND*(B-A)+1)+A

Private Sub Command1_Click()
Randomize
n = Int(Rnd * (9999 - 1000) + 1) + 1000
Text1.Text = n
End Sub