Option Base 1
Dim a(30) As Integer
Private Sub Cmd1_Click()
    Open App.Path & "\in3.dat" For Input As #1
    For m = 1 To 30
      Input #1, a(m)
      Text1 = Text1 + Str(a(m)) + Space(2)
    Next m
    Close #1
End Sub
Private Sub Cmd2_Click()
  Dim num As Integer, n As Integer
  num = InputBox("请输入待查找的数")
' If num / 2  ?  Fix(num / 2) Then
      MsgBox "输入数为奇数，请重输！", , "检查"
      Exit Sub
  End If
' If num < a(1)  ?  num > a(30) Then
      Text2.Text = Str(num) + "已超出所给数值范围"
      Exit Sub
  End If
  For n = 1 To 30
    ' If a(n) =  ?  Then
        Text2.Text = Str(num) + "是数组中的第" + Str(n) + "个值"
        Exit For
      End If
  Next n
  'If n  ?  30 Then
      Text2.Text = Str(num) + "不存在于数组中"
  End If
End Sub