VBa有一个数组A,含有数值1,4,7,10,13,16,19,22,25,28 ,用inputbox输入要查找的元素
用VBa如何实现,如下图的结果
- Sub 查找元素()
- Dim A, B&, i%, s$
- A = [{1,4,7,10,13,16,19,22,25,28}]
- B = InputBox("输入要查找的元素:", "输入任意数字", "4")
- For i = 1 To UBound(A)
- If A(i) = B Then Exit For
- Next
- If i > UBound(A) Then
- s = "数组中没有所要查找的元素!"
- Else
- s = "查找元素位于:" & i
- End If
- MsgBox "数组元素列表:" & vbCrLf & Join(A) & vbCrLf & "所要查找的元素为:" & B & vbCrLf & s, , "输出"
- End Sub
复制代码
查找元素.rar
(14.08 KB, 下载次数: 10)
|