Dim c() As Variant, d() As Variant, m As Integer, n As Integer
Private Sub enter_Click()
   m = InputBox("请输入录入的数据数量", "输入")
   Dim a(m), b(m)
   Open App.Path & "\data1.txt" For Append As #1
        For i = 1 To m
           a(i) = InputBox("请输入名称", "输入")
           If a(i) = "" Then a(i) = "未输入"
           Print #1, a(i)
           Open App.Path & "\data2.txt" For Append As #2
              b(i) = InputBox("请输入金额", "输入")
              If b(i) = "" Then b(i) = "未输入"
           Print #2, b(i)
           Close #2
        Next i
   Close #1
   MsgBox "数据录入完成"
End Sub
Private Sub read_Click()
   Open App.Path & "\data1.txt" For Input As #1
      n = 0
      Do While Not EOF(1)
        Line Input #1, Data1
        n = n + 1
      Loop
      a = n
       If Not EOF(1) Then
         For i = 1 To n
            Input #1, c(i)
         Next i
       End If
    Open App.Path & "\data2.txt" For Input As #2
       If Not EOF(1) Then
         For i = 1 To n
            Input #2, d(i)
         Next i
       End If
    Close #1
    Close #2
    MsgBox "数据读取完成,一共" & n & "条数据"
    Text1.Enabled = True
    Text1.SetFocus
End Sub
Private Sub Command2_Click()
    If Text1.Text = "" Then
       MsgBox "请输入要查找的内容"
       Text1.SetFocus
    End If
    For i = 1 To a
       If Text1.Text = c(i) Then
          MsgBox "姓名:" & c(i) & vbCrLf & "金额:" & d(i)
       Else
          MsgBox "未查到此人信息"
       End If
    Next i
End Sub

[此贴子已经被作者于2015-12-29 20:11编辑过]

我修改过后边界值是没问题了，但是最后的检索部分还是有问题，可以帮我看看吗，
Private Sub Command2_Click()
    If Text1.Text = "" Then
       MsgBox "请输入要查找的内容"
       Text1.SetFocus
    Else
       For i = 1 To n
          If c(i) = Text1.Text And Mid(c(i), 1, 1) = Text1.Text Then
             MsgBox "姓名:" & c(i) & vbCrLf & "金额:" & d(i)
          Else
             MsgBox "未查到此人信息"
             Exit For
          End If
      Next i
    End If
End Sub

[此贴子已经被作者于2015-12-28 13:15编辑过]

检索的部分只能检索到第一个，其他都查不到不知道是什么情况，大神能帮我看一下吗

我找到原因了，你说的是原因的一部分，还有一部分很大的原因在于读取文件的过程出了问题，目前已解决，多谢回帖