首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
2020-06-30
63
问题
设在当前目录下有一个名为"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/cIHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Command1、标题为“计算”的命令按钮;两个水平滚动条,名称分别为Hscroll1和Hscroll2,其Max属性均为100,Min属性均为1;四
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性为1,可以根据标题自动调整大小;然后再画一个命令按钮,其
(1)在考生目录下有一个工程文件sjt3.vbp,有两个名称分别为Form1和Form2的窗体,Form1为启动窗体,程序执行时Form2不显示。Form1中有菜单(如图3-48(a)所示),程序运行时,若单击“格式”菜单项,则显示Form2窗体(如图3-
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图1-257所示)。程序运行
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
现有如下语句:x=IIf(a>50,Int(a\3),aMod2)当a=52时,x的值是( )。
假定编写了如下的Sub过程:PublicSubProc(a()AsInteger)StaticiAsIntegerDoa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSub编写如下事件过程:Priv
随机试题
Amoment’sdrillingbythedentistmaymakeusnervousandupset.Manyofuscannotstandpain.Toavoidthepainofadrilling
下列哪些方法适用于病毒的分离
工程管线综合总体规划说明书的内容包括()。
如果A方案的净现值是200万元,项目计算期是15年,B方案的项目计算期是10年,基准折现率为12%,按最短计算期法计算的A方案的调整后的净现值应为()。
某食品质量按行业标准可分为四个等级,等级系数x依次设为A、B、C、D.现从一批该食品中随机抽取20件,然后统计其等级系数的分布,得到频率分布表如下:在(1)的条件下,将等级系数为A、B和C的食品(每一等级的产品各不相同)混合,从中抽取3件商品,其中3
签订技术转让合同必须遵守国家的法律,符合国家政策的要求。否则,即使是当事人双方自愿签订的合同,非但不能受到法律保护,还要根据情况依法追究法律责任。与以上论述等值的是()。
一种针对某种疾病的新疗法在12个月的临床试验中使68%的患者病情有了明显改善,其中43%的患者痊愈。然而,通常采用的治疗方法也可在12个月内将38%的患者完全治愈。由于新疗法主要选择了那些症状比较严重的患者,因此有人认为这种新疗法在疗效方面比常用的疗法更显
最新研究发现,几千万年前一支长有罕见怪异特征的哺乳动物家族移居地下生活,并从6500万年前的大灭绝事件中幸存下来,科学家将其命名为Necrolestes。一直以来,这个绰号为“坟墓强盗”的生物被认为是有袋类动物。然而进一步的分析发现,它其实属于生物进化树上
(2010上集管)有多年开发经验的赵工被任命为某应用软件开发项目的项目经理,客户要求10个月完成项目。项目组包括开发、测试人员共10人,赵工兼任配置管理员的工作。按照客户的初步需求,赵工估算了工作量,发现工期很紧。因此,赵工在了解客户的部分需求之
“年龄在0~18之间”,这种约束属于数据库系统的(167)措施。
最新回复
(
0
)