下列程序实现的功能是:在窗体上单击时,将在窗体上输出c:=a1.txt文件中的所有小写字母。 Private Sub Form Click() Dim Ch As String * 1 Open "c:\a1.txt" Fo

admin2010-09-11  31

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

选项

答案Not EOF(10) ,Ch>="a"And Ch<="z" , Close #10

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

最新回复(0)