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

问题1这个OpenApp.Path&"\dr031.dat"ForInputAs#1中的App.Path&"\dr031.dat"这个是什么意思?改成具体路径行吗?问题2... 问题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分数多少算过关?有证书吗?几个和优秀证书有区别吗?
展开
 我来答
ARTERIOSCLEROS
2008-08-02 · TA获得超过4183个赞
知道大有可为答主
回答量:1672
采纳率:0%
帮助的人:2437万
展开全部
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.不会。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式