填空题

下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open "smtext1.txt" （） As （）
Do While （）
Input #2，inData
Text1.Text=Text1.Text & inData
Loop
Close #2
End Sub

【参考答案】

For Input, #B, NOT EOF(B)

<上一题目录下一题>

热门试题

填空题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写下列事件过程： Private Sub Command1_Click() CommonDialog1.Filter= All Files(*.*)|*.*|Text Files _ & (*.txt)|*.txt|Batch Files(*.bat)|*.bat CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是（）。

填空题

在窗体上画一个名称为Command1的命令按钮，然后编写下列程序： Option Base_1 Private Sub Command1_Click() Dim a(10)As Integer For i=1 To 10 a(i)=i Next Call swap( （） ) For i=1 To 10 Print a(i)； Next End Sub Sub swap(b()As Integer) n= （） For i=1 To n 2 t=b(i) b(i)=b(n) b(n)=t （） Next End Sub 上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换， a(2)与a(9)的值互换，……，请填空。

相关试题