首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
2020-07-22
46
问题
设在当前目录下有一个名为"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/5WHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
从工程管理角度看,软件设计一般分为两步完成,它们是
在结构化程序设计中,模块划分的原则是
下列叙述中正确的是
窗体上有一个名称为Combol的组合框,为了引用Combol中最后一个列表项,应使用的表达式是
文本框的Locked属性被设置为True后产生的效果是
以下说法中,正确的是()。
以下关于图片框控件的说法中,错误的是( )。
在关系数据库中,用来表示实体间联系的是
随机试题
AccordingtoSouthKorea’snewvisaregulations,nativespeakersofEnglishwhointendtoteachEnglishinSouthKoreawillber
word2010中,“形状”工具在()选项卡。
颈静脉怒张可见于下列哪些疾病()
玻璃离子粘固剂修复术与银汞合金修复术相比在窝洞制备上的特点为
温阳托毒法的代表方剂是
根据《非处方药专有标识管理规定(暂行)》,符合规定的表述是
李先生打算为刚上小学的儿子筹备大一的开支。他准备采用教育储蓄的方式进行。为此,他向理财师咨询有关问题。根据以上材料回答问题。李先生的教育储蓄账户本金最高限额为()万元。
P.任何在高速公路上运行的交通工具的时速必须超过60公里。Q.自行车的最高时速是20公里。R.我的汽车只有逢双日才被允许在高速公路上驾驶。S.今天是5月18日。假设只有高速公路才有最低时速限制,则从上述断定加上以下哪项条件
WhatdoesKatherinedislikeaboutthecourse?Whataspectofthecoursedoesshefindmostrelevanttoherjob?
Amajorsociologicaltheoryknownassymbolicinteractionismofferssomeimportantinsightsintohowmenandwomenaretaughtto
最新回复
(
0
)