1、国家二级 VB机试（上机操作）模拟试卷 63及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画一个名称为 Picturel的图片框 (PictureBox)，高、宽均为 1000。在图片框内再画一个有边框的名称为 Imagel的图像框 (Image)。并通过属性窗口把考生目录下的图标文件 POINTll(香蕉图标 )装入图像框 Imagel中，如图 3-116所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的
2、窗体上画一个名称为 Command1、标题为 “保存文件 ”的命令按钮，再画一个名称为 CommonDialogl的通用对话框。 要求： 通过属性窗口设置适当的属性，使得运行时对话框的标题为 “保存文件 ”，且默认文件名为 out2； 运行时单击 “保存文件 ”按钮，则以 “保存对话框 ”方式打开该通用对话框。如图 3-117所示。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件 名为 sjt2 frm。 二、简单应用题 3 在考生目录下有一个工程文件 sjt3 vbp。窗体上有个钟表图案，其中代表指针的直线的
3、名称是 Line1，还有一个名称为 Labell的标签，和其他一些控件，如图 3-118(a)所示。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置，如图 3-118(b)所示；若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 3-118(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示 “鼠标位置不对 ”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注 释符，把程序中的 ?改为正确的内容。程序中的 oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上 (判断结果略有误差 )，是则返回 True，否则返回 False。符号常量 x0、 y0是圆心
4、距窗体左上角的距离；符号常量 radius是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 4 在考生目录下有一个工程文件 sjt4 vbp，窗体如图 3-119所示。其功能是单击“输入数据 ”按钮，则可输入一个整数 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机试（上机操作）模拟试卷 63答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按照要求画出控件并设置属性即可，注意图像
7、框要画在图片框内部。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 控件基本操作、图形控件。 2 【正确答案】 审题分析 通用对话框的默认文件名由 FileName属性设置，标题由 DialogTitle属性设置。本题可在 “保存文件 ”的单击事件过程中，用语句通过调用通用对话框的 ShowSave方法或通过设置其 Action属性值为 2，使其以 “保存对话框 ”方式打开。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的“部件 ”对话框的列表中选中 “MicroS
8、oft Common Dialog Control6 0”项目，单击 “确定 ”按钮。 步骤 2：在窗体： Form1上画一个通用对话框和一个命令按钮并设置相关属性。 步骤 3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。 PriVate Sub Command1_Click() CommonDialog1 Action=2 或 Common Dialog1 showsave End Sub 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 通用对话框。 二、简单应用题 3 【正确答案】 审题分析 本题源程序在 Form MouseDown事件过程中，先通过调用函数 oncircle
9、(X， Y)以判断鼠标单击的位置是否在圆的边线上，若在边线上，则接着判断当前按下的是否为鼠标左键，若为左键，则将直线 Line1的终点位置设置为当前鼠标单击的位置，故第一个 ?处应改为： Y；若当前按下的不是左键，则直线 Line1的终点位置设置为其原始位置，即 Line1 X2=Line1 X1、 Line1 Y2=y0-750。若鼠标单击的位置不在圆的边线上 ，则在标签上显示相关信息，故第 4个 ?处应改为：Label1 Caption。 操作步骤 步骤 1：打开本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： Line1
10、Y2=Y Line1 x2=Line1 X1 Line1 Y2=y0750 Label1 Caption=“鼠标位置不对 “ 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 图形控件、键盘和鼠标事件。 4 【正确答案】 审题分析 本题源程序中，自定义函数 f的功能是进行 n!阶乘运算，它通过。 For循环连续n次将循环变量 k的值乘以累积变量 s(第一个 ?处 s初值应为 1)来实现，作为函数返回值第二个 ?处应改为： s。 在 “计算 ”按钮的单击事件过程中，根据程序所要计算表达式的特点，源程序利用一个 For循环依次计算表达式中各项的值并将其累加入变量 s，计算表达式中各项的值通过调
11、用自定义函数 f(k)来实现的，最终计算结果显示在文本框中。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： s=1 f=s 步骤 2：双击 “计算 ”按钮，编写该按钮的单击事件过程。 参考代码： Private Sub Command2_Click() Dim s As Long， k As Integer 考生应编写的程序 s=0 For k=1 To n s=s+f(k) Next Text1=s End Sub 步骤 3：按 键运行程序，单击 “输入数据 ”按钮，通过输入框输入一
12、个 8 12之间的整数，然后单击 “计算 ”按钮计算结果，最后单击 “存盘 ”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 For循环结构、 Sub过程和函数过程。 三、综合应用题 5 【正确答案】 审题分析 本题源程序在 “注册 ”窗体的 “确定 ”按钮的单击事件过程中，先判断是否输入用户名，若没有输入则弹出提示信息，否则通过调用标准模块中的 fmduser函数，检查输入用户是否存在于 users数组中 (条件表达式为： fmduser(Trim$(Text1) 0)，若该用户存在则弹出提示信息，否则进一步检查前后两次输入的密码是否一致，若前后不一致则弹出提示信息，否
13、则通过调用过程 writeusers将该用户名及密码写入数组 users中，并在 “启动 ”窗体的标签 (Form1 Labell)中显示 “注册成功 ”。每调用一次过程 writeusers，全局变量 n将记录新增一个用户，即 n=n+1。 在 “登录 ”窗体的 “登录 ”按钮的单击事件过程中，通过调用标准模块中的 finduser函数，检查输入用 户是否存在于 users数组中，若不存在 (条件表达式为： k=0)则弹出提示信息，否则进一步检查该用户的密码输入是否正确 (条件表达式为：Trims(Text2) users(k,2)，若不正确则弹出提示信息，否则在 “启动 ”窗体的标签(Form1 Label1)中显示 “登录成功 ”。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： -注册窗体 Form2- n=n+1 ElseIf flnduser(Trim$(Text1) 0 Then Form1 Label1 Caption=“注册成功 !“ -登录窗体 Form3- If k=0 Then ElseIf Trim$(Text2) users(k， 2) Then 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 多窗体、 Sub过程和函数过程。
