以下程序的功能是:把当前目录下的顺序文件smText1. txt的内容读入内存 并在文本框Text1
以下程序的功能是:把当前目录下的顺序文件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文件时,ForInput表示顺序输入方式,ForOutput表示顺序输出方式。EOF函数用来测试文件的结束状态。“文件号”的含义同前。利用EOF函数,可以避免在文件输入时出现“输入超出文件尾”错误。在文件输入期间,可以用EOF测试是否到达文件末尾。对于顺序文件来说,如果已到文件末尾,则EOF函数返回True,否则返回False。
相似问题
在窗体上画一个命令按钮 然后编写如下事件过程: Private Sub Command1_Click
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i
在实际数据库系统中 其所支持的数据模型主要有层次模型 网状模型和【 】。请帮忙给出正确答案和分析 谢
在实际数据库系统中,其所支持的数据模型主要有层次模型、网状模型和【 】。请帮忙给出正确答案和分析,谢谢!
文件根据数据性质 可分为【 】文件和【 】文件。请帮忙给出正确答案和分析 谢谢!
文件根据数据性质,可分为【 】文件和【 】文件。请帮忙给出正确答案和分析,谢谢!
在鼠标事件过程MouseDown和MouseUp中 参数Button的值为1 2 4时 分别代表按下
在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。请帮忙给出正确答案和分析,谢谢!
在窗体上画一个命令按钮Command1 然后编写如下程序: Private Sub Command1
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(
