关于VB随机数排除数字写法,求助

来源：百度知道 编辑：UC知道 时间：2024/07/06 12:40:11
Int((30) * Rnd + 1)
我想让1到30中的随机数字中不要出现几个数字应该怎么写?
如:不要出现13 23 15 22

Dim result As Long

Do
result = Int((30) * Rnd + 1)
Loop While(result = 13 Or result = 23 Or result = 22)

MsgBox result

------------------------------------------------
楼上 fsxy1226 的代码，好象是死循环哦~~~

while（1）
{
a=Int((30) * Rnd + 1) ;
if(a!=13&&a!=23&&a!=15)
b=a;
}
这样可以？