循序搜尋 -- 精簡版

Public Class Form1
    Dim i
    Dim str1 = "未找到"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s = Val(InputBox("請輸入要找的值？"))
        Dim a() = {2, 1, 5, 10, 22, 34, 17}
        For i = 0 To 6
            If a(i) = s Then
                str1 = "找到了在註標" & i & "處"
            End If
        Next
        MsgBox(str1)
    End Sub
End Class