神马作文网vb中如何生成不同的随机数
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/12 07:57:43
vb中如何生成不同的随机数
比如说在
dim rnd as new random
dim a（） as string
for i as integer 0 to 8
a（i）=random.next(1,9)
中,他生成的可能是1 1 2 2 3 3 4 4 4
如何让他生成 8 1 2 3 5 4 6 7这样不同的随机数
比如说在
dim rnd as new random
dim a（） as string
for i as integer 0 to 8
a（i）=random.next(1,9)
中,他生成的可能是1 1 2 2 3 3 4 4 4
如何让他生成 8 1 2 3 5 4 6 7这样不同的随机数
需要在生成随机数后进行判断,是否已经存在,存在返回继续生成即可.
dim rnd as new random
dim a（） as string
for i as integer 0 to 8
:new
a（i）=random.next(1,9)
'比较是否有相同的
if i>0 then
for j as integer 0 to i-1
if a(j)=a(i) goto new
next j
end if
next i
'代码未测试,如有错误,请自行修正
dim rnd as new random
dim a（） as string
for i as integer 0 to 8
:new
a（i）=random.next(1,9)
'比较是否有相同的
if i>0 then
for j as integer 0 to i-1
if a(j)=a(i) goto new
next j
end if
next i
'代码未测试,如有错误,请自行修正