在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外还有一个名为sjin．txt的文本文件，其内容如下： 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 程序运行后

admin2009-03-26 50

问题在考生文件夹下有一个工程文件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://kaotiyun.com/show/1V1p777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外还有一个名为sjin．txt的文本文件，其内容如下： 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 程序运行后

二级VB

NCRE全国计算机二级

设执行下面的赋值语句a=Float.valueOf("34").floatValue()之后，a的值是()。

下列变量名中合法的是()。

下列关于Applet的叙述中，错误的是()。

下列安全控制命令中，属于现实证书缓存区和密钥表项命令的是()。

面向对象程序设计有许多特性，下列选项中用来尽可能隐蔽对象的内部细节的是()。

下列注释使用原则的叙述，正确的是()

Applet可以做下列哪些操作()

用AWT组件实现单选按钮功能，需要使用______组件?()

下列操作中，不属于Applet安全限制的是()。

下面的程序是列出目录C:\Test中所有的.txt文件，请将程序补充完整。importjava.io.*;//引入java.io包中所有的类publicclassFileFilterTest{publicstati

可抑制肾素释放的药物有

心输出量是指()。

试述白芍的药性特点、功效及主治病症。

患者女性，34岁，月经第6天，下腹部隐痛4天，加剧2小时，以右下腹为著，伴恶心、呕吐，申请腹部超声检查。作为超声医师，根据患者的临床表现，应该重点检查的部位是

在胃液中有可激活胃蛋白酶原、促进铁和钙吸收的成分是

如果甲行业的利率高于乙行业的利率，则()。

某投资者手中持有的期权是一份虚值期权，则下列表述正确的是()。

下列应当从重处罚的情形有()。