看我写的例子,写成函数也很容易：
用FOr...Next应该也不慢吧，找一遍就全出来了。
程序代码：
用FOr...Next应该也不慢吧，找一遍就全出来了。
程序代码：Private Sub Form_Load()
Dim str As String
str = "白菜价,股票,女朋友,购物,中国银行,汽车商行,交通信号灯,鸡蛋,手表,电脑,网站,工商银行"
s = Split(str, ",")
appoint = "银行" '要查找的字符串
For i = 1 To UBound(s)
pos = InStr(s(i), appoint)
If pos > 0 Then
MsgBox "你要查找的值在数组：" & "s" & "(" & i & ")" & "中"
End If
Next
End Sub[此贴子已经被作者于2022-9-7 20:56编辑过]
心生万象，万象皆程序！
本人计算机知识网：http://bbs.为防伸手党，本站已停止会员注册。
