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:调试并运行程序,关闭程序后按题目要求存盘。)解析: