请问这个VB问题！！

显示全部楼层 · 2008-10-24 10:35:58

以下是我写的代码
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 & Str(a(n))

Loop

Close #11
End Sub
关于文件我是自己单击鼠标右键，创建了一个名字为aa.txt文本文档，写入了一组数据，可是当我按执行时候却老提示找不到文件！！这个是为什么？我哪儿有问题？

千问 · 2008-10-24 10:35:58

打开aa.txt所在的文件夹，菜单【工具】-【文件夹选项】-“查看”，其中有一项“隐藏已知文件拓展名”，把前面的对号去掉，看看你的aa.txt是不是aa.txt.txt，去掉一个.txt...

千问 · 2008-10-24 10:35:58

不会啊,我试了你的程序没问题你的文件路径什么的再检查一下吧要不就是你的VB版本有问题了还有把Str(a(n))改成a(n)...