Question

VB题"Open App.Path & "\dr031.dat" For Input As #1"

问题1
这个Open App.Path & "\dr031.dat" For Input As #1
中的App.Path & "\dr031.dat"这个是什么意思?
改成具体路径行吗?

问题2
Private Sub Cmd1_Click()
Dim i As Integer
Dim c As String
Open App.Path & "\dr031.dat" For Input As #1
c = ""
For i = 1 To 100
Input #1, a()
c = c & a(i) & Space(2)
Next
Print c

End Sub
运行这个提示"溢出" 这个变黄

问题3
VB分数多少算过关?有证书吗?几个和优秀证书有区别吗?

Answer 1

1.
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.不会。