1、二级 VISUAL+BASIC-64 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1、标题为“标签”的窗体上添加一个名称为 Label1 的标签，并设置适当属性以满足以下要求：标签的标题为“计算机等级考试”；标签可根据标题内容自动调整其大小；标签带有边框，且标签标题显示为三号字。程序运行后的窗体如图所示。（分数：15.00）_2.在名称为 Form1 的窗体上添加一个名称为 Hscroll1 的水平滚动条，其刻度范围为 1100；再添加一个名称为 Text1 的文本框，初始文本内容为 1。程序开始运行时，
2、焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图所示。（分数：15.00）_二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp。窗体上有名称为 Timer1 的定时器，以及两条水平直线，名称分别为 Line1 和 Line2。请用名称为 Shape1 的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求：圆的顶端距窗体：Form1 顶端的距离为 360；圆的颜色为红色(红色对应的值为： Mat(i, j); Next j Print Next i
3、 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：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：App.Path 相对路径、Option.Base 数组下标、文件编辑、Print 方法、二维数组定义以及 For 循环语句。 解析 本题代码先定义一个数组，然后以输入方式打开文件datain.txt，并在一个嵌套的 For 循环中用 Input #将数据文件中的数据读入并赋值给每个数组元素。然后再通过一个嵌套的 For 循环将数组 Mat 中的数据在窗体上按 5 行、5 列的矩阵形式显示出来，接着再用一个 For 循环将数组 Mat 中第 1 维下标分别为 2 和 4 的元素按第 2 维下标一致的对应交换值。最后将交换后的数组 Mat 中的数据再按 5 行、5 列的矩阵形式在窗体上显示出来。
