Visual Basic快速入门

来源：用户分享时间：2025/5/24 4:21:24 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

End Function

方法二：

Private Sub Command1_Click()

Dim b(), k%, n%

b = Array(1, 3, 5, 7, 9, 2, 4)

k = Val(InputBox(\

输入要查找的关键值 \

Call search(b(), k, n)

If n >= 0 Then MsgBox (\

找到的位置为

找不到 \

End Sub

Sub search(a(), ByVal key%, ByRef index%)

Dim i%

For i = LBound(a) To UBound(a)

If key = a(i) Then

index = i

Exit Sub

End If

Next i

index = -1

End Sub 5 ．

搜索更多关于： Visual Basic快速入门的文档

Visual Basic快速入门.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印