填空题

以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Texd中显示出来。请填空。
Pfivme Sub Commandl_Click( )
Dim inData As String
Textl.Text =""
Open"．\smtextl.txt" 【14】 As#1
Do While 【15】
Input#1，in Data
Text1.Text=Text1.Text&inData
Loop
Close#1
End Sub

【参考答案】

[14]For lnput
[15]Not EOF(1)
<上一题 目录 下一题>
热门 试题

填空题
设有程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1，Max as Integer arr1=Array(12，435，76，24，78，54，866，43) 【12】 =arr1(1) For i=1 To 8 If arr1(i)＞MaxThen 【13】 Next i Print 最大值是： ；Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程： Private Sub Form_Load( ) Timer1.Enabled=False Timer1.Interval= 【6】 End Sub Private Sub Form_Click( ) Timer1.Enabled= 【7】 End Sub Private Sub Timer1_Timer( ) Label1.Caption= 【8】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。
相关试题