2. 计算机
  3. 注意：下面出现的“考生文件夹”均为C：\wexam\25160002。 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下： 86 97 13 24 35

注意：下面出现的“考生文件夹”均为C：\wexam\25160002。 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下： 86 97 13 24 35

admin2009-02-25  53
问题 注意：下面出现的“考生文件夹”均为C：\wexam\25160002。
   在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：
   86 97 13 24 35 46 57 68 79 80 59 37 32 43 76 58 28 12 98 57 31 42 53 64 75
   程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图25-5所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
   要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案程序首先应该打开文件(使用只读方式打开文件)，然后将文件中的数据存放到Mat数组中。程序中使用了Option Base1语句，则数组每一维的下标都从1开始，把二维数组行标为3的所以元素相加，所求得的和就是矩阵第三行各项的和。 解题步骤： 第一步：;建立控件并设置属性值。 本题不需要设置。 第二步：编写程序代码。 程序提供的代码： Option Base 1 Private Sub Form_Click() Const N=5 Const M=5 ’Dim ? Dim Sum, i, j ’Open App.Path & "\" & "datain.txt" ? As #1 For i=1 To N For j=1 To M ’? Next j Next i Close #1 Print Print "初始矩阵为：" Print For i=1 To N For j=1 To M Print Tab (5 * j) ; Mat(i, j) ; Next j Print Next i ’Sum=? For j=1 To M ’? Next j Print Print "第三行各项的和为；"; Print Sum End Sub 参考代码： Option Base 1 Private Sub Form_Click() Const N=5 Const M=5 Dim Mat (5, 5) Dim Sum, i, j Open App.Path & "\" & "datain.txt" For Input As #1 For i=1 To N For j=1 To M Input #1, Mat(i, j) Next j Next i Close #1 Print Print "初始矩阵为：" Print For i=1 To N For j=1 To M Print Tab (5 * j) ; Mat(i, j) ; Next j Print Next i Sum=0 For j=1 To M Sum=Sum + Mat (3, j) Next j Print Print "~--~T~I~$~: ,,., Print Sum End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/th1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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