Question

关于VB函数的问题

我想请问一下,怎么样用判断语句剔除随机函数里的一些数?例如28到95,我先用RAN函数生成28至95的随机整数,然后我不需要55、34和78，那么，应该怎么样输入？
a = Int(Rnd * (95) + 28)我之前是这样输入的

Answer 1

a = Int(Rnd * (95) + 28)这是28-122的取法啊

你应该这样a = Int(Rnd * 68) + 28
然后加个如果判断，如果等于34，55，78，那么就继续取随即数，社掉当前的数！

Answer 2

试一试下面的方法:
n = 1
for i = 1 to n
a = Int(Rnd * 68) + 28 \'生成从28 到 95 之间的随机数.
if a=55 or a=34 or a=78 then
n= n+1
end if
next i

Answer 3

c:a = Int(Rnd * (95) + 28)
if a=55 or a=34 or a=78 then goto c
甘样就得啦!

Answer 4

l1:a = Int(Rnd * (95) + 28)
if a=55 or a=34 or a=78 then goto l1

Answer 5

a=0
while (a=0 or a=34 or a=55 or a=78) a=int(rnd*68+28);