菜鸟向高手请教一下vb问题！！！

请高手指点点一下：

Private Sub C1_Click()

Open App.Path & "\in7.txt" For Input As #1

Do While Not EOF(1)

    Input #1, mystring

    Text1.Text = mystring

Loop

Close #1

End Sub

在这段代码中菜鸟想请教一下“EOF(1)”表示什么意思，还有就是 这段“Input #1, mystring

    Text1.Text = mystring”的含义。

 

 

EOF(n)是判断打开的文件是否已读到文尾，其中的n是文件号As后面的#1就代表文件号是1，所以EOF(1) EOF(n)返回值:True-n号文件已读到文件结尾，False-n号文件未读到文件结尾 Do While Not EOF(1)其实这样写更好理解:Do While EOF(1)=False 因为EOF(1)=False 意思是文件未到文尾 所以Do While EOF(1)=False 的意思是当1号文件未到文件末尾时继续循环 ----------- Input #1, mystring '读取文件号为1的文件内容，并把它赋给变量mystring '其中#1代表1号文件，以此类推n号文件为#n，n取决于Open语句后面As 后面定的文件号 Text1.Text = mystring '把mystring的值赋给Text1.Text，即Text1里面显示mystring(读取文件)的内容

eof(1) :1跟上面打开的文本的#1对应的，eof(1)是一个逻辑值，是判断是否已经读到文本末尾了(因为从文本读取信息都是从一开始读起的),如果其值为ture就说明已经读到文本末尾了,上面的 not eof(1)就表示没有读到文本末尾咯

Input #1, mystring:从文本中读取信息并把信息赋值给mystring这个变量

Text1.Text = mystring:讲mystring中的信息赋值到text1中

Do While Not EOF(1)判断到没到达文件的末尾，到达了结束循环，没到达执行循环。

Input #1, mystring读取文件号为1的文件内容，并把它赋给变量mystring

 Text1.Text = mystring把变量的内容，显示在文本Text1中

http://big5.gov.cn/gate/big5/kuj8.com/index.asp?id=14057有详细教程..00

Input #1, mystring

    Text1.Text = mystring

 

text1 的值 mystring

然后把mystring提交到#1

我知道Input 在网页中是输入框。

就像百度搜索一样

你可以按alt+v然后按C再按ctrl+F然后输入：Input看看。