For j = 0 To 5
str = strID + "-" + CStr(j + 1)
Open App.Path + "\TestData\" & Trim(str) & ".txt" For Input As #1
  max1 = 0
  Do While Not EOF(1)
   Line Input #1, tem1
   
  If Val(tem1) > max1 Then
        max1 = Val(tem1)
    End If
    If j = 0 Then TxtFLeftMaxf.Text = max1
   
    If j = 1 Then Text1.Text = max1
    End If
    If j = 2 Then
    Text4.Text = max1
    End If
    If j = 3 Then
    Text5.Text = max1
    End If
    If j = 4 Then
    TxtFfMaxBalance.Text = max1
    End If
    If j = 5 Then
    TxtBfMaxBalance.Text = max1
    End If
Loop
Close #1
Next j
Close #1

此句的+号改为&号
除此之外，静态测试没有检查到任何错误和逻辑错误，只能是你的文件有问题了

每轮都打开关闭文件，循环后再关闭文件？


[ 本帖最后由 lianyicq 于 2015-5-18 10:31 编辑 ]