在Vb6.0中写程序，实现按下command随机输出10个二位偶数，且不能重复。怎么写？ 谢谢。

Option Explicit Private Sub Command1_Click() Cls Randomize Dim i As Integer, j As Integer, r As Integer, n(1 To 10) As Integer Dim b As Boolean i = 1 While i <= 10 r = Rnd * 89 + 10 If r Mod 2 = 0 Th