1、国家二级 VB机试（上机操作）-试卷 128及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Shapel的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Label1的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Text1的文本框，文本框最多能够显示 5个字符，文本框中初始内容为“圆形”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtfrm，工程文件名为sjt1vbp。 (2)在名称为 Form1的窗休上添加一个名称为 Lab
2、el1的标签，字号人小为四号，标题为“等级考试”，如图 1所示。通过设置属性使标签初始为不显示。读编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图 2所示。 注意：存盘时，将文件保存至考生文件夹下且窗体文件名保存为 sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。窗体上有一个名称为 Label1、标题为“标签控件”的标签；有一个名称为 Command1、标题为“命令按钮”的命令按钮。单击
3、上述两控件中的任一控件，则在标签Label2中显示所单击控件的标题内容(标题内容前添加“单击”二字)，下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)在考生文件夹下有一个上程文件件 sjt4vbp，其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图 1所示。 程序功能： 将计时器控件设置为每隔 05 秒触发一次 Timer事件。运行程序时，只显尔下标为 0的图片框控件数组元素，其他图片框均不可见。单击“开始”按钮，数组中的每个图片框自左至右依次显示
4、，时问间隔为 05 秒，产生“月亮”从左向右移动的效果，如图 2所示。月亮移到右端后再从左端重新开始。单击“停止”按钮，“月亮”停止移动。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件央下有一个工程文件 sjt5vbp。运行程序后，从文件中读出数据，将其放入一个 55的删二维数组 a中。请编写程序，找出数组 a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组 b、c 中(a
5、 中第一行的最大值保存在 b(1)中，最大值的列次序保存在 c(1)中)。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。（分数：2.00）_国家二级 VB机试（上机操作）-试卷 128答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Shapel的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Label1的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Text1的文本框，文本
6、框最多能够显示 5个字符，文本框中初始内容为“圆形”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtfrm，工程文件名为sjt1vbp。 (2)在名称为 Form1的窗休上添加一个名称为 Label1的标签，字号人小为四号，标题为“等级考试”，如图 1所示。通过设置属性使标签初始为不显示。读编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图 2所示。 注意：存盘时，将文件保存至考生文件夹下且窗体文件名保存为 sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_
7、正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图 327 所示。程序中用到的控件及属性见表 336。 步骤 2：调试并运行程序，关闭程序后按题 n要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 337 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。窗体上有一个名称为 Label1、标题为“标签控件”的标签；有一个名称为 Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件，则在标签
8、Label2中显示所单击控件的标题内容(标题内容前添加“单击”二字)，下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)在考生文件夹下有一个上程文件件 sjt4vbp，其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图 1所示。 程序功能： 将计时器控件设置为每隔 05 秒触发一次 Timer事件。运行程序时，只显尔下标为 0的图片框控件数组元素，其他图片框均不可见。单击“开始”按钮，数组中的每个图片框自左至右依次显示，时问间隔为 05 秒，产生“月
9、亮”从左向右移动的效果，如图 2所示。月亮移到右端后再从左端重新开始。单击“停止”按钮，“月亮”停止移动。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Command1_lick() Call ShowName (Command1)将 Command1控件传入 ShowName
10、End Sub Private Sub Label1_Click() Call ShowName(Label1)将 Label控件传入 ShowName End Sub Private sub showName(c As Control)两者类型都为控件 If TypeOf C IS CommandButton Then Label2Caption“单击“Command1 Caption End If If TypeOf C IS Label Then Label2“单击“Label1 Caption End If End Sub 步骤 3：凋试并运行程序，关闭程序后按题目要求存盘。 (2)【
11、操作步骤】 步骤 1：打开本题工程文件，将 Timer1的Interval属性设置为 500。 步骤 2：打丌代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Form Load() Picturel(0)Left0 Picturel(0)Top100 For k1 To 7 Picturel(k)VisibleFalse当窗体装载时。下标为 17 的图片都不显示 Next End Sub Private Sub Command1_Click() Timer1EnabledTrue单击 Comand1按钮， Timer 事件触发 End Sub P
12、rivate Sub Command2_Click() Timer1EnabledFalse End Sub Private Sub Timer1_Timer() StatiC i AS Integer Picturel(i)VisibleFalse ii1 If i8 Then判断图片是否执行到最后一张 i0重置 i值 End If Picture3(i)VisibleTrue End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件央下有一个工程文件 sjt5vbp。运行程序后，从文件中读出数据，将其放入一个 55
13、的删二维数组 a中。请编写程序，找出数组 a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组 b、c 中(a 中第一行的最大值保存在 b(1)中，最大值的列次序保存在 c(1)中)。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题上程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Maxa(i，1)将每行第一个数作为该行最大值，以便进行比较 For j1 To 5 If Maxa(i，j)Then依次循环比较该行其他数，如有更大值，则替换 max值 Maxa(i，j) End If b(i)Max最大值存入数组 b中 If Maxa(i，j)Then c(i)j最大值的下标存入数纽 c中 Next j 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
