1、国家二级 VB机试（上机操作）模拟试卷 309及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上画一个名称为 Pic的图片框，通过属性窗口将考生文件夹下的文件 Tu1-1jpg 添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB 等级考试”，如图 3179所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件名为 sjt1frm。(
2、2)在名称为 Form1的窗体上画一个名称为 Command1的命令按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为 menu，包含两个子菜单项，一个是“显示命令按钮”，名称为 subMenu1；另一个是“隐藏命令按钮”，名称为 subMenu2，如图 3180所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮” （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，运行情况如图 3181所示。程序的功能是计算表达式的值：z=(x2)!+(x
3、-3)!+(x-4)!+(x-N)!其中的 N和 x值通过键盘分别输入到两个文本框Text1、Text2 中。单击名称为 Command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为 Label1的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确内容。要求：程序调试通过后，必须按照如图 3181所示输入N=5，x=12，然后计算 z的值，并将计算结果显示在标签 Label1中，否则没有成绩。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4vbp
4、。窗体上有名称为 Label1的标签和名称为 Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图 3182所示)，且每隔 1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中己经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。其窗体中有一个名称为 Text1的
5、文本框数组，下标从 0开始。程序运行时，单击“产生随机数”按钮，就会产生 10个 3位数的随机数，并放入 Text1数组中，如图 3183(a)所示；单击“重排数据”按钮，将把 Text1中的奇数移到前面，偶数移到后面，如图 3183(b)所示。文件中已经给出了所有控件和部分程序。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 309答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上画一个名称为 Pic的图片框，通过属性窗
6、口将考生文件夹下的文件 Tu1-1jpg 添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB 等级考试”，如图 3179所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件名为 sjt1frm。(2)在名称为 Form1的窗体上画一个名称为 Command1的命令按钮，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为 menu，包含两个子菜单项，一个是“显示命令按钮”，名称为 subMenu1；另一个是“隐藏命令按钮”，名称为 subMenu2，如图 3180所示。编写适当的事
7、件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮” （分数：2.00）_正确答案：(正确答案：第 1小题 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中画一个名称为Pic的图片框，并设置其 Picture属性为 Tu1-1jpg。 步骤 2：双击窗体打开代码编辑窗口，在窗体的Click事件过程中输入代码。 参考代码： Private Sub Form_Click() PicPrint“VB 等级考试“ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：新建一个“标准 EXE”工程，按要求画出控件
8、并设置属性。 步骤 2：选抒工具菜单编辑器命令，打开菜单设计器，按要求建立菜单项。 步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： Private Sub subMenu1_Click() Command1Visible=True End Sub Private Sub slabMenu2_Click() Command1Visible=False End Sub 步骤 4：按要求将文件保存至考生文件夹中。)解析：解析：第 1小题：本题只需按要求在窗体及框架中画出控件，并设置其相应属性，然后在窗体的单击事件中调用图片框的 Print方法显示文奉。 第 2小题：要实现本题中
9、的功能，应在“显示命令按钮”菜单项的 Click事件过程中，令命令按钮的 Visible属性为 Trile，在“隐藏命令按钮”菜单项的 Click事件过程中，设置命令按钮的 Visible属性为 False。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，运行情况如图 3181所示。程序的功能是计算表达式的值：z=(x2)!+(x-3)!+(x-4)!+(x-N)!其中的 N和 x值通过键盘分别输入到两个文本框Text1、Text2 中。单击名称为 Command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为 Lab
10、el1的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确内容。要求：程序调试通过后，必须按照如图 3181所示输入N=5，x=12，然后计算 z的值，并将计算结果显示在标签 Label1中，否则没有成绩。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4vbp。窗体上有名称为 Label1的标签和名称为 Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图 3182所示)，且每隔 1秒钟依次显
11、示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中己经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1小题 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： tmp=1 tmp=temp*i xn=tmp z=z+xn(t) 步骤 2：按F5键运行程序，在第一个文本框中输入 5，第二个文本框中输入 12，然后单击“计算”按钮。
12、 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： arr=Array(“第一项“，“第二项“，“第三项“，“第四项“) Static i As Integer Label1Caption=arr(i) i=0 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析：第 1小题：本题源程序中，自定义函数 xn的功能是进行 m!阶乘运算，它通过 For循环连续m次将循环变量 i的值乘以累积变量 tmp(第一个?处 tmp初值应为 1)来实现。故白定义函
13、数 xn中第二个?处应改为：tmp*i，作为函数返回值第三个?处应改为：xn。 在“计算”按钮的单击事件过程中，根据程序所要计算表达式的特点，源程序利用一个 For。循环依次计算表达式中各项的值(x-i)!)，并将其累加入变量 z。计算表达式中各项的值通过调用自定义函数 xn(t)来实现的，其中 t=x-i。故 Command1_Click事件过程中第一个?处应改为：xn(t)。计算结果显示在标签中。 第 2小题：要实现本题中的功能，在窗体的 Load事件过程中，首先使用 Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器的 Timer事件中，由于需要计算 Timer
14、事件的执行次数才能判断出应该显示何种文宁，因此计数变量 i应该声明为 Static类型的变量，然后把数组的第 i项显示在标签中，接下来令 i+1，一旦 i超过了 3就将其重新置 0以便实现循环显示。三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。其窗体中有一个名称为 Text1的文本框数组，下标从 0开始。程序运行时，单击“产生随机数”按钮，就会产生 10个 3位数的随机数，并放入 Text1数组中，如图 3183(a)所示；单击“重排数据”按钮，将把 Text1中的奇数移到前面，偶数移到后面，如图 3183(b)所示。文件中已经给出了所有控件和部
15、分程序。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： j=9 temp=Text1(j) While(ij) If Text1(j)Mod2=1Then 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析：本题源程序中，变量 i和 j均用作 Text1文本框数组的索引号(即 Index属性值)，根据算法中的第 1条，可知 i=0、j=9、temp=Text1(i)，其中“暂存最后一个数”的目的是为空出一个位置放第一个偶数。根据算法中的第 3条，检查第 j个数是否为奇数的条件表达式为：Text1(j)Mod2=1。算法中的第2条和第 3条交替运行，将实现一后(偶数)一前(奇数)重排数据的目的。根据算法中的第 4条，可知在 i向后移、i 向前移过程中，当 i=j时则停止这种移动(故 While循环的条件表达式为 ij)。将先前暂存的数(temp)放到当前空缺位置，以实现算法中的第 5条。
