首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
41
问题
设在当前目录下有一个名为"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全国计算机二级
相关试题推荐
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
语句PrintFormat$(23846.5,"000,000.00")的输出结果是
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
下面不属于软件测试实施步骤的是
软件设计中模块划分应遵循的准则是
下面关于VB应用程序的叙述中正确的是
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
下列循环中,可以正常结束的是( )。
下列选项中不属于结构化程序设计原则的是
下列运算符中,优先级别最低的是
随机试题
李某,男,35岁,因“头部斑片状脱发2个月”就诊。患者平日体健,无烟酒嗜好。近半年来因工作繁忙,经常失眠头晕,饮食无规律。2个月前理发时无意中被发现头顶部一处圆形、指甲盖大小的斑片状脱发区,无痛痒及其他不适症状。后该脱发区逐渐增大,并于枕部又出现类似脱发区
A、层厚2~3mm,间距2~3mmB、层厚5~6mm,间距5~6mmC、层厚5~10mm,间距5~10mmD、层厚5mm,间距5mmE、层厚5mm,间距10mm肘关节扫描常规采用
患儿,22天。面目皮肤发黄20天,色泽鲜明如橘皮,精神疲倦,不欲吮乳,尿黄便秘,舌红苔黄。其证候是
A.青霉素B.头孢曲松C.克林霉素D.氧氟沙星E.红霉素孕妇感染苍白密螺旋体首选的治疗药物是()
A.1年B.2年C.3天D.7天门诊一类精神药品控缓释剂处方限量是()
民事诉讼的基本特点包括()。
速动比率属于反映()指标。
2014年,非洲爆发埃博拉疫情的消息引发了某小区部分居民的恐慌,扰乱了正常的生活秩序。社会工作者老顾及时联系了某医院感染科的专家深入社区进行专题健康讲座,解除了大家的恐慌情绪,稳定了社区秩序。在这一过程中,老顾的工作起到了()的作用。[2015年真
设f(x,y)满足=2,f(x,0)=1,f’y(x,0)=x,则f(x,y)=________.
It’sveryinterestingtonotewherethedebateaboutdiversity(多样化)istakingplace.Itistakingplaceprimarilyinpolitical
最新回复
(
0
)