填空题

下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。 Private Sub Form Click() Dim Ch As String * 1 Open "c:\a1.txt" For Input As #10 Do While 【8】 Ch= Input(1, #10) If 【9】 Then Print Ch; End If Loop 【10】 End Sub

【参考答案】

Not EOF(10) Ch＞＝"a"And Ch＜="z" Close #10
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox( 请输入a的值 ) a=Val(a) b=InputBox( 请输入b的值 ) b=Val(b) x=InputBox( 请输入x的值 ) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为 ______。
A．15
B．14
C．13
D．12
单项选择题
在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc( A )+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A．ABCD
B．abcd
C．出错信息
D．1 2 3 4
相关试题