vb产生10个不同随机数

Question

如题所述

Answer 1

其实呢,思考了一个晚上,还是有解决的办法的.
就是用循环嵌套选择句再加上rnd配合起使用的话.
低位\高位都可以取到了.
代码如下:
已经测试成功..绝对符合你的要求..要给分哦
dim
i%,
wei%,
a#(1
to
100)
randomize
for
i
=
1
to
100
wei
=
int(rnd
*
9
+
1)
select
case
wei
case
is
=
1
a(i)
=
int(rnd
*
10+1)
case
is
=
2
a(i)
=
int(rnd
*
100+1)
case
is
=
3
a(i)
=
int(rnd
*
1000+1)
case
is
=
4
a(i)
=
int(rnd
*
10000+1)
case
is
=
5
a(i)
=
int(rnd
*
100000+1)
case
is
=
6
a(i)
=
int(rnd
*
1000000+1)
case
is
=
7
a(i)
=
int(rnd
*
10000000+1)
case
is
=
8
a(i)
=
int(rnd
*
100000000+1)
case
is
=
9
a(i)
=
int(rnd
*
1000000000+1)
end
select
next
i