1、国家二级 VB机试（上机操作）模拟试卷 321及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “图片 ”的窗体上添加 1个名称为 Image1的图像框，其高为 2500，宽为 2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件 pie1 jpg插入图像框，并使图片自动适应图像框的大小 (如图所示 )。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Iabel1，标题为 “口令 ”的标签；添加 一个名称为 Text1的文本框；再添加三个命令按钮，名称
2、分别为 Command1、 Command2、 Command3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “重新输入 ”。 程序运行时，在 Text1中输入若干字符，单击 “隐藏口令 ”按钮，则只显示与字符同样数量的 “*”(如图 2所示 )；单击 “显示口令 ”按钮，则正常显示输入的字符 (如图 1所示 )，单击 “重新输入 ”按钮，则清除 Text1中的内容，并把光标定位到 Text1中。 要求：请按要求添加所有控件，编写命令按钮的 Click事件过程，程序中不得使用变量，在 “显示口令 ”、 “隐藏口令 ”按钮的事件过程中只能写 1条语句。存盘时必须存放在考生文件夹下，工程文件名
3、为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 Sjt3 vbp。窗体上有名称为 Timerl的定时器，以及两条水平直线，名称分别为 Line1和 Line2。 请用名称为 Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求： 圆的顶端距窗体 Form1顶端的距离为 360； 圆的颜色为红色 (红色对应的值为： &H000000FF&或 &HFF&)，如图所示。程序运行时， Shape1将在 Linel和 Line2之间运行。当Shape1的底部到达 Line2时，会自动改
4、变方向向上运动；当 Shape1的顶端到达Linel时，会自动改变方向向下运动。 文件中给出的程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 Sjt4 vbp，包含了所有控件和部分程序，如图所示。其功能如下： 单击 “读数据 ”按钮，可将考生文件夹下 in4 dat文件中的 100个整数读到数组 a中。 单击 “计算 ”按钮，则根据从组合框 Combol中选中的项目，对数组 a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框 Tex
5、t1中。 “读数据 ”按钮的 Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生文件夹 下有一个工程文件 sjt5 vbp。其功能是产生并显示一个数列的前 n项。数列产生的规律是：数列的前 2项是小于 10的正整数，将此两数相乘，若乘积 10，则以此乘积作为数列的第 3项；若乘积 10，则以乘积的十位数为数列的第 3项，以乘积的个位数为数列的第 4项。再用数列的最后两项相乘，用上述规则形
6、成后面的项，直至产生了第 n项。窗体上部从左到右 3个文本框的名称分别为Text1、 Text2、 Text3，窗体下部的文本框名称为 Text4。程序运行时，在 Text1、Text2中输入数列的前两项， Text3中输入要产生的项数 n，单击 “计算 ”按钮则产生此数列的前 n项，并显示在 Text4中。如图所示。 已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 321答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤
7、1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 33所示。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一 个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表 3 34和表 3 35。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Command1 Click() Textl PasswordChar=”当 Pass wordChar属性设置为空时， Text1文本框显示内容 End Sub Private Sub Command2 C1ick() Textl Passwor
8、dChar=”*”当PasswordChar属性设置为 *时，用 *代替 Text1文本框中的字符显示 End Sub Private Sub Command3 C1ick() Text1=”清空文本框 Text1 SetFocusText1获得焦点 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【 操作步骤】 步骤 1：打开本题工程文件，新建一个形状控件，并按表 3 51所示设置属性。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Dim s As Integer， h As Long Priva
9、te Sub Form Load() Timer1 Enabled=True s=40 End Sub Private Sub Timerl_Timer() Shapel Move Shape1 Left， Shape1 Top+s If Shapel Top=Linel.Y1 Then s= 一 s End If If Shape1.Top+Shapel.Height =Line2 Y1 Then圆的底端坐标加上圆的自身高度与 Line2比较 s= 一 s End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。
10、步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 Dim k As Long Dim m As Long Dim q As Long Dim p As Long Dim r As Long Dim n As Long For k=1 To 100 If a(k)Mod 2=0 Then判断是否为偶数 m=m+a(k)偶数之和 q=q+1偶数个数加 1 Else n=n+a(k)奇数之和 p=p+1奇数个数加 1 End If Next k r=Int(m+n) (p+q)+0 5)平均值 m=Int(m q+0 5)偶数平均值 n=Int(n P+0 5)奇数平均值 Selec
11、t CaSe Combol Text Case”所有偶数 ” Text1=m Case”所有奇数 ” Textl=n Case”所有数 ” Textl=r End Select 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Commandl_Click() Text4=” a=Val(Text1) b=Val(Text2) n=Val(Text3) Text4=Text4&a&“” b 文本框 Text4中第
12、二项的内容一定是 b k=2 Do While k n c=a*b k=k+1 If c 10 Then判断乘积是否小于 10 Text4=Text4 “”&c若小于 10，则直接接到 Text4文本末尾 a=b将 b赋给 a成为下一次循环的前一项 b=c将 c作为下一次循环的后一项 Else d=c10当 c大于 10，则取整 Text4=Text4 ” d a=d将十位数作为下一次循环的前一项 k=k+l If k =n Then 当 k n时，则数列数已够，不用求下一项 d=c Mod 10 Text4=Text4 ” d b=d 将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
