填空题

以下程序的功能是：把程序文件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#2，NOT EOF(2)
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1 Click() CommonDialog1.Filter= All Files(*.*)|*.*|Text Files _ ＆ (*.txt)|*.txt|Batch Files(*.bat)I*.bat CommonDialog1 Filterlndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.File Name End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是______。
填空题
窗体上命令按钮Command1的事件过程如下： Private Sub Command1_Click() Dim total As Integer total=s(1)+s(2) Print total End Sub Private Function s(m As Integer)As Integer Static x As Integer For i=1 To m x=x+1 Next i S=x End Function 运行程序，第3次单击命令按钮Command1时，输出结果为______。
相关试题