填空题

窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件C:\test.txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。
Private Sub Command1_Click()
Text1=""
Number=FreeFile
Open "c:\test.txt" For Input As Number
Do While Not EOF( (14) )
Line Input #Number, s
Text1.Text=Text1.Text+ (15) +Chr(13)+Chr(10)
Loop
Close #Number
End Sub

【参考答案】

(14)Number (15)s

<上一题目录下一题>

热门试题

填空题

窗体上有名称为Command1的命令按钮。事件过程及两个函数过程如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z x=3:y=5:z=fy(y) Print fx(fx(x)),y End Sub Function fx(ByVal a As Integer) a=a+a:fx=a End Function Function fy(ByRef a As Integer) a=a+a:fy=a End Function 运行程序，并单击命令按钮，则窗体上显示的两个值依次是 (12) 和 (13) 。

填空题

设有整型变量s，取值范围为0～100，表示学生的成绩，有如下程序段： If s＞=90 Then Level= A Else If s＞=75 Then Level= B Else If s＞=60 Then Level= C Else Level= D End If 下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case s Case (9) ＞=95 Level= A Case 75 To 90 Level= B Case 60 To 74 Level= C Case (10) Level= D (11)

相关试题