[填空题] 下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。Private Sub Form Click()Dim Ch As String * 1Op

[填空题] 下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。 Private Sub Form Click()Dim Ch As String * 1Op

[填空题] 下列程序实现的功能是：在窗体上单击时，将在窗体上输出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

参考解析：

要将a1.txt中的所有小写字母输出，可采用下述方法：首先读打开该文件，然后从文件中读取一个字符，判断该字符是否为小写字母，若是则输出该字母，重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾，只有不是在文件结尾时才能读取字符，故【8】处应填“Not EOF(10)”，读取一个字符后，应判断该字符是否尾小写字母，故【9】处应填“Ch＞＝"a" And Ch＜="z"”，文件读写过后，应关闭文件，故【10】处应填“Close #10”。