首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在当前目录下有—个名为“myfile.txt”的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。请填空。 Private Sub Command1_ Click() Dim c
在当前目录下有—个名为“myfile.txt”的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。请填空。 Private Sub Command1_ Click() Dim c
admin
2009-09-28
91
问题
在当前目录下有—个名为“myfile.txt”的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。请填空。
Private Sub Command1_ Click()
Dim ch$, ascii As Integer
Open "myfile.txt" For【 】 As #1
While Not EOF(1)
Line Input #1 ,ch
ascii=toascii(【 】)
Print ascii
Wend
Close #1
End Sub
Private Function toascii(mystr$)As Integer
n=0
Fork=1 To【 】
n=n+ Asc(Mid(mystr,k,1))
Next k
toascii=n
End Function
选项
答案
Input、ch、Len(mystr)
解析
Line Input #语句格式:Line Input # 文件号,字符串变量。Line Input #语句可以从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。文件号是一个整型表达式,其值在1~511范围内。执行Open语句时,打开文件的文件号与一个具体的文件相关联,其它输入输出语句或函数通过文件号与文件发生关系。“字符串变量”是一个字符串简单变量名,也可以是一个字符串数组元素名,用来接收从顺序文件中读出的字符行。
本题要求读入文本文件“myfile.txt”,“myfile.txt”中有若干行文本,并按行计算每行字符的ASCII码之和,显示在窗体上。在按钮的点击事件中,先定义了两个变量,变量ch$为字符型数据,变量ascii是数值型数据,应使用Input读入文本文件,所以使用的读取文本文件的语句应该为Open "myfile.txt" for input As #1,以读的方式打开文本文件myfile.txt,并给myfile.txt文件一个文件号1。当文件1没有到达文件尾时,读取myile.txt文件的一行,赋给变量ch。题目定义了一个Function过程toascii,功能是计算每行字符的ASCII码之和,先给变量n赋值,变量n的值等于数值0。要统计每行字符的ASCII码之和,那么要分别取出每行的每个字符,计算出它的码值,取字符从每行的第一个字符开始,到每行的字符个数为止。所以循环的终值为Len(ch),用变量n存放每行ASCII码之和,并赋给变量toascii。所以传值时,传字符串ch给过程toascii。将ASCII码的和赋给变量ascii,最后在屏幕上显示各行的码值之和。
转载请注明原文地址:https://kaotiyun.com/show/Zc1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件(程序)调试的任务是()。
下列命令中用于Java解释命令的是()。
有如下程序publicclassSun{publicstaticvoidmain(Stringargs[]){inta=2,b=1,c=2;
程序流程图中的箭头代表的是()。
为用户与数据库系统提供接口的语言是()。
在压缩文件流中,用于缓冲阅读器阅读文本的方法是()。
有如下代码段publicclassOperatorAndExceptions{publicstaticvoidmain(Stringargs[]){inti=10,j=15;
下列关于Applet的安全限制的叙述中,错误的是()。
数据库DB,数据库系统DBS,数据库管理系统DBMS,这3者之间的关系是()。
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体集“项目主管”与实体集“项目”的联系属于【】的联系。
随机试题
下列哪个人物不属于《伊则吉尔老婆子》()
男性,45岁。既往有支气管哮喘反复发作史和肺结核病史。半小时前上楼时,突发呼吸困难及右侧胸痛。查体:明显呼吸困难,发绀、端坐呼吸、大汗、烦躁、颈静脉充盈,气管轻度左偏。桶状胸,左肺叩诊过清音,右胸鼓音,右肺呼吸音低,左肺可闻及哮鸣音。最可能的诊断是
甲是政府安全生产检查人员,则其在行使现场处理权时不可以()。
下列各组设备中,全部属于输入设备的一组是()。
海明威刻画“迷惘的一代”青年形象的作品是()。
一般将储蓄随利率提高而增加的现象称为利率对储蓄的收入效应。()
高塔公司是一家占用几栋办公楼的公司,它正在考虑在它所有的建筑内都安装节能灯泡,这种新灯泡与目前正在使用的传统灯泡发出同样多的光,而所需的电量仅是传统灯泡的一半。这种新灯泡的寿命也大大加长,因此通过在旧灯泡坏掉的时候换上这种新灯泡,高塔公司可以大大地降低其总
设函数f(x)在实数域R内连续,且满足试求f(x)的表达式.
A.ImportanceofLearningfromFailure.B.QualitySharedbyMostInnovators.C.Edison’sInnovations.D.Edison’sCommentonFa
FAQabouttheSITESInternship(实习)Program1.WhatkindofinternshipsdoesSITESoffer?SITES(SmithsonianInstitutionTr
最新回复
(
0
)