[填空题] 下列程序实现的功能是:当在窗体上单击时,将输出a1.txt 文件中的数字字符的个数。Private Sub form_ Click() Dim Ch As String * 1 Dim n

13 查阅

[填空题] 下列程序实现的功能是:当在窗体上单击时,将输出a1.txt 文件中的数字字符的个数。Private Sub form_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:a1. txt" for Input As #10 do while 【7】 Ch = Input(1, #10) if 【8】 then n=n+1 End if Loop 【9】 Close #10End Sub

参考答案:

[7]Not EOF(10)

[8] Ch>=“0” And Ch<=“9”[9]Print n 要求算出a1.txt中的数字字符的个数,可采用下述方法:首先定义一个记录数字字符个数的变量n并打开文件,然后从文件中读取一个字符,判断该字符是否为数字字符,若是数字字符,则变量n的值加1。重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾,只有不是在文件结尾处才能读取字符,故[7]处应填“Not EOF(10)”,读取一个字符后,应判断该字符是否为数字字符,故[8]处应填“Ch>=“0”And Ch<=“9””,当文件中的所有字符都读出一遍后,n的值就是数字型字符的个数,最后应输出n,所以[9]处应填“Print n”。

计算机考试