以下程序的功能是:把当前目录下的顺序文件smText1. txt的内容读入内存,并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1. Text="" Op

admin2010-09-11  27

问题 以下程序的功能是:把当前目录下的顺序文件smText1. txt的内容读入内存,并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1. Text=""
Open". \mText1. txt"【  】As 1
Do While【  】
Input #1, inData
Text1. Text=Text1. Text & inData
Loop
Close #1
End Sub

选项

答案For Input ,Not EoF(1)

解析 在用Open语句打开smText1. txt文件时,For Input表示顺序输入方式,For Output表示顺序输出方式。EOF函数用来测试文件的结束状态。“文件号”的含义同前。利用EOF函数,可以避免在文件输入时出现“输入超出文件尾”错误。在文件输入期间,可以用EOF测试是否到达文件末尾。对于顺序文件来说,如果已到文件末尾,则EOF函数返回True,否则返回False。
转载请注明原文地址:https://kaotiyun.com/show/LAmp777K
0

最新回复(0)