首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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-12-20
17
问题
设在当前目录下有一个名为"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/j8Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubForm_Click() Print"Welcome!"EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs
如果把命令按钮的Cancel属性设置为True,则程序运行后( )。
如果一个菜单项的Enabled属性被设置为False,则程序运行时,该菜单项( )。
以下不属于单选按钮的属性是( )。
设窗体名称为frm1。以下叙述中正确的是( )。
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
下面描述中不属于数据库系统特点的是
下面不能作为结构化方法软件需求分析工具的是
下列循环中,可以正常结束的是( )。
随机试题
阻滞因子是指通过色谱柱的样品和载气的()之比。
简述不当得利的构成要件。
女,31岁,产后第5天。3小时前突然出现呼吸困难、胸痛、咳嗽、咯血。该患者最可能的诊断是()
能源消费总量核算可以从两个角度进行,分别是供应和()。
甲公司适用的所得税税率为25%,其2017年度财务报告批准报出日为2018年4月30日,2017年所得税汇算清缴结束日为2018年4月30日。假定税法规定,除为第三方提供债务担保损失不得税前扣除外,其他诉讼损失在实际发生时允许税前扣除。假定不考虑盈余公积的
简述社会主义荣辱观的主要内容(八荣八耻)。
积极诱因使个体产生积极行为,______某一目标;消极诱因则使个体产生负性行为,远离或回避某一目标。
爱国主义的基本要求是()
窗体上有名称为Listl的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是
下列叙述中,正确的是()。
最新回复
(
0
)