[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[技术讨论] [已解决]求助,下面的vb代码为什么检索的部分只能检索第一个后面都检索不出???

本帖最后由 707093864 于 2015-12-30 20:47 编辑

Dim c() As Variant, d() As Variant, m As Integer, n As Integer
Private Sub enter_Click()
   Dim s As Integer, a(), b()
   m = Val(InputBox("请输入录入的数据数量", "输入"))
   ReDim a(m), b(m)
   Open App.Path & "\data1.txt" For Append As #1
       Open App.Path & "\data2.txt" For Append As #2
           For i = 1 To m
              a(i) = InputBox("请输入名称", "输入")
              Print #1, a(i)
              b(i) = InputBox("请输入金额", "输入")
              Print #2, b(i)
           Next i
   Close #1
       Close #2
   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
   Close #1
   Open App.Path & "\data1.txt" For Input As #1
     ReDim c(n), d(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
    Else
       For i = 1 To n
          If Text1.Text = c(i) Then
             MsgBox "姓名:" & c(i) & vbCrLf & "金额:" & d(i)
          Else
             MsgBox "未查到此人信息"
             Exit For
          End If
      Next i
    End If
End Sub

数组下标从 0 开始

Redim a(m), b(m)
......
For i = 0 To m-1

TOP

回复 2# CrLf


应该不是这个问题,修改后,还是有点问题

TOP

我只是举一个例子,你这类错误有好多处,其他地方同理

TOP

另外,请按版规修改标题

TOP

求助。。。。。。。。

TOP

求助。。。。。

TOP

返回列表