【计算机类职业资格】国家二级VB机试（上机操作）模拟试卷321及答案解析.doc

1、国家二级 VB机试（上机操作）模拟试卷 321及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1，标题为“图片”的窗体上添加 1个名称为 Image1的图像框，其高为 2500，宽为2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件 pie1jpg 插入图像框，并使图片自动适应图像框的大小(如图所示)。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1的窗体上添加一个名称为 Iabel1，标题为“口令”的标签；添加一个名称为 T

2、ext1的文本框；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。 程序运行时，在 Text1中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图 2所示)；单击“显示口令”按钮，则正常显示输入的字符(如图 1所示)，单击“重新输入”按钮，则清除 Text1中的内容，并把光标定位到 Text1中。 要求：请按要求添加所有控件，编写命令按钮的 Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写 1条语句。存盘时必须存放在考生文件夹下，工程文件名为

3、sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 Sjt3vbp。窗体上有名称为 Timerl的定时器，以及两条水平直线，名称分别为 Line1和 Line2。 请用名称为 Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求： 圆的顶端距窗体 Form1顶端的距离为360； 圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&)，如图所示。 程序运行时，Shape1将在 Linel和 Line2之间运行。当 Shape1

4、的底部到达 Line2时，会自动改变方向向上运动；当Shape1的顶端到达 Linel时，会自动改变方向向下运动。 文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 Sjt4vbp，包含了所有控件和部分程序，如图所示。其功能如下： 单击“读数据”按钮，可将考生文件夹下 in4dat 文件中的 100个整数读到数组 a中。 单击“计算”按钮，则根据从组合框 Combol中选中的项目，对数组 a中的数据计算平均值，并将计算结果四舍五入取整

5、后显示在文本框 Text1中。 “读数据”按钮的 Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。其功能是产生并显示一个数列的前 n项。数列产生的规律是：数列的前 2项是小于 10的正整数，将此两数相乘，若乘积10，则以此乘积作为数列的第 3项；若乘积10，则以乘积的十位数为数列的第 3项，以乘积的个位

6、数为数列的第 4项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第 n项。窗体上部从左到右 3个文本框的名称分别为Text1、Text2、Text3，窗体下部的文本框名称为 Text4。程序运行时，在 Text1、Text2 中输入数列的前两项，Text3 中输入要产生的项数 n，单击“计算”按钮则产生此数列的前 n项，并显示在 Text4中。如图所示。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 321答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1，标题为“图片”的窗体上添加 1个名称为

7、 Image1的图像框，其高为 2500，宽为2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件 pie1jpg 插入图像框，并使图片自动适应图像框的大小(如图所示)。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1的窗体上添加一个名称为 Iabel1，标题为“口令”的标签；添加一个名称为 Text1的文本框；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。 程序运行时，在 Text1中输入若干字符，单击“隐藏口

8、令”按钮，则只显示与字符同样数量的“*”(如图 2所示)；单击“显示口令”按钮，则正常显示输入的字符(如图 1所示)，单击“重新输入”按钮，则清除 Text1中的内容，并把光标定位到 Text1中。 要求：请按要求添加所有控件，编写命令按钮的 Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写 1条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 333 所示。 步骤 2：调试并运

9、行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表 334 和表 335。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 Sjt3vbp。窗体上有名称为 Timerl的定时器，以及两条水平直线，名称分别为 Line1和 Line2。 请用名称为 Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求： 圆的顶端距窗体 Form1顶端的距离为360； 圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&

10、)，如图所示。 程序运行时，Shape1将在 Linel和 Line2之间运行。当 Shape1的底部到达 Line2时，会自动改变方向向上运动；当Shape1的顶端到达 Linel时，会自动改变方向向下运动。 文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 Sjt4vbp，包含了所有控件和部分程序，如图所示。其功能如下： 单击“读数据”按钮，可将考生文件夹下 in4dat 文件中的 100个整数读到数组 a中。 单击“计算”按钮，

11、则根据从组合框 Combol中选中的项目，对数组 a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框 Text1中。 “读数据”按钮的 Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题工程文件，新建一个形状控件，并按表351 所示设置属性。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件

12、 sjt5vbp。其功能是产生并显示一个数列的前 n项。数列产生的规律是：数列的前 2项是小于 10的正整数，将此两数相乘，若乘积10，则以此乘积作为数列的第 3项；若乘积10，则以乘积的十位数为数列的第 3项，以乘积的个位数为数列的第 4项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第 n项。窗体上部从左到右 3个文本框的名称分别为Text1、Text2、Text3，窗体下部的文本框名称为 Text4。程序运行时，在 Text1、Text2 中输入数列的前两项，Text3 中输入要产生的项数 n，单击“计算”按钮则产生此数列的前 n项，并显示在 Text4中。如图所示。 （分

13、数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Commandl_Click() Text4=” a=Val(Text1) b=Val(Text2) n=Val(Text3) Text4=Text4&a&“”b 文本框 Text4中第二项的内容一定是 b k=2 Do While kn c=a*b k=k+1 If c10 Then判断乘积是否小于 10 Text4=Text4“”&c若小于 10，则直接接到 Text4文本末尾 a=b将 b赋给 a成为下一次循环的前一项 b=c将 c作为下一次循环的后一项 Else d=c/10当 c大于 10，则取整 Text4=Text4”d a=d将十位数作为下一次循环的前一项 k=k+l If k=n Then 当 kn 时，则数列数已够，不用求下一项 d=c Mod 10 Text4=Text4”d b=d 将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：