VB中缺少列表分隔符
Do While Not EOF(1)Line Input #1, textline
a = a + textline + vbCrLf
line(i)=textline
i = i + 1
Loop
答案:Do While Not EOF(1)
Line Input #1, textline
a = a + textline + vbCrLf
line(i) = textline '把这一行的数组名换一下
i = i + 1
Loop
End Sub
上一个:计算机VB编程
下一个:VB 数组 判断 txt