[填空題] 下列程序?qū)崿F(xiàn)的功能是：當(dāng)在窗體上單擊時(shí)，將輸出a1．txt 文件中的數(shù)字字符的個(gè)數(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 #10

End Sub

[7]Not EOF(10)[8] Ch＞=“0” And Ch＜=“9”[9]Print n

要求算出a1.txt中的數(shù)字字符的個(gè)數(shù)，可采用下述方法：首先定義一個(gè)記錄數(shù)字字符個(gè)數(shù)的變量n并打開文件，然后從文件中讀取一個(gè)字符，判斷該字符是否為數(shù)字字符，若是數(shù)字字符，則變量n的值加1。重復(fù)上述過程直到文件結(jié)尾。在讀字符前應(yīng)要測(cè)試文件內(nèi)部讀寫指針是否位于文件尾，只有不是在文件結(jié)尾處才能讀取字符，故[7]處應(yīng)填“Not EOF(10)”，讀取一個(gè)字符后，應(yīng)判斷該字符是否為數(shù)字字符，故[8]處應(yīng)填“Ch＞=“0”And Ch＜=“9””，當(dāng)文件中的所有字符都讀出一遍后，n的值就是數(shù)字型字符的個(gè)數(shù)，最后應(yīng)輸出n，所以[9]處應(yīng)填“Print n”。