用VB编一个程序,随机产生10个100以内的不同的偶数

vb6测试通过
Private Sub Command1_Click()
Dim a(10) As Integer,temp As Integer,i As Integer,j As Integer
Randomize
temp = (Int(Rnd() * 50) + 1) * 2 '产生100以内的偶数
For i = 0 To 9
'判断是否已经存在
Do
For j = 0 To i
If temp = a(j) Then
temp = (Int(Rnd() * 50) + 1) * 2 '重新产生100以内的偶数
Exit For
End If
If j = i Then
a(i) = temp
Print temp;
Exit Do
End If
Next j
Loop
Next i
Print
End Su