2. 计算机
  3. 在考生文件夹下有一个工程文件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 程序运行后，单击窗体

admin2010-07-13  64
问题  在考生文件夹下有一个工程文件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全国计算机二级

相关试题推荐
随机试题
最新回复(0)