VB题"Open App.Path & "\dr031.dat" For Input As #1"
发布网友
发布时间：2024-10-22 02:27
共1个回答
热心网友
时间：2024-11-09 18:58
App.Path 意思是程序所在路径。
App.Path & "\dr031.dat"意思是和你的程序放在同一个文件夹下面的名叫“dr031.dat”的文件。
改成具体路径当然可以。
2.
第一，你没有定义a()数组，直接使用是不行的。
第二，我认为程序中的a()应该改成a(i)比较符合要求。
第三，程序结束后应该有个Close比较好。
第四，如果你的文件行数不足100，这个程序就会出错。
但是，“溢出”错误我没有遇上。
综上所述，我的修改如下。
Private Sub Cmd1_Click()
Dim i As Integer, a(100) '多了定义数组
Dim c As String
Open "d:\a.txt" For Input As #1
c = ""
For i = 1 To 100 '这里的100请根据文件行数修改
Input #1, a(i) '这里做了修改
c = c & a(i) & Space(2)
Next
Print c
Close '这里加了一句
End Sub
3.不会。
