vb中怎样判断一个数是否在一个数组内

Question

怎么编写代码啊

Answer 1

Private Sub Command1_Click()
Dim number_find As Integer
Dim yuansu As Variant
Dim i As Integer
Dim mydim(100) As Integer
Dim number_in_dimension As Boolean
number_in_dimension=False
number_find=50
For i=1 to 100
mydim(i)=i
Next
For Each yuansu in mydim
If yuansu=number_find Then
number_in_dimension=True
End If
Next
If number_in_dimension Then
MsgBox("数在数组中")
Else
MsgBox(“数不在数组中")
End If
End Sub本回答被提问者和网友采纳

Answer 2

如果你对速度有很高的要求，可以利用二叉树等等经典算法实现。
如果仅仅是想找到数据的话，利用循环就可以查到了。

Answer 3

用For each 循环, 此循环专门用于检查数组,且只能检查,不能写入.

Answer 4

for i=1 to n
if a=b(i) then
print "属于"
else
print "不属于"
next i

Answer 5

也可以利用字典的exists方法，相比前面几种方法简单点。