首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序: Private Sub Commandl—Click() Dim ch$.ascii As Integer Open”file.txt”For
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序: Private Sub Commandl—Click() Dim ch$.ascii As Integer Open”file.txt”For
admin
2020-04-18
30
问题
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序:
Private Sub Commandl—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
toastii=n
End Function
程序的功能是( )。
选项
A、按行计算文件中每行字符的ASCⅡ码之和,并显示在窗体上
B、计算文件中所有字符的ASCⅡ码之和,并显示在窗体上
C、把文件中所有文本行按行显示在窗体上
D、在窗体上显示文件中所有字符的ASCⅡ码值
答案
A
解析
过程toascii的功能是依次取出传入字符串中的每个字符,用Asc函数将这个字符转换为相应的ASCII码值,通过For循环将这些值累加。累加值由过程名返回。Click事件中以顺序输入方式打开file.txt文件,即以读取方式打开文件。While循环的结束条件是到达文件尾部,在循环体中,Line Input#语句读取文件中的一行数据存入变量ch中,然后以ch为参数调用过程toascii,即计算这一行字符中所有字符的ASCII码值的和,返回值赋给变量ascii,在窗体上输出ascii的值。所以While循环结束时,将在窗体上显示输出file.txt中每一行数据的ASCII码值的和。因此答案为A。
转载请注明原文地址:https://jikaoti.com/ti/a7x0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
关于文件操作,以下叙述中正确的是
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下:PrivateSubCommandl_Click()Open”c:\f1.txt”ForInputAs#1:Open”c:\f2.txt”ForOutputAs#
某人编写了下面的程序,希望能把Textl文本框中的内容写到out.txt文件中PPrivateSubCommandl_Click()Open”out.txt”ForOutputAs#2Print”Text1”
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框,其Text属性值为“VBProgramming”。运行程序后,选中其中的“VB”,并执行如下事件过程:PrivateSubCommandl_Click()
窗体上有1个名称为CD1的通用对话框,1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommandl_Click()CD1.FileName=“”CD1.Filter=”AllFi
有下面程序代码:PrivateSubCommand1Click()DimaAsStringa=“COMPUTER”n=so~eh(a,“T”):PrintUtln=0,“未找到”,n)EndSubPrivateFunction
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$=InputBox("请输入一个二进制数"):n=Len(a$)Fori=1TonDec=Dec*2+_
编写如下程序:PrivateSubCommand1Click()DimmAsInteger,nAsIntegexn=2Form=1To3
随机试题
能引起血中甲状腺素过多,导致甲状腺功能亢进最常见的疾病是
简述实践决定认识
阅读沈从文《箱子岩》中的一段文字,然后回答小题。那一天正是五月十五,河中人过大端阳节。箱子岩洞窟中最美丽的三只龙船,早被乡下人拖出浮在水面上。船只狭而长,船舷描绘有朱红线条,全船坐满了青年桨手,头腰各缠红布。鼓声起处,船便如一支没羽箭,在平静无波
女性,34岁。乏力、面色苍白、尿色黄1年。贫血貌,巩膜黄染。脾肋下2指。血清总胆红素37μmol/L,非结合胆红素27μmol/L,肝功能正常。血红蛋白65g/L,白细胞7.5×10×109/L,血小板170×10×109/L。网织红细胞10%。该患者
临床上将沙门菌感染进行分型,应除外
在临床试验中要得到正确的结论,下列诸因素中哪个最重要
下列调查项目中,属于房地产消费动机调查内容的是()。
甲公司发出存货采用先进先出法计价,期末存货按成本与可变现净值孰低计价。2017年1月1日将发出存货由先进先出法改为移动加权平均法。2017年年初存货账面余额等于账面价值40000元,数量为50千克,2017年1月、2月分别购入材料600千克、350千克,单
有些新员工进入单位就是技术人员,在该单位的一次意见调查中,所有通过社会招聘入职的员工都支持施行绩效考核,所有技术人员都反对绩效考核。如果上述断定为真,以下哪项断定必然为真?
东西文化论战
最新回复
(
0
)