以下程序的功能是:把顺序文件smtext1.txt的内容全部读入内存,并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open"smtext1.txt" (13) As (14)
Do While (15)
Input #2 ,inData
Text1.Text=Text1.Text&inData
Loop
Close #2
End Sub
参考答案:Not EOF(2)
解析: [13]在VB程序中用Open语句打开数据文件,打开顺序文件的基本格式为:Open FileName For Mode As #FileNumber。其中,FileName表示要打开的文件的路径;Mode为打开模式,包括Output、Append、Input 3种,其中Output用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄。[14]FileNumber参数表示打开文件的句柄。[15]Input#语句用于将打开顺序文件中的一项(或多项)数据读取给一个变量(或多个变量),其语法格式为:Input#FileNumber,Varlist。其中,FileNumber参数表示打开文件的句柄;Varlist为变量列表。Not EOF(filenumber)中必要的filenumber参数是一个Integer,包含任何有效的文件号。