UC知道请高手解答这个VB问题！！！
来源：百度知道 编辑：UC知道 时间：2024/06/30 17:18:12
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a() As Integer
Dim p As Integer, s As String, j As Integer
Open "D:\aa.txt" For Input As #11
Do While Not EOF(11)
n = n + 1
ReDim Preserve a(n)
Input #11, a(n)
Text1 = Text1 & Str(a(n))
Loop
End Sub
该代码没有问题，我也在D盘里创建了aa.txt 文件，输入了一组数据，可是老说我找不到文件！路径给的没问题呀！！！请人指教！！！！
还是没有用啊！！！你们最好再测试下！！！！！！
Dim n As Integer, i As Integer, a() As Integer
Dim p As Integer, s As String, j As Integer
Open "D:\aa.txt" For Input As #11
Do While Not EOF(11)
n = n + 1
ReDim Preserve a(n)
Input #11, a(n)
Text1 = Text1 & Str(a(n))
Loop
End Sub
该代码没有问题，我也在D盘里创建了aa.txt 文件，输入了一组数据，可是老说我找不到文件！路径给的没问题呀！！！请人指教！！！！
还是没有用啊！！！你们最好再测试下！！！！！！
这个程序的错误有两个.
其一,你把a()声明为integer类型,而从aa.txt里面读出来的是字符串,所以类型不匹配;
其二:你忘记加close #11
修正后的代码:
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a() As String
Dim p As Integer, s As String, j As Integer
Open "D:\aa.txt" For Input As #11
Do While Not EOF(11)
n = n + 1
ReDim Preserve a(n)
Line Input #11, a(n)
Text1 = Text1 & a(n)
Loop
Close #11
End Sub
数组定义不对，因为从文件读取的数组均为字符型，所以就定义为字符型数组变量。
下面是测试后的代码：
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a() As String
Dim p As Integer, s As String, j As Integer
Open "D:\aa.txt" For Input As #11
Do While Not EOF(11)
n = n + 1
ReDim Preserve a(n)
Input #11, a(n)
Text1 = Text1 & a(n) & vbNewLine
Loop
close #11
End Sub