1、国家二级 VB机试（上机操作）模拟试卷 405及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 Picture1的图片框(PictureBox)，高、宽均为 1000。在图片框内再画一个有边框的名称为 Imagel的图像框(Image)。并通过属性窗口把考生目录下的图标文件 POINT11(香蕉图标)装入图像框Imagel中，如图 3170所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件
2、名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个名称为 Command1、标题为“保存文件”的命令按钮，再画一个名称为 CommonDialog1的通用对话框。 要求：通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为 out2； 运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。如图 3171所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为 Labe11的标签，和其他一些控件，如图
3、 3172(a)所示。 在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置，如图 3172(b)所示；若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 3172(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。 程序中的 oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差)，是则返回 True，否则返回 False。符号常量 x0、y0 是圆心距窗体左上角的距离；符号常量 radius是圆的半径。 注意：不能修改程序中的其他部分
4、和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sjt4vbp，窗体如图 3173所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。 注册信息放在全局数组users中，注册用户数(最多 10个)放在全局变量 n中(均己在标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时
5、，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。 标准模块中函数 finduser的功能是：在 users数组中搜索用户名(即参数 ch)，找到则返回该用户名在 users中的位置，否则返回 0。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把 Form2、Form3 窗体文件中的“?”改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 405答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根
6、据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 Picture1的图片框(PictureBox)，高、宽均为 1000。在图片框内再画一个有边框的名称为 Imagel的图像框(Image)。并通过属性窗口把考生目录下的图标文件 POINT11(香蕉图标)装入图像框Imagel中，如图 3170所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个名称为 Command1、标题为“保存文件”的命令按钮，再画一个名称为 Common
7、Dialog1的通用对话框。 要求：通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为 out2； 运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。如图 3171所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，选择【工程】【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Contro160”项目，单击“确定
8、”按钮。 步骤 2： 在窗体 Form1上画一个通用对话框和一个命令按钮并设置相关属性。 步骤 3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。 Private Sub Command1_Click() CommonDialog1Action2 或 CommonDialog1ShowSave End Sub 步骤 4：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为 Labe11的标签，和其他一些控件，如图 3172(a)所示。
9、 在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置，如图 3172(b)所示；若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 3172(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。 程序中的 oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差)，是则返回 True，否则返回 False。符号常量 x0、y0 是圆心距窗体左上角的距离；符号常量 radius是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后把
10、修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sjt4vbp，窗体如图 3173所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Line1Y2Y Line1X2Line1X1 Line1Y2y0750 Labe11Caption“鼠标位置不对“ 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。
11、参考代码： s1 fs 步骤 2：双击“计算”按钮，编写该按钮的单击事件过程。参考代码： Private Sub Command2_Click() Dim s As Long， k As Integer 考生应编写的程序 s 0 For k1 To n s s f(k) Next Text1s End Sub 步骤 3：按F5键运行程序，单击“输入数据”按钮，通过输入框输入一个 812 之间的整数，然后单击“计算”按钮计算结果，最后单击“存盘”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5
12、vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。 注册信息放在全局数组users中，注册用户数(最多 10个)放在全局变量 n中(均己在标准模块中定义)。 注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。 标准模块中函数 finduser的功能是：在 users数组中搜索用户名(即参数 ch)，找到则返回该用户名在 users中的位置，否则返回
13、 0。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把 Form2、Form3 窗体文件中的“?”改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： 注册窗体Form2 nn1 Else If finduser(Trim$(Text1)0 Then Form1Labe11Caption“注册成功!“ 登录窗体 Form3 If k0 Then Else If Trim$(Text2)users(k，2)Then 步骤 2：按要求将文件保存至考生文件夹中。)解析：
