首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
21
问题
设在当前目录下有一个名为"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全国计算机二级
相关试题推荐
语句DimArr(-2To4)AsInteger所定义的数组的元素个数为( )。
以下关于VB文件的叙述中,错误的是( )。
下面程序的功能是输出100以内所有素数:PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek
设窗体名称为frm1。以下叙述中正确的是( )。
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为"打开文件"的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click() CD1.ShowOpen OpenCD1.
以下叙述中错误的是( )。
以下叙述中错误的是( )。
For循环的循环控制变量
结构化程序包括的基本控制结构是
下列运算符中,优先级别最高的是
随机试题
与国际公法不同的是,国际私法的主体可以是()
胆总管探查术,安放T管引流,术后拔出T管的时间最短为
下列镇痛药中不属于麻醉药的是
胆汁酸类化合物母核为()
首次公开发行股票公司作为辅导对象,其具体接受辅导的是( )。
2013年7月1日,甲公司以一辆价值3000万元的汽车作为质押,向乙银行借款2800万元,借期2年。2015年5月2日,人民法院受理甲公司的破产申请。管理人拟清偿该借款以取回汽车,双方协商确定该汽车的当前价值为2000万元,第三方评估机构给出的价值为230
在旅游活动的构成要素中,()是旅游主体。
逮捕犯罪嫌疑人、被告人,只能由()执行。
WhatishappeninginAustralia’sagriculturalindustry?
PassageFourWhydidn’tMartinlikesleepinthepast?
最新回复
(
0
)