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分数多少算过关?有证书吗?几个和优秀证书有区别吗? 展开
这个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分数多少算过关?有证书吗?几个和优秀证书有区别吗? 展开
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.不会。
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.不会。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询