国家二级VB机试(上机操作)模拟试卷419(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷419(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题
基本操作题
1．(1)在名称为Form1的窗体上添加一个名称为Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为Label1的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为Text1的文本框，文本框最多能够显示5个字符，文本框中初始内容为“圆形”，如图所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。

(2)在名称为Form1的窗休上添加—个名称为Label1的标签，字号大小为四号，标题为“等级考试”，如图1所示。

通过设置属性使标签初始为不显示。

请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图2所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt2．frm，工程文件名保存为sjt2．vbp。

要求程序中不得使用变量，每个事件过程中只能写—条语句。

正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图3．27所示。

程序中用到的控件及属性见表3．36。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

(2)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置其属性，如表3．37所示。

步骤2：编写程序代码。

参考答案Private Sub Form_Click( ) Labe11．ViSible＝True End Sub Private Sub Form_Load( ) Form1．Caption＝”标签”End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单应用题
2．(1)考生文件夹中有工程文件sjt3．vbp。

窗体上有一个名称为Label1、标题为“标签控件”的标签；有一个名称为Command1、标题为“命令按钮”的命令按钮。

单击上述两控件中的任一控件，则在标签Labe12中显示所单击控件的标题内容(标题内容前添加“单击”二字)，下图是单击命令按钮后的窗体外观。

请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图1所示。

程序功能：将计时器控件设置为每隔0．5秒触发一次Timer事件。

运行程序时，只显示下标为0的图片框控件数组元素，其他图片框均不可见。

单击“开始”按钮，数组中的每个图片框自左至右依次显示，时间间隔为0．5秒，产生“月亮”从左向右移动的效果，如图2所示。

月亮移到右端后再从左端重新开始。

单击“停止”按钮，“月亮”停止移动。

要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序的其他部分
和控件属性，最后将修改后的文件按原文件名进行存盘。

正确答案：(1)【操作步骤】步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符“‘”，将问号改为正确的内容。

参考答案Private Sub Command1 Click( ) Call ShowName(Command1)’将Command1控件传入ShowName End Sub Private Sub 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)【操作步骤】步骤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事件触发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．考生文件夹下有一个工程文件sjt5．vbp。

运行程序后，从文件中读出数据，将其放入一个5×5的二维数组a中。

请编写程序，找出数组a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中)。

注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。

程序调试通过后，命令按钮的事件过程必须至少执行一次。

正确答案：【操作步骤】步骤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：调试并运行程序，关闭程序后按题目要求存盘。