QQ网名大全

随机产生一个四位数的VB编码 谢谢了

1.随机函数RND()产生一个0-1之间(不含0和1)的随机小数
2.INT(RND()*B+A)产生一个A(包括A)到A+B(不包括A+B)之间的整数,
如INT(RND()*40+60),产生60-99(包括99)之间的两位数
3.但RND()函数有个问题,必须在程序开始处加个Randomize Timer语句,否则每次运行时产生的第一个随机数是相同的

Private Sub Command1_Click()
Randomize
Dim rd As Integer
rd = Int(Rnd() * 10000+ 1000) ' 产生1000-9999 四位数
MsgBox rd
End sub
佚名
2024-06-06 22:02:43
最佳回答
类似问题(10)