VB中如何产生一个范围在1—7之间的随机数

Private Sub Command1_Click()
MsgBox Int(7 * Rnd + 1)
End Sub
这个就是产生一个1-7的随机整数，如果你想避免每次程序运行的数都一样，可以在前面加上randomize ，如果不要整数就把int去掉就可以了

楼上的回答蛮全面的

1楼说的很不错 路过