首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序: Private Sub Commandl_Click() Dim ch$.ascii As Integer Open“file.t
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序: Private Sub Commandl_Click() Dim ch$.ascii As Integer Open“file.t
admin
2013-11-29
83
问题
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序:
Private Sub Commandl_Click()
Dim ch$.ascii As Integer
Open“file.txt”For Input As#l
While Not EOF(1)
Line Input#1,ch
ascii=toascii(ch)
Print ascii
Wend
Close#l
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/6WQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画—个文本框(名称为Text1)和—个标签(名称为Label1),程序运行后,在文本框中每输入—个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。
下列叙述中正确的是______。
目录列表框的Path属性的作用是______。
已知变量x,y为整数型,且x=4,y=12,s为字符串型,且s=“a”,lblok为标签控件,下列赋值语句合法的是______。
在算法正确的前提下,评价一个算法的两个标准是【】。
对建立良好的程序设计风格,下面描述正确的是______。
下列关于栈的叙述中正确的是______。
对于顺序存储的队列,存储空间大小为n,头指针为F,尾指针为R。若在逻辑上看成一个环,则队列中元素的个数为【】。
“年龄在18-25之间”这种约束是属于数据库当中的
DBMS的数据控制功能包括完整性控制、并发控制、安全性控制和【】。
随机试题
非水滴定法测定维生素B1原料药的含量,应选碘量法测定维生素C的含量,应选
消火栓灭火系统的室内消火给水管道若管径大于100mm,则宜采用( )。
傣族有()的习俗。
旅客可以携带乘车的物品是()。
异步控制常用于()作为其主要控制方式。
毛泽东在《矛盾论》中指出:矛盾问题的精髓是()。
抗日战争是中国人民在中国共产党的领导下,为抗击日本帝国主义侵略而进行的伟大的民族革命战争。下列有关抗日战争的说法,不正确的有:
有统计显示,在“挑战杯”全国大学生课外学术科技作品竞赛中,由指导老师推荐的作品所取得的成绩要好于大学生自荐的作品。因此,相较于大学生自身的创新意识,科学素养和动手能力,是否有指导老师的推荐对于一个作品能否获奖更为重要。下列哪项如果为真,最能削弱上述论证?
[A]music[B]language[C]hat[D]film[E]bank[F]breakfast[G]teacher
A、Thequalityofgoodsandserviceshasimproved.B、Mostpeoplearereducingtheirconsumption.C、Complaintchannelsaretoolim
最新回复
(
0
)