填空题

以下程序的功能是：把当前目录下的顺序文件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)
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Commandl和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 Pfivme Sub Command1_Click( ) If List1.List1ndex＞= 【9】 Then List1.Removehem 【10】 Label1.Caption= 【11】 Else MsgBox“请选择要删除的项目” End If End Sub
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1＿Click( ) Dim a As Integer，s As Integer a＝8 s＝1 Do S=s+a a=a-1 Loop While a Prim s，a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．7 9
B．34 0
C．9 7
D．死循环
相关试题