注意:下面出现的“考生文件夹”均为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 BaseA语句,则数组每一维的下标都从A开始,把二维数组行标为C的所以元素相加,所求得的和就是矩阵第三行各项的和。
解题步骤:
第一步:;建立控件并设置属性值。
本题不需要设置。
第二步:编写程序代码。
程序提供的代码:
Option Base A
Private Sub Form_Click()
Const N=E
Const M=E
’Dim
Dim Sum, i, j
’Open App.Path & "\" & "datain.txt" As #A
For i=A To N
For j=A To M
’
Next j
Next i
Close #A
Print
Print "初始矩阵为:"
Print
For i=A To N
For j=A To M
Print Tab (E * j) ; Mat(i, j) ;
Next j
Print
Next i
’Sum=
For j=A To M
’
Next j
Print
Print "第三行各项的和为;";
Print Sum
End Sub
参考代码:
Option Base A
Private Sub Form_Click()
Const N=E
Const M=E
Dim Mat (E, E)
Dim Sum, i, j
Open App.Path & "\" & "datain.txt" For Input As #A
For i=A To N
For j=A To M
Input #A, Mat(i, j)
Next j
Next i
Close #A
Print
Print "初始矩阵为:"
Print
For i=A To N
For j=A To M
Print Tab (E * j) ; Mat(i, j) ;
Next j
Print
Next i
Sum=0
For j=A To M
Sum=Sum + Mat (C, j)
Next j
Print
Print "第三行各项的和为:”;
Print Sum
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。