首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
51
问题
设在当前目录下有一个名为"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文件的叙述中,错误的是( )。
设有下面的语句:PrintIIf(x>0,1,IIf(x
如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是( )。
下面描述中不属于数据库系统特点的是
下面不属于软件设计阶段任务的是
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
下面描述中不属于数据库系统特点的是
在面向对象的程序设计中,可被对象识别的动作称为
下列运算符中,优先级别最低的是
随机试题
下列解释不正确的一项是()。
Inanycomprehensiontextyouwillfindwordsthatyoudon’tknow,Youcan【C1】______themupinadictionary,ofcourse,【C2】_____
氟牙症的临床特征是四环素牙的临床特征是
某跨海大桥,上部结构为9m×50m+9m×50m+12m×50m三联等跨等截面预应力混凝土连续箱梁桥,横向为两个独立的单箱,梁高2.75m,单箱顶面宽为11.30m。箱梁采用移动式模架逐跨施工,整套设备从瑞士某公司引进。施工单位在施工组织设计中提出的模
某公路隧道长3000m,穿越的岩层主要由页岩和砂岩组成,设计采用新奥法施工,分部法开挖,复合式衬砌,洞口段由于洞顶覆盖层较薄,岩隙发育,开挖中地表水从岩石裂隙中渗入洞内,在施工过程中,隧道发生过规模不等的塌方。在隧道施工中,施工单位认真做好了四个方面的防尘
长城公司对在日后期间发现的差错进行会计处理后,应调减已编制的2007年的资产负债表“资产总计”项目金额( )万元。长城公司对在日后期间发现的差错进行会计处理后,应调减已编制的2007年的资产负债表“负债总计”项目金额( )万元。
关于物权与债权区别的说法,错误的是()。
人的价值在于()。
A、 B、 C、 C本句为询问技术员今天下午为什么来的Why疑问句。
TheOctopusiswrittenby
最新回复
(
0
)