应用题
1. 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：
32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后单击窗体，将把文件datain.txt中的数据输入二维数组Mat中，按5行5列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后单击窗体，将把文件datain.txt中的数据输入二维数组Mat中，按5行5列的矩阵形式显示在窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
【正确答案】【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Option Base 1
Private Sub Form_Click()
ConSt N=5
Cnnst M=5
Dim Mat(N,M)As Integer '定义二维数组
Dim i,j,t
Open App.Path& "\"&"datain.txt" For Input As #1
'对文件进行读操作
For i=1 To N
For j=1 To M
Input #1,Mat(i,j) '将数据读入数组Mat中
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
For i=1 To N '完成第二列和第四列的交换
t=Mat(i,2)
Mat(i,2)=Mat(i,4)
Mat(i,4)=t '将t的内容赋给Mat(i,4)，完成交换
Next i
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
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Option Base 1
Private Sub Form_Click()
ConSt N=5
Cnnst M=5
Dim Mat(N,M)As Integer '定义二维数组
Dim i,j,t
Open App.Path& "\"&"datain.txt" For Input As #1
'对文件进行读操作
For i=1 To N
For j=1 To M
Input #1,Mat(i,j) '将数据读入数组Mat中
Next j
Next i
Close #1
Print "初始矩阵为:"
For i=1 To N
For j=1 To M
Print Tab(5*j); Mat(i,j);
Next j
Next i
For i=1 To N '完成第二列和第四列的交换
t=Mat(i,2)
Mat(i,2)=Mat(i,4)
Mat(i,4)=t '将t的内容赋给Mat(i,4)，完成交换
Next i
Print "交换第二列和第四列后的矩阵为："
For i=1 To N
For j=1 To M
Print Tab(5*j); Mat(i,j); '将转换后的结果打印在窗体上
Next j
Next i
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：App.Path相对路径、Option.Base数组下标、文件编辑、Print方法、二维数组定义以及For循环语句。
本题代码先定义一个数组，然后以输入方式打开文件datain.txt，并在一个嵌套的For循环中用Input #将数据文件中的数据读入并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组Mat中的数据在窗体上按5行、5列的矩阵形式显示出来，接着再用一个For循环将数组Mat中第1维下标分别为2和4的元素按第2维下标一致的对应交换值。最后将交换后的数组Mat中的数据再按5行、5列的矩阵形式在窗体上显示出来。
本题代码先定义一个数组，然后以输入方式打开文件datain.txt，并在一个嵌套的For循环中用Input #将数据文件中的数据读入并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组Mat中的数据在窗体上按5行、5列的矩阵形式显示出来，接着再用一个For循环将数组Mat中第1维下标分别为2和4的元素按第2维下标一致的对应交换值。最后将交换后的数组Mat中的数据再按5行、5列的矩阵形式在窗体上显示出来。