2012年计算机二级VB考试试题及答案解析12

会计考友

综合应用（1小题，计30分）
　　注意：下面出现的“考生文件夹”均为%USER%
　　在考生文件夹下有一个工程文件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列的矩阵形式显示出来， 然后交换矩阵第一行和第三行的数据， 并在窗体上输出交换后的矩阵，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。
- O. T: ^/ o! K　　要求：
+ c/ f0 |6 O  {+ H3 g; a& d! S8 h　　去掉程序中的注释符，把程序中的 ? 改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存盘。
　　解题思路：
: ^8 H. h. K4 e, |( R- }2 q　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。
　　由于所提供的窗体程序不完整，在窗体的Private Sub Form_Click()事件过程中，有四处地方需要修改。
　　1) 将语句
* H* x$ D$ G6 B　　'Dim ?
# ?4 z0 n! {, T5 n　　改为
5 ]. K  q8 C& w/ L　　Dim Mat(M, N) As Integer
　　2) 将语句
　　'Open App.Path & "\" & "datain.txt" ? As #1
+ ~8 y( X% `3 x$ _7 c, \& g7 Q　　改为
　　Open App.Path & "\" & "datain.txt" For Input As #1
　　3) 将语句
　　'?
+ I: E' b# e, E; ~+ [& Z　　改为
! ]3 o5 c! I0 A0 r) b- x+ |　　Input #1, Mat%(i, j)
3 J* {  g- p3 \9 L　　4) 将语句
　　'?
) b; c( E# J  Q8 y$ E3 \. Z　　改为
　　Mat%(3, j) = t
2 D) w# i9 N! _　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw
: t  I% {3 g; N　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。