[填空題] 下列程序?qū)崿F(xiàn)的功能是：當在窗體上單擊時，將輸出a1．txt 文件中的數(shù)字字符的個數(shù)。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中的數(shù)字字符的個數(shù)，可采用下述方法：首先定義一個記錄數(shù)字字符個數(shù)的變量n并打開文件，然后從文件中讀取一個字符，判斷該字符是否為數(shù)字字符，若是數(shù)字字符，則變量n的值加1。重復上述過程直到文件結尾。在讀字符前應要測試文件內(nèi)部讀寫指針是否位于文件尾，只有不是在文件結尾處才能讀取字符，故[7]處應填“Not EOF(10)”，讀取一個字符后，應判斷該字符是否為數(shù)字字符，故[8]處應填“Ch＞=“0”And Ch＜=“9””，當文件中的所有字符都讀出一遍后，n的值就是數(shù)字型字符的個數(shù)，最后應輸出n，所以[9]處應填“Print n”。