问题 填空题

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

答案

参考答案:[13]Not EOF(10) [14]Ch>="a" And Ch<="z" [15]Close #10

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

单项选择题
单项选择题