怎么用RND产生的随机数都是一样的

Question

要求是这样的:随机产生100个200~300的随机整数，按由大到小的顺序打印输出
可是我编出下面的程序后产生的一百年随机数就前面几个是不一样的,后面的全都是201,怎么回事啊?Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim a
Dim num(1 To 100) As Integer
For i = 1 To 100
    num(i) = Int(Rnd * 100) + 200
Next i
For j = 1 To 100
    For x = 1 To 100
        If num(x) < num(j) Then
            a = num(x)
            num(x) = num(j)
            num(j) = a
        End If
    Print num(j)
    Next x
Next j
End Sub

Answer 1

看MSDN中的解释：
    Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。
    若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

Answer 2

Private Sub Form_Click()
'========加一句
Randomize
............