Заполнения массива разными цифрами у VB

[legendary]

Нужно написать алгоритм заполнения массива случайными цифрами от 1 до 20, при этом цифры не должны повторяться.

Dim m(10) As Byte

Randomize

i = 0
Do While i < 11
x = 0
m(i) = Int(Int(Rnd * 20) + 1)
For j = 0 To 10
If m(i) = m(j) Then x = 1
Next j
If x = 1 Then i = i + 1
Loop

Подправьте или напишите новый (желательно делфи).

[legendary]

Randomize
i1 = 1
Do While i1 < 11
x = 0
m(i1) = Int(Int(Rnd() * 30) + 1)
For j1 = 1 To 10
If m(i1) = m(j1) Then x = x + 1
Next j1
If x = 1 Then i1 = i1 + 1
Loop