顺序查找

Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i As Integer, r As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 100)
Print a(i); " ";
Next i
Print
Key = InputBox("请输入要找的数字 ")
i = 1: r = 0
Do While i <= 10 And r = 0
If a(i) = Key Then r = i
i = i + 1
Loop
If r = 0 Then
Print "未找到此数字"
Else
Print "此数字在"; r; "位置"
End If
End Sub