vb编写 打印1到20的5个随即数并且这5个数不相等.

dim i ,j
dim a(1 to 5)
for i=1 to 5
a(i)=rnd*19+1
for j=1 to i-1
if a(i)=a(j) then i=i-1
next
next
print a(1)
print a(2)
print a(3)
print a(4)
print a(5)

Dim j As Integer, d(4) As Integer, K As Integer, Temp As Integer
For j = 0 To 4 '生成5个数
Randomize
d(j) = Int(Rnd() * 19) + 1
For K = 0 To j - 1
If d(j) = d(K) Then
j = j - 1
Exit For
End If
Next K
Next j
For j = 0 To 3 '排序
For K = j + 1 To 4
If d(K) < d(j) Then
Temp = d(j)
d(j) = d(K)
d(K) = Temp
End If
Next K
Next j
For j = 0 To 4 '屏幕打印
Print d(j);
Next j