Dim xx(1 To 100) As Integer For i = 1 To 100 xx(i) = 200 + int(100 * Rnd) Next
Dim xx(1 To 100) As Integer For i = 1 To 100 xx(i) = 201 + 100 * Rnd Next