1、国家二级 VB机试（上机操作）模拟试卷 133及答案与解析 一、基本操作题 1 在名称为 Form1的窗体上添加一个名称为 Picture1的图片框 (PictureBox)，高、宽均为 1000。在图片框内再添加一个有边框的名称为 Imagel的图像框 ( Image)。并通过属性窗口把考生文件夹下的图标文件 Point11(香蕉图标 )装入图像框 Image1中，如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 2 在名称为 Form1的窗体上添加一个名 称为 Command1、标题为 “保存文件 ”的命令按钮，再添加
2、一个名称为 CommonDialog1的通用对话框。要求： 运行时单击 “保存文件 ”命令按钮，则以 “保存文件 ”方式打开该通用对话框，如图所示。 通过属性窗口设置适当的属性，使得程序运行时对话框的标题为 “保存文件 ”，且默认文件名为 out2。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有个钟表图案，其中代表指针的直线的名称是 Line1，还有一个名称为 Label1的标签和其他一些控件 (如图 1
3、所示 )。在程序运行时，若用鼠标右键单击圆的边线，则指针恢复到起始位置 (如图 1所示 )；若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置 (如图 2所示 )；若鼠标左键或右键单击其他位置，则在标签上输出 “鼠标位置不对 ”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。程序中的 oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果 略有误差 )，是则返回 True，否则返回 False。符号常量 x0、 y0是圆心距窗体左上角的距离；符号常量 radius是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后
4、将修改后的文件按原文件名存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp，窗体如图所示。其功能是单击 “输入数据 ”按钮，则可输入一个整数 n(要求： 8n12)；单击 “计算 ”按钮，则计算1!+2!+3!+n! 的值，并将计算结果显示在文本框中；单击 “存盘 ”按钮，则把文本框中的结果保存到考生文件夹下的 out4 dat文件中。文 件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “计算 ”按钮的 Click事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最
5、后将修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，含三个窗体，标题分别为 “启动 ”、“注册 ”、 “登录 ”，程序运行时显示 “启动 ”窗体，单击窗体上按钮时弹出对应窗体进行注册或登录。 注册信息放在全局数组 users中，注册 用户数 (小于或等于 10个 )放在全局变量 n中(均已在标准模块中定义 )。 注册时用户名不能重复，且 “口令 ”与 “验证口令 ”必须相同，注册成功则在 “启动 ”窗体的标签中提示 “注册成功 ”，否则提示相应错误信息。登录时，检验用户名和口令，若正确，则在 “启动 ”窗体的标签上提示 “登录成功 ”，否则提示
6、相应错误信息。 标准模块中函数 finduser的功能是：在 users数组中搜索用户名 (参数 ch)，找到则返回该用户名在 users中的位置，否则返回 0。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、 Form3窗体文件中的 ?改为正确的内容。 注意：不得修改已经存在的程序和控件的属性；最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 133答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 3 45。步骤 2：调试并运行程序，关闭程序后按题目要求
7、存盘。 2 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照题目要求建立控件及属性，如表 3 46所示。 步骤2：打开代码编辑窗口，在指定位置编写如下代码 。参考代码 Private sub Command1_Click()CommonDialog1 ShowSave显示 “保存文件 “对话框 End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考代码 Const y0&=1110， x0&=1100， radius&=750 Private F
8、unction oncircle(X As Single， Y As Single)As Boolean precision=55000 Tf Abs(X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius) precision Then判断鼠标单击的位置是否在圆边上 oncircle=True Else oncircle=False End If End Function Private Sub Form_MouseDown(Button As Tnteget， Shift as Integer， X As Single， Y As Single) Const LE
9、FT_BUTTON=1 If oncircle(X， Y)Then调用 oncircle函数判断鼠标单击的位置 Line1 X1=x0 Line1 Y1=y0 If Button=LEFT_BUTTON Then Line1 X2=X Line1 Y2=Y 直线另一端的 y坐标为鼠标当前的 y值 Else Line1 X2=Line1 X1 直线回到初始位置 x不变 Line1 Y2=y0-radius& y2为原先坐标减去半径的值 End Tf Label1 Caption=“ Else否则 Label1显示位置不对 Label1=“鼠标位置不对 “ End If End Sub 程序结束
10、步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容，并编写相应代码。参考代码 (画下划线部分是需填入的内容 )Dim n As IntegerPrivate Sub Command1_Click()n=Val(InputBox(“请输入 整数 (812)“， “输入 “)If n 12Or n8Then确定输入值最大为 12，最小为 8，否则提示错误 NsgBox(“数据错误，请重新输入 “)Command2 Enabled=FalseCommand3 Enab
11、led=False两按钮不可用ElseCommand2 Enabled=TrueCornmand3 Enabled=True两按钮可用 End IfEnd SubPrivate Sub Command2_Click()Dim s As Long， k As Integer考生应编写的程序s=0For k=1 To ns=s+f(k)Next kText1=s编程结束 End SubFunction f(n As Integer)As Longs=1初始化 S为 1For k=2 To n循环求 n的阶乘 s=s*kNextf=s返回阶乘结果 End FunctionPrivate Sub Co
12、mmand3_Click()Open App Path&“ out4 dat“For OutputAs#1Print#1， n， Text1Close#1End Sub步骤 3：调试并运行程序，关闭程序后按题目 要求存盘，如图 3 31所示。三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Form2窗体代码 Private Sub Command1 Click()清空重置 Text1=“ Text2=“ Text3=“ End Sub Sub wr
13、iteusers()向数组 users中写入新用户信息 n=n+1用户数目自增 users(n， 1)=Text1保存用户的用户名、密码 users(n， 2)=Text2 End Sub Private Sub Command2_Click() If Text1=“Then MsgBox(“必须输入用户名 !“) Text1 SetFocusText1重新获得焦点 ElseIf finduser(Trim$(Text1) 0Then 如找到相同名，则返回位置一定大于 0 MsgBox(“此用户名已经存在 !“) ElseIf Text2 Text3 Then比较口令与验证口令是否 相同 Ms
14、gBox(“口令验证错误 !“) Else writeusers Form1 Label1=“注册成功 !“ 当注册成功后 Label1显示成功信息 Form2 Hide End If End Sub Form3窗体代码 Private Sub Command1_Click() k=finduser(Trim$(Text1) If k=0Then验证用户名是否存在 MsgBox(“没有注册 !“) ElseIf Trim$(Text2) users(k， 2) Then验证输入的密码是否正确 MsgBox(“口令错误 !“) Else Form1 Label1 Caption=“登录成功 !“ Form3 Hide End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
