2012年计算机二级VB上机试题及解题思路第36套

　　3. 综合应用(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列的矩阵形式显示出来，并输出矩阵左上-右下对角线上的数据，如图所示。 在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

　　要求：

　　去掉程序中的注释符，把程序中的 ? 改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体程序不完整，在窗体的Private Sub Form_Click()事件过程中，有四处地方需要修改。

　　1) 将语句

　　'Dim ?

　　改为

　　Dim Mat(M, N) As Integer

　　2) 将语句

　　'Open App.Path & "\" & "datain.txt" ? As #1

　　改为

　　Open App.Path & "\" & "datain.txt" For Input As #1

　　3) 将语句

　　'?

　　改为

　　Input #1, mat%(i, j)

　　4) 将语句

　　'If ? Then Print Tab(5 * j); Mat(i, j)

　　改为

　　If 0 = i - j Then Print Tab(5 * j); mat(i, j)

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总