flag=0 for i=0 to ubound(strarray) if myStr=strarray(i) then flag=1 exit for end if end for if flag=1 then msgbox myStr & "在数组中" else msgbox myStr & "不在数组中" end if
Dim A(1 To 4) As String A(1) = "AS" A(2) = "DF" A(3) = "GH" A(4) = "KLf"
Dim Str As String Str = Join(A, "/") & "/"
MsgBox InStr(1, Str, "/" & "KL" & "/") <> 0
Private Sub Form_Load() A = Array("AS", "DF", "GH", "KL") For Each X In A If X = "KL" Then MsgBox "存在" Next End Sub
for i=0 to ubound(strarray)
if myStr=strarray(i) then
flag=1
exit for
end if
end for
if flag=1 then
msgbox myStr & "在数组中"
else
msgbox myStr & "不在数组中"
end if
A(1) = "AS"
A(2) = "DF"
A(3) = "GH"
A(4) = "KLf"
Dim Str As String
Str = Join(A, "/") & "/"
MsgBox InStr(1, Str, "/" & "KL" & "/") <> 0
A = Array("AS", "DF", "GH", "KL")
For Each X In A
If X = "KL" Then MsgBox "存在"
Next
End Sub