首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序: Private Sub Command1_Click() Dim ch$, ascii As Integer Open "file.txt" For Inpu
设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序: Private Sub Command1_Click() Dim ch$, ascii As Integer Open "file.txt" For Inpu
admin
2018-09-19
30
问题
设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序:
Private Sub Command1_Click()
Dim ch$, ascii As Integer
Open "file.txt" For Input As #1
While Not EOF(1)
Line Input #1, ch
ascii=toascii(ch)
Print ascii
Wend
Close #1
End Sub
Private Function toascii(mystr As String)As Integer
n=0
For k=1 To Len(mystr)
n=n+Asc(Mid(mystr, k, 1))
Next k
toascii=n
End Function
程序的功能是( )。
选项
A、按行计算文件中每行字符的ASCII码之和,并显示在窗体上
B、计算文件中所有字符的ASCII码之和,并显示在窗体上
C、把文件中所有文本行按行显示在窗体上
D、在窗体上显示文件中所有字符的ASCII码值
答案
A
解析
过程toascii的功能是依次取出传入字符串中的每个字符,用Asc函数将这个字符转换为相应的ASCII码值,通过For循环将这些值累加。累加值由过程名返回。Click事件中以顺序输入方式打开file.txt文件,即以读取方式打开文件。While循环的结束条件是到达文件尾部,在循环体中,Line Input #语句读取文件中的一行数据存入变量ch中,然后以ch为参数调用过程toascii,即计算这一行字符中所有字符的ASCII码值的和,返回值赋给变量ascii,在窗体上输出ascii的值。所以While循环结束时,将在窗体上显示输出file.txt中每一行数据的ASCII码值的和。因此答案为A。
转载请注明原文地址:https://kaotiyun.com/show/K2Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click()Dimf1AsInteger,f2AsInteger,iAsIntegerDimsAsIntegerf1=1:f2=1s=f1
下面对软件特点描述错误的是
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Forml的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
(1)在名称为Form1,标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。框架内含有三个复选框,其名称分别为Chk1、Chk2和Chk3,标题分别为“倾斜”、“加粗”和“下划线”。程序运行后的窗体如图所示。要求:存盘时必
窗体上有一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubCommand1_Click()i=0DoWhilei<6Forj=1Toin
设有下面的程序段:x=InputBox("请输入一个整数")ReDima(x)Fork=xTo0Step-1a(k)=kNextk一般,在这段程序之前应先进行数组a的定义
在关系数据库中,用来表示实体间联系的是
一个运动队有多个队员,一个队员仅属于一个运动队,一个队一般都有一个教练,则实体运动队和队员的联系是
在医院,每个医生只属于某一个诊疗科,医生同一天可为多位患者看病,而一名患者可在多个科室治疗。则实体医生和患者之间的联系是
随机试题
Pickouttheappropriateexpressionsfromtheeightchoicesbelowandcompletethefollowingdialoguesbyblackeningthecorresp
职工“三级”安全教育不包括()。
在某工程网络计划中,工作M的最早开始时间和最迟开始时间分别为第12天和第15天,其持续时间为5天。工作M有3项紧后工作,它们的最早开始时间分别为第21天、第24天和第2日天,则工作M的自由时差为( )天。
期货交易所依据有关规定对期货市场出现的异常情况采取合理的紧急措施造成客户损失的,期货交易所仍要承担赔偿责任。( )
某公司今后3年每年需使用零件30000件,3年后此产品停产,目前要进行零件自制还是外购的决策。外购零件的成本为100元/件。公司目前拥有生产此零件的专用设备,其账面净值为60000元(税法规定的残值为24000元,税法规定的尚可使用年限为3年,变现价值为2
9,25,49,81,()。
当代经济的发展与竞争,已不再主要依靠密集劳动力,如在美国,整个信息高速公路工程将耗时20年,总投资达4000亿美元,要为9500万个家庭全部装上大容量光纤线路,耗资2000亿美元。可见()。
在VisualFoxPro中扣,为了建立一个数据库表,我们可以在打开的()对话框中完成。
Whowritesthismemorandum?Thememorandumiswrittenby_________________________________.Whatisthepurposeofplacing
Ifyouwalkthroughthestreetsofanybigcityatsixorseveninthemorning,thechancesareyouwillseewomenhurryingalon
最新回复
(
0
)