vb 如何产生〔1，10〕间的随机整数

randomize
i = Fix(Rnd * 9) + 1

产生〔1，10〕间的随机整数
这是个开区间
Randomize
N=int(2+8*Rnd())
才可以

randomize
n=int(rnd*10)+1

rnd返回的随机数是左闭右开区间的。
所以，闭区间的只好这样：
randomize
do
n=rnd*9.1+1 '凭你的心情，可以写9.000001
loop while n>10

randomize
n=int(rnd*9)+1
关于开区间~~