这可以用FOR循环也可用DO循环，下面以FOR循环为例：

A = Val(InputBox("请输入一个1－600之间的数字："))
If A < 1 Or A > 600 Then Exit Sub
For i = 1 To 600
  If i = A Then Exit For
Next
Debug.Print i

i就是查找到的值。