2. 计算机
  3. 在考生文件夹中有一个工程文件sjt5．vbp，如图所示。运行程序时，从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时，将统计矩阵两个对角线的元素中能被3整除的个数，统计结果在标签lblFirst中显示；同时计算矩阵主对角线的元素之和，

在考生文件夹中有一个工程文件sjt5．vbp，如图所示。运行程序时，从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时，将统计矩阵两个对角线的元素中能被3整除的个数，统计结果在标签lblFirst中显示；同时计算矩阵主对角线的元素之和，

admin2019-03-14  54
问题 在考生文件夹中有一个工程文件sjt5．vbp，如图所示。运行程序时，从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时，将统计矩阵两个对角线的元素中能被3整除的个数，统计结果在标签lblFirst中显示；同时计算矩阵主对角线的元素之和，计算结果在标签lblSecond中显示。已给出了部分程序，请编写“计算”命令按钮事件过程中的部分程序代码，以便完成上述功能。
    注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用“计算”按钮进行计算，否则将没有成绩。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(7, 7) As Integer Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & "\Data5.txt" For Input As #1 Do While Not EOF(1) 　　　　For i = 1 To 7 　　　　　　For j = 1 To 7 　　　　　　　　Input #1, a(i, j) 　　　　　　Next j 　　　　Next i Loop Close #1 End Sub Public Sub Save() Open App.Path & "\out5.txt" For Output As #1 Print #1, lblFirst.Caption, lblSecond.Caption Close #1 End Sub Private Sub Command1_Click() Dim Sum As Long 　　N = 7 Counter = 0 Sum = 0 ’＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝＝＝＝ ’＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝ Save End Sub 程序结束 参考答案 For i = 1 To 7 For j = 1 To 7 If i = j Then Sum = Sum + a(i, j) Next j Next i For i = 1 To 7 For j = 1 To 7 If i = j Or i = 8 - j And a(i, j) Mod 3 = 0 Then Counter = Counter + 1 End If Next j Next i lblFirst = Counter lblSecond = Sum 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/0bUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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