[填空題] 下列程序實現的功能是：當在窗體上單擊時，將輸出a1．txt 文件中的數字字符的個數。Private Sub form_ Click() Dim C
2021-07-20
[填空題] 下列程序實現的功能是：當在窗體上單擊時，將輸出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 #10
End 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”。
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。