首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为sjin.txt的文本文件,其内容如下: 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 程序运行后
在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为sjin.txt的文本文件,其内容如下: 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 程序运行后
admin
2009-03-26
19
问题
在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外还有一个名为sjin.txt的文本文件,其内容如下:
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
程序运行后,单击窗体,将把文件sjin.txt中的数据输入到一维数组Arr中,在窗体中按4行4列的矩阵形式显示出来,并在Textl输出矩阵右上一左下对角线上的数据,如图33—6所示。
在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。
注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
根据题意,将一个文本框控件控件和一个标签添加到窗体中,文本框的名称为Textl,Text属性为空,标签的Caption属性为“右上一左下对角线的数”,具体代码如下(其中(i*4-i+1)代表对角线的数在数组中的位置): Private Sub Form_Click() Dim Arr(16)As Integer Dim i As Integer Dim str As String Dim tmp As String Open”App.Path&sjin.txt”For Input As
#1
’打开文件 str=""
Cls
’清空窗口 For i=1 To 16 Input#l,Arr(i) ’利用循环读取16个数 tmp=Arr(i) str=str+tmp+"" ’将数组放入字符串里面 If i Mod 4=0 Then Print str’每当读取4个则输出并换行 str="" ’字符串清空 End If Next i Close#1 For i=1 To 4 tmp Arr(i*4-i+1) ’获得对角线的数 str=str+tmp+"" ’放入字符串里面 Next i Textl.Text=str’在Textl中显示出来 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/qLq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在面向对象方法中,类之间共享属性和操作的机制称为【】。
请在下面代码中加入监听器语句【】。importjava.awt.*;importjava.applet.Applet;publicclassSimpleextendsAppletimplementsMouseLi
下列关于类型转换的说法中,正确的是()。
Java中对Applet设置了严格的安全限制。下列关于Applet在Java2中的安全限制叙述正确的是()。
希望编写好的Java程序代码,应遵守命名规则、【】、为代码分段、适当使用空白行、遵循第32条规则。
设x=1,y=2和z=3,则表达式y+=z--/++x的值是
在面向对象的程序设计中,下列叙述中错误的是
创建图形用户界面韵步骤是先创建代表图形化用户界面容器,再添加需要的组件,创建需要的接口,然后创建【】,并建立它和所对应的接口组件之间的联系,使得接口可以接纳用户事件。
容器Panel和Applet默认使用的布局编辑策略是()。
下列哪一个选项是short型数据的取值范围?
随机试题
类风湿关节炎特异的皮肤表现是
证券公司在证券自营账户与证券资产管理账户之间或者不同的证券资产管理账户之间进行交易,且无充分证据证明已依法实现有效隔离的,依照《证券法》的规定,责令改正,没收违法所得,并处以()的罚款。
下列交易或事项形成的负债中,其计税基础等于账面价值的有()。
责任成本计算、变动成本计算和制造成本计算,是三种不同的成本计算方法。它们的主要区别包括()。
应对旅游者个别要求的基本原则包括()。
相关需求,即某种物品的需求与其他物品相关。例如,一个汽车制造厂对引擎的需求与该厂生产汽车的销售情况相关。相关需求并非仅受其他关联产品的影响。例如,办公家具的需求与公司雇员的数量相关。()
银行券是随着资本主义银行的发展而首先在欧洲出现于流通中的纸制货币。()
SeminarScheduleAlllectureswillbefrom9:00a.m.to12:25p.m.PleasenotethattherewillbenolectureonMay5.To:Kimb
Today,theTowerofLondonisoneofthemostpopulartourist【1】andattractsoverthreemillionvisitorsayear.Itwasoccasion
A、Confident.B、Shocked.C、Nervous.D、Reluctant.A
最新回复
(
0
)