Dim mystr As String, mynum As Single
fileno = FreeFile
Open App.Path & "c:\vb.txt" For Input As #fileno
Do While Not EOF(fileno)
Input #fileno, mystr, mynum
Print mystr, mynum
Loop
Close #fileno
这个是作业程序,有错么?
应该怎么弄啊,这是书上给的程序,但是提示找不到文件
应该怎么弄啊,这是书上给的程序,但是提示找不到文件