Question

vb如何生成某一范围内的随机数，并且排除某些数字?

Answer 1

要产生范围 [lowerbound，upperbound]内的随机数的语句：

x = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
如果要排除 其中的某一些数，例如：a、b、c(当然a、b、c在该范围内)
那么：
x = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Do While x = a Or x = b Or x = c
x = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Loop

Answer 2

a=1:b=100 '设定范围
10 x=rnd()*(100-1+1)+1 '范围内产生随机数 公式 = rnd()*(高限-低限+1)+1
if x mod 3 =0 then goto 10 '如果随即结果是3的倍数就重新产生随即数

Answer 3

a到b之间的随机数： a+rand()*(b-a) 排除的话比较 如果出现 重新产生