VB中有没有类似Instr()的函数，直接判断数组中有没有某个数？

显示全部楼层 · 2010-5-17 11:36:10

比如有个数组 A=(1,2,3,4,5,6,8,9,10)
有没有一个函数可以直接判断数组中是否有某个数？类似Instr()那种函数也可以。
不要用循环语句。

千问 · 2010-5-17 11:36:10

Dim b As Integerb = InputBox("输入要查找的数")For i = 0To UBound(A)If A(i)=b Then Msgbox "找到数" & b & "了，在数组索引第" & i & "的位置"End IfNext i这样就可以了，你可以把这个代码写个函数来获取返回值。

千问 · 2010-5-17 11:36:10

vb里面有instr啊vb里面有3个函数,instr,instrb,instrrev_________________________________________看错题目了~ VB里面只有filter函数,也是判断数组里面某项是否含有某字符串的ReDim ArrI(50)Dim ArrbFor i = 0

千问 · 2010-5-17 11:36:10

用Scripting.Dictionary对象吧Private Sub Command1_Click()Dim Dic As New Scripting.DictionaryDic.Add "XX", 0Dic.Add "YY", 0Dic.Add "ZZ", 0If Dic.Exists("ZZ") Then Print "Fi

千问 · 2010-5-17 11:36:10

除非你不用数组，用集合