VB 随机数据重复

Question

VB小菜鸟提问：For i = 1 To 10
mark(i) = Int(Rnd() * 91 + 10)
ListBox1.Items.Add(mark(i))
Next i
我用这个函数想产生10个随机数组成的数组，并显示在listbox里，可是调试的时候发现一个问题，举例来说吧：比如我第一次调试的时候，分别产生了第一、二、三总共三组数组，然后我关掉调试程序，再次打开，让它产生数组，那么新生成的第一、二、三组数组就和第一次调试产生的第一二三组数组分别相同，请问程序该如何改进才能避免这种情况发生？谢谢了
希望我说明白了吧，呵呵

Answer 1

在你的程序最前面加一句：Randomize。
即：
Randomize
For i = 1 To 10
mark(i) = Int(Rnd() * 91 + 10)
ListBox1.Items.Add(mark(i))
Next i