首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,把inl.txt和in2.txt文件中的整数分别读入a1和a2数组中。 请先装人工程文件sj5.vbp,然后完成以下操作: 在名称为Forml的窗体上画3个命令按钮,其名称为Commandl、Command2和C
在考生文件夹下有一个工程文件sj5.vbp,把inl.txt和in2.txt文件中的整数分别读入a1和a2数组中。 请先装人工程文件sj5.vbp,然后完成以下操作: 在名称为Forml的窗体上画3个命令按钮,其名称为Commandl、Command2和C
admin
2009-03-26
93
问题
在考生文件夹下有一个工程文件sj5.vbp,把inl.txt和in2.txt文件中的整数分别读入a1和a2数组中。
请先装人工程文件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文件中。运行界面如图59—6所示。
注意:设置适当的控件属性并编写适当的程序代码,将代码窗口中的代码补充完整,使其实现上述功能。考生不得修改窗体文件中已经存在的程序,必须把求得的结果用“保存”按钮存入考生文件夹下的out5.txt文件中,否则没有成绩。存盘时,工程文件名仍为sj5.vbp,窗体文件名仍为sj5.frm。
选项
答案
本题考查控件的画法、命令按钮的常规使用、FOR循环语句的用法和打开文件的基本操作。 打开文件的基本格式为:Open FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种方式。Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的。其中Output、Append打开的文件主要用来输出数据,与Print#、Write#等方法配合使用;以Input方式打开的文件主要用来输人数据,它与Input#、Line Input#语句配合使用。根据题意,将3个命令按钮添加到窗体中,名称分别是Commandl、Command2和Command3,Caption属性分别为“读取数据”、“求和”和“保存”,设置完成后双击Commandl进入代码窗口,程序中利用FOR循环逐一取出al、a2数组中的元素,并把al、a2中对应下标的元素相加后的结果存入b数组中,补充后的具体代码如下: Dim al(25)As Integer Dim a2(25)As Integer Dim b(25)As Integer Dim total As Long Private Sub Commandl_Click() Open App.Path&"\inl.txt"For
Input
As#1’打开“inl.txt”文件 Open App.Path&”kin2.txt”For
Input
As#2 ’打开“in2.txt”文件 Dim i As Integer Dim temp As Integer For i=1 To 25’利用For循环读人数据 Input#1,al(i) ’按顺序读人到数组中
Input#2,a2(i)
’按顺序读入到数组中 Next i Close#1 ’关闭文件 Close#2’关闭文件 For i=1 To 25 b(i)=
al(i)+a2(i)
’进行两个数组对应数值求和计算 Next i End Sub Private Sub Command2_Click() Dim str As String str="总和是" total=0 For i=1 To 25
total total+b(i)
’对数组所有数的求和 Next i
str=str
+CStr(total) ’将结果放到字符串中 Cls Print str’显示结果 End Sub Private Sub Command3_Click() Open App.Path&"\out5.txt"For
Output As#3
’打开out5.txt文件 Print#3,total’写入结果 Close#3 ’关闭文件 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/IV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果一个JavaApplet源程序文件中只定义了一个类,该类的类名为MyApplet,则存储该源程序文件的文件名应为【】。
请在代码中的画线处填写正确的语句【】,使程序输出helloworld!。//HelloApplet.javaImportjava.awt.*;Importjava.applet.*;PublicclassHel
在Applet中,创建一个具有16行40列的多行文本区域对象ta的语句为【】。
阅读下面代码:importjava.awt.*;publicclassExam11_1{privateFramef;privateButtonbl,b2,b3,b4;publicsta
源程序文档化要求程序应加注释。注释一般分为序言性注释和【】。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
J2SDK的基本命令中用于Java类文件归档的是【】。
在Java中所实现的多维数组,实际上是由一维数组构成的【】。
要在一个单一的类文件中创建既可用作JavaApplet,又可用作Java应用程序的Java软件代码,下列说法错误的是()
随机试题
法国地方市镇行政组织的市长具有两种身份,即()
增感屏的作用是
2019年4月,某市税务机关拟对辖区内某房地产开发公司开发的房地产项目进行土地增值税清算。该房地产开发公司提供该房地产开发项目的资料如下: (1)2017年4月,以8000万元拍得用于该房地产开发项目的一宗土地,并缴纳契税;因闲置1年,支付土
DBM的郭士纳和美国西南航空公司的赫伯都是公司的领导人,其领导情境和领导方式均不同,但都获得了很大成功。领导()理论可以解释这一现象。
下列各项中,不属于业务预算的是()。
为保护少年儿童的社会权利,1989年联合国大会通过了()
在2016年举世瞩目的人机大战中,谷歌围棋人工智能AlphaGo与韩国棋手李世石进行巅峰人机对决,最终AlphaGo以4:1赢得最终胜利。这表明()
文化强则中国强。建设社会主义文化强国是实现中华民族伟大复兴的必然要求,其关键是
Humansnotonlyloveeatingicecream,theyenjoy(1)_____ittotheirpets.Marketstudiesshowthattwothirdsofalldogowne
以下关于拒绝服务攻击的叙述中,不正确的是_______。
最新回复
(
0
)