首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,程序代码中已经写入部分代码,要求根据下面的描述在窗体模块中定义3个名称分别为readdatal、readdata2和writedata的Sub过程。 请先装入工程文件sj5.vbp,然后完成以下操作:
在考生文件夹下有一个工程文件sj5.vbp,程序代码中已经写入部分代码,要求根据下面的描述在窗体模块中定义3个名称分别为readdatal、readdata2和writedata的Sub过程。 请先装入工程文件sj5.vbp,然后完成以下操作:
admin
2009-08-26
72
问题
在考生文件夹下有一个工程文件sj5.vbp,程序代码中已经写入部分代码,要求根据下面的描述在窗体模块中定义3个名称分别为readdatal、readdata2和writedata的Sub过程。
请先装入工程文件sj5.vbp,然后完成以下操作:
在名称为Forml的窗体上画3个命令的按钮,其名称为Commandl、Command2和Command3,标题分别为“读取数据”、“计算”和“存盘”。程序运行后,如果单击“读取数据”按钮,则读入inl.txt和in2.txt文件中的各25个整数,分别放人a1和a2两个数组中:如果单击“计算”按钮,则把两个数组中对应下标的元素相加,其结果放人第3个数组中(即:第一个数组的第n个元素加上第2个数组的第n个元素,其结果作为第3个数组的第n个元素。这里的n为1,2,…,25),然后计算第3个数组各元素之和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则把所求得的和存人考生文件夹的out5.txt文件中。程序运行时的窗体界面如图27—5所示。
注意:考生只需添加必要的控件,并将程序代码补充完整,使其实现上述功能即可。考生不得修改窗体文件中已经存在的程序,必须把求得的结果用“存盘”按钮存入考生文件文件夹下的out5.txt文件中,否则没有成绩。存盘时,工程文件名仍为sj5.vbp,窗体文件名仍为sj5.frm。
选项
答案
Visual Basic中要对文件操作,首先要先打开一个文件,然后对此文件进行读或写的操作,操作完成后,关闭文件。打开文件的基本格式为:Open FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种方式。以Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的。其中Output、Append打开的文件主要用来输出数据,与Print#、Write#等方法配合使用;以Input方式打开的文件主要用来输入数据,它与Input#、LineInput#语句配合使用。以Random方式打开的文件主要用于随机文件的读与写,它不分Output与Input,统一使用Random标识。 本题原程序三个命令按钮的Click事件过程已给出,要求考生定义三个读或写文件的过程。文本文件是顺序文件,三个过程都用Open语句打开文件。其中WriteDate过程以Output的方式打开文件,并使用Print#语句输出数据;readdatal与readdata2以Input的方式打开文件,并使用Input#语句读入数据。Close#语句用于关闭打开的文件。App.Path用于取得当前工程文件所在的文件夹路径,App.Path&"\"&Filename指明了文件的物理位置。语句:Option Base l用于修改数组的下标默认从1开始编号。 题目给出的源程序如下: Option Base 1 Dim al(25)As Integer Dim a2(25)As Integer Dim Sum As Integer Private Sub Commandl_Click() readdatal readdata2 End Sub Private Sub Command2 Click() Dim a3(25)As Integer Sum=0 For i=1 To 25 a3(i)=al(i)+a2(i) Sum=Sum+a3(i) Next i Print"Sum=";Sum End Sub Private Sub Command3 Click() writedata"out5.txt",Sum End Sub 根据题意,readdatal、readdata2和writedata过程的参考代码如下: Sub readdatal() Open App.Path&"\inl.txt"For Input As#1 For i=1 To 25 Input#1,al(i) Next i Close#1 End Sub Sub readdata2() Open App.Path&"\in2.txt"For Input As#1 For i=1 TO 25 Input#1,a2(i) Next i Close#1 End Sub Sub writedata(FName As String,data As Integer) Open App.Path&"\out5.txt"For Output As#1 Print#1,data End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/ac1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了支持压栈线程与弹栈线程之间的交互与同步,在程序的下划线处依次填入的语句是()。publicclassIntStack{privateintidx=O;privateint[]data=newint[8];pub
软件生命周期可分为定义阶段,开发阶段和维护阶段。详细设计属于()。
调试方法中的【】最适合小规模程序的排错。
下列命令中用于Java解释命令的是()。
程序流程图中的箭头代表的是()。
下面()方法与applet的显示无关。
若二维数组a有m列,则在a[i][j]前的元素个数为()。
在深度为5的满二叉树中,叶子结点的个数为()。
在下列关于二叉树的叙述中,正确的一项是()。
将E-R图转换到关系模式时,实体与联系都可以表示成()。
随机试题
结合实际论述市场研究报告的研究方法部分需要加以叙述的内容。
H市动物园为了吸引游客,向S市动物园租来一只母狮,租赁期限为1年。双方对租金及交付方式均有约定,但未约定母狮所产幼仔及门票收入的归属。下列表述正确的是:()
()是由强度较高而未风化的毛石和砂浆砌筑而成。它具有抗压强度高、抗冻、耐水、经济等特点。
云南看云沈从文①云南是因云而得名的,可是外省人到了云南一年半载后,一定会和本地人差不多,对于云南的云,除了只能从它的变化上得到一点晴雨知识,就再也不会单纯地来欣赏它的美丽了。看过卢锡麟先生的摄影后,必有许多人方俨然重新觉醒,明白
“一叶知秋”说明了知觉具有()特征。
高等教育几年前就已从精英教育步入大众化教育阶段,但就业观念却并没能实现同步转变。当前,在一些大学生脑海中,精英就业观念仍根深蒂固。在他们看来,毕业后不能到大城市、沿海城市或经济发达地区就业,不能找到热门的、高薪的、体面的工作,就是自己人生的失败。而社会也对
心理学家用画人测验评估儿童的人格特征,这种投射技术是()
Womenhavelongbeenmoreinnumberthanmenoncollegecampuses.Theyalsoholdmoreadvanceddegreesthantheirmale【C1】______
ADSL接入方式的主要优点是______。 Ⅰ.使用ASDL上网需要缴付额外的电话费很少 Ⅱ.上网和打电话互不干扰 Ⅲ.ADSL是数字宽带网络 Ⅳ.ADSL用户可以独享带宽,因此速度很快
A、Shehatedthefilmverymuch.B、Shedoesn’tlikeromancemovies.C、Shethoughtthecastofthemoviewasbad.D、Shedidn’tund
最新回复
(
0
)