首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列程序实现的功能是:当在窗体上单击时,将输出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
admin
2013-04-11
50
问题
下列程序实现的功能是:当在窗体上单击时,将输出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全国计算机二级
相关试题推荐
下列关于链式存储结构的叙述中,不正确的是______。
下列表达式有错误,正确的写法应该是【】。[(a+B)+c]/80-5÷(d+e)
在一个容量为25的循环队列中,若头指针front=16,尾指针rear=9,则该循环队列中共有【】个元素。
执行下面的语句后,所产生的信息框的标题是【】。a=msgbox("AAAA",,"BBBB","",5)
用______属性可惟一标志控件数组中的某一个控件。
VisualBasic逻辑运算符Xor、Or、Eqv、And中,级别最高的运算符是______。
下列对于软件测试的描述中正确的是
下面的数写成普通十进制数是()。8.6787E+8
随机试题
患者,男,36岁。因脑外伤而入院。体检:昏迷,体温37.9℃,脉搏82次/分,呼吸20次/分请回答:患者不能由口进食,可采取何种饮食护理措施?
A.1×107~5×107CFU/m1,各次杀灭对数值≥5.00B.1×107~5×107CFU/片,各次杀灭对数值≥3.00C.1×106~5×106CFU/ml,各次杀灭对数值≥4.00D.1×106~5×106CFU/ml,各次杀灭对数值≥3.
A、颞下颌韧带B、蝶下颌韧带C、关节囊D、茎突下颌韧带E、盘锤韧带防止下颌侧方脱位的是
检验车床几何精度时,在主轴孔中插入一根短检验棒,在检验棒中心放一粒铜球,然后用固定在溜扳上的平头百分表测头触在钢球上,转动主轴进行检验。百分表读数的最大差值,即为所测误差值。以上程序测量的是( )。
阅读下列材料并回答问题:材料12004年初,54岁的金文元从延边军分区副司令岗位上退休。当年4月16日,他来到安图县镜城村村外10多公里处的荒山脚下,找了几个村民,盖起一座简易房子,没有水、电,一个人开始了退休生活。10年前的
[*]
OOA(Object-Oriented Analysis)模型由5个层次和5个活动组成,5个层次不包括(51),5个活动不包括(52)。OOA在定义属性的同时,还要识别实例连接。实例连接是一个实例对象与另一个实例对象的(53)关系。
J、Martin指出、企业信息系统的研究开发工作成功的关键取决于管理者对全企业活动的认识以及对信息系统的需求程度,所以十分强调【】的参与。
Access将内置函数分类进行管理,下列选项中,不属于Access内置函数分类的是
Asanxiety-makers,examinationsaresecondtonone.Thatisbecausesomuchdependsonit.Theyarethemarkofsuccess【M1】____
最新回复
(
0
)