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

Question

要不同的10个

Answer 1

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 Sub