芋头花怎么养:求随机输出整数的VB代码

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/06 05:56:33
求随机输出整数的VB代码..
用来随机学号的..
感谢中...

Private Sub Command1_Click()
Randomize
Dim a As Long
a = 655535 * Rnd + 1
MsgBox a
End Sub

a=int(rnd*(max-min+1)+min)
max为随机数最大值
min为随机数最小值