首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为in5.dat的文本文件,其内容如下: 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 程序运行后,单击窗体
在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为in5.dat的文本文件,其内容如下: 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 程序运行后,单击窗体
admin
2010-07-13
33
问题
在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为in5.dat的文本文件,其内容如下:
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
程序运行后,单击窗体,将把文件in5.dat中的数据输入到一维数组Arr中,在窗体上按4行4列的矩阵形式显示出来,然后计算矩阵第2列各项的和,并在Textl上显示出来,如图34—6所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。
注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
根据题意,将一个文本框控件控件和一个标签添加到窗体中,文本框的名称为Textl,标签的Caption属性为“数组第二列的和”。双击Commandl进入代码编写窗口,设置完成,双击Commandl进入代码编写窗口,其中(i*4-2)代表第二列各个数在数组中的位置,具体代码如下: Private Sub Form_Click() Dim Arr(16)As Integer Dim i As Integer Dim str As String Dim tmp As String Dim total As Long Open App.Path&"\ins.dat"For Input As#1’打开文件 str=""
Cls
’清空窗体 total=0 For i=1 To 16 Input#1,Art(i) ’利用循环读取16个数 tmp=Arr(i) str=str+tmp+"" ’将数组放入字符串里面 If i
Mod
4=0 Then Print str’每当读取4个则输出并换行 str=""’字符串清空 End If Next i Close#l For i=1 To 4 total=total+Arr
(i*4-2)
’获得第二列的数组值,进行相加 Next i Textl.Text=
total
’总和在Textl中显示出来 savedat End Sub Sub savedat() Open"App.Path&\out5.txt"For Output As#1 Print#1,Textl.Text Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/LGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
JDK中,用()命令对其源文件进行编译,生成字节码文件。
设计程序时,应采纳的原则之一是()。
在面向对象方法中,对象可看成是属性(数据)以及这些属性上的专用操作的封装体。封装是一种【】技术。
当处理的数据量很多,或向文件写很多次少量的数据,一般使用( )流。
执行下列程序后,输出结果为()。publicclassTest{publicstaticvoidmain(String[]args){StringBuffersb=newStri
下面程序段的输出结果是( )。publicclassTest{publicstaticvoidmain(String[]args){intj=2,i=5;whi
下列选项中不属于结构化程序设计方法的是( )。
下面程序代码运行结果为( )。importjava.awt.*;publicclassTest{publicstaticvoidmain(Stringargs[]){String
随机试题
不属于血糖增高性的糖尿是
下列关于新药概念的叙述,正确的是
女性阴道上皮随卵巢激素水平改变发生变化的周期性内,哪一期角化细胞比例最高
失荣初期治疗的主方是肉瘿治疗的主方是
某市药品监督管理局在监督检查过程中发现,惠州友帮大药房连锁有限公司的主要违规行为是未按规范储存药品。首先是药品堆码垛间距不足5厘米,部分药品堆垛有倒置现象,如:板蓝根颗粒;其次,检查结果显示,该企业阴凉库2018年6月18日18时30分至6月19日7时30
沥青混合料车辙试验是在规定条件下,测量试件每增加1mm变形需要行车的次数。()
某市一家彩电生产企业,为增值税一般纳税人,适用企业所得税税率25%。2015年生产经营业务如下:(1)全年直接销售彩电取得不含税销售收入8000万元(不含用于换取原材料的部分),全年购进原材料,取得增值税专用发票,注明税款850万元(已通过主管税务机关认
为调查外来务工人员对社会工作服务满意度,社会工作者小周设计一份问卷,对接受过服务的外来务工人员进行调查。关于问卷问题设计的说法,正确的是()。
有16支篮球队参加双循环比赛,需比赛几场?()
社会主义法律得以实现的主要方式是( )。
最新回复
(
0
)