我的vb程序为什么运行第二次的时候就死机呢?
随机产生10个不相同的数
Private Sub randomnum()
Dim i, j, temp As Integer
Dim a(0 To 9) As Integer
Dim flag As Boolean
j = 0
flag = False
Do While (j < 10)
temp = CInt(Rnd * 100)
If temp = 0 Then temp = 1
For i = 0 To j
If a(i) = temp Then
flag = True
Exit For
End If
Next
If flag = False Then
a(j) = temp
j = j + 1
End If
Loop
For i = 0 To 9
Lblnum(i).Left = 800
Lblnum(i).Caption = a(i)
Next
End Sub