关于数组的查询,为何只能找到一个?
Dim A(1 To 4) As Long, i As Long
A(1) = "1 "
A(2) = "3 "
A(3) = "5 "
A(4) = "7 "
For i = 1 To 4
If Combo1 = A(i) Then
Label1 = "有 "
Else
Label1 = "没有 "
End If
Next i

在这个查询当中,只有combo1等于A(4)得数据的时候才能显示＂有＂，combo1等于
１，３，５的时候都显示＂没有＂，这是为什么？请指点



[解决办法]
循环怎么都是i=4,肉眼还看不出有到没有的过程,改成，
For i = 1 To 4
If Combo1 = A(i) Then
Label1 = "有 "
Exit For
Else
Label1 = "没有 "
End If
Next i

[解决办法]
Dim A(1 To 4) As Long, i As Long
A(1) = "1 "
A(2) = "3 "
A(3) = "5 "
A(4) = "7 "
Label1.Caption = "没有 "
For i = 1 To 4
If Combo1 = A(i) Then
Label1.Caption = "有 "
Exit For
End If
Next i