Question

vb6中产生随机数下标越界问题，求高人指点错误之处

Private Sub button1_Click()
For i = 0 To 7
way1:
Randomize
a(i) = Int(Rnd() * 256) Mod 16
If i > 0 Then
For p = 0 To i - 1
If a(p) = a(i) Then '与前面的对比，如果有重复，重新随机
GoTo way1
End If
Next p
End If
Print a(i)
Next i

Answer 1

Private Sub button1_Click()
dim a(7) as integer

For i = 0 To 7
way1:
Randomize
a(i) = Int(Rnd() * 256) Mod 16
If i > 0 Then
For p = 0 To i - 1
If a(p) = a(i) Then '与前面的对比，如果有重复，重新随机
GoTo way1
End If
Next p
End If
Print a(i)
Next i