2. 计算机
  3. 下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub form_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for

下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub form_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for

admin2013-04-11  30
问题 下列程序实现的功能是：当在窗体上单击时，将输出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【  】
Ch = Input(1, #10)
if【  】 then
n=n+1
End if
Loop【  】
Close #10
End Sub
选项
答案Not EOF(10), Ch＞=“0” And Ch＜=“9”,Print n
解析 要求算出a1.txt中的数字字符的个数，可采用下述方法：首先定义一个记录数字字符个数的变量n并打开文件，然后从文件中读取一个字符，判断该字符是否为数字字符，若是数字字符，则变量n的值加1。重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾，只有不是在文件结尾处才能读取字符，故[7]处应填“Not EOF(10)”，读取一个字符后，应判断该字符是否为数字字符，故[8]处应填“Ch＞=“0”And Ch＜=“9””，当文件中的所有字符都读出一遍后，n的值就是数字型字符的个数，最后应输出n，所以[9]处应填“Print n”。
转载请注明原文地址:https://kaotiyun.com/show/kOhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)