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