1、国家二级 VB机试（上机操作）模拟试卷 419及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Label1的标签，标题为 “形状 ”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Text1的文本框，文本框最多能够显示 5个字符，文本框中初始内容为 “圆形 ”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，工程文件名为 sjt1 vbp。 (2)在名称为 Form1的窗休上 添加 个名称为 Label1的标签，字号大小为四号，标题为 “等级
2、考试 ”，如图 1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为 “标签 ”，单击窗体时，显示标签，如图 2所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2 frm，工程文件名保存为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写 条语句。二、简单应用题 2 (1)考生文件夹中有工程文件 sjt3 vbp。窗体上有一个名称为 Label1、标题为 “标签控件 ”的标签；有一 个名称为 Command1、标题为 “命令按钮 ”的命令按钮。单击上述两控件中的任一控件，则在标签 Labe12中显示所单击控件的标题
3、内容 (标题内容前添加 “单击 ”二字 )，下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图 1所示。 程序功能： 将计时器控件设置为每隔 0 5秒触发 一次 Timer事件。运行程序时，只显示下标为 0的图片框控件数组元素，其他图片框均不可见。单击 “开始 ”按钮，数组中的每个图片框自左至右依次显示，时间间隔为 0 5秒，产生 “月亮 ”从左向右移
4、动的效果，如图 2所示。月亮移到右端后再从左端重新开始。单击 “停止 ”按钮， “月亮 ”停止移动。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 三、综合应用题 3 考生文件夹下有一个工程文件 sjt5 vbp。运 行程序后，从文件中读出数据，将其放入一个 55的二维数组 a中。请编写程序，找出数组 a中每行的最大值及该值在行中的次序 (列下标 )，并将所找到的结果分别保存到一维数组 b、 c中 (a中第一行的最大值保存在 b(1)中，最大值的列次序保存在 c(1)中 )。
5、注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。 国家二级 VB机试（上机操作）模拟试卷 419答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗 体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图 3 27所示。程序中用到的控件及属性见表 3 36。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 37所示。步骤 2：编写程序代码。 参考答案 Private Sub F
6、orm_Click() Labe11 ViSible True End Sub Private Sub Form_Load() Form1 Caption “标签 “ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1 Click() Call ShowName(Command1)将 Command1控件传入 ShowName End Sub Private Sub
7、 Labe11_Click() Call ShowName(Labe11) 将 Labe1控件传入 ShowName End Sub Private Sub ShowName(c As Contro1) 两者类型都为控件 If Type Of c IS CommandButton Then Labe12 Caption “单击 “ Command1 Caption End If If Tvpe Of c Is Labe1 Then Labe12 Caption “单击 “ Labe11 Caption End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【
8、操作步骤】 步骤 1：打开本题工程文件，将 Timer1的 Interval属性设置为 500。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Form_Load() Picture1(0) Left 0 Picturel(0) Top 100 For k 1 To 7 Picturel(k) Visible False 当窗体装载时，下标为 1 7的图片都不显示 Next End Sub Private Sub Command1_CliCk() Timer1 Enabled True 单击 Comand1按钮， Timer事件
9、触发 End Sub Private Sub Command2_Click() Timer1 Enabled False End Sub Private Sub Timer1_Timer() Static i As Integer Picturel(i) Visible False i i 1 If i 8 Then 判断图片是否执行到最后一张 i 0 重置 i值 End If Picturel(i) Visible True End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Max a(i， 1)将每行第一个数作为该行最大值，以便进行比较 For j 1 To 5 If Max a(i， j)Then 依次循环比较该行其他数，如有更大值，则替换 max值 Max a(i， j) End If b(i)= Max 最大值存入数组 b中 If Max a(i， j)Then c(i) j 最大值的下标存入数组 C中 Next j 步骤 3：调试并运 行程序，关闭程序后按题目要求存盘。
