VB6.0中怎么产生1到9的随机数

Question

如题所述

Answer 1

产生1到9的随机整数用
int(Rnd*9+1)
因为Rnd是随机0~1的小数，但不含0和1
如果产生大于1小于9的随机实数用
Rnd*8+1

Answer 2

Rnd 函数返回小于 1 但大于或等于 0 的值（来自MSDN）
所以Int(Rnd()*9+1)是对的。

Answer 3

Int(Rnd * 8 + 1)
楼上*9的是不对的,因为Rnd是随机0~1的数,如果取1,那么1*9+1=10,不符题意

Answer 4

Randomize
Debug.Print Int((Rnd * 9) + 1)

Answer 5

Int(Rnd * 9 + 1)