首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
2015-08-28
37
问题
设在当前目录下有一个名为"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/YpQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当我们输入代码时,VisualBasic可以自动检测______错误。
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Label1,文本框的Text1属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click()x=Int(Val
以下正确的叙述是______。
为了清除列表框中的所有内容,应使用的方法是______。
下列关于队列的叙述中正确的是______。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
下列关于栈的叙述中正确的是______。
设x=4,y=8,z=7,下列表达式的值是()。x>zOrz<x
设A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为______。
随机试题
《酱油卫生标准》中规定的理化指标中,黄曲霉毒素B1(AFB1)的指标为()。
A、尿酮体(+)B、尿中白细胞>5个高倍视野C、柏油便D、血红蛋白<110g/LE、大量管型尿上消化道出血可发现
对牙周健康状况影响最大的不良习惯是A.吸烟B.喝酒C.磨牙症D.吐舌E.口呼吸
唐某作为发明人,依法应享有哪些权利?对丁公司的违法行为应如何定性?为什么?
国有建设用地使用权出租中,下列关于租赁双方权利义务的说法中,正确的有()。
下列企业行为不属于市场渗透战略的是()。
经常被使用的看板主要有两种:______和______。
白日梦属于()
如图2.1所示,有四台Linux主机进行互联,则实现PC1与PC4之间互访的步骤应该是:1.首先运行(29)命令关闭计算机,在PC2与PC3上添加第二块网卡(ethl)后重新启动;2.在PC2与PC3上为第二块网卡分配IP地址,并激
______theirdifferences,theyareunitedbythecommondesiretotransformtheirpersonaltommitmentintopublicleadership.
最新回复
(
0
)