花卉学第二版教材:for each next 怎么用啊
来源:百度文库 编辑:高校问答 时间:2024/05/06 05:45:44
Dim Found As Boolean = False
Dim MyCollection As New Collection
For Each MyObject As Object In MyCollection If CStr(MyObject.Text) = "Hello" Then
Found = True
Exit For
End If
Next