1、VB机试模拟试卷 153及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Framel、标题为 “目的地 ”的框架，在框架中添加三个复选框，名称分别为 Checkl、 Check2,、 Check3，其标题分别是 “上海 ”、 “广州 ”、 “巴黎 ”，其中 “上海 ”为选中状态， “广州 ”为未选状态， “巴黎 ”为灰色状态，如图 1-116所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl fr
2、m。 (2)在名称为Forml的窗体上画一个名称为 PictureI的图片框，其宽和高分别为 1700、 1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件picl bmp，如图 1-117所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击 “确定 ”按钮，则对文本框中
3、的文字做相应的设置，如图 1-140所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已经给出 了所有控件。程序运行时，单击“读入文件 ”按钮，将显示一个 “打开 ”对话框，可以在该对话框中选择考生文件夹下的文本文件 in4 txt，并把该文件的内容显示到 Text1文本框中。要求：
4、请去掉程序中的注释符，并把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，含三个窗体，标题分别为 “启动 ”、“注册 ”、 “登录 ”，运行时显示 “启动 ”窗体，单击其上按钮时弹出对应窗体 进行注册或登录。注册信息放在全局数组 USel“S中，注册用户数 (最多 10个 )放在全局变量n中 (均已在标准模块中定义 )。注册时用户名不能重复，且 “口令 ”与 “验证口令 ”须相同，注册成功则在 “启动 ”窗体的标签中显示 “注册成功 ”，
5、否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在 “启动 ”窗体的标签上显示 “登录成功 ”，否则显示相应错误信息。标准模块中函数 finduscr的功能是：在 users数组中搜索用户名 (即参数 ch)，找到则返回该用户名在 users中的位置，否则返回 O。已经给出了所有控件和程序，但程序不 完整，请去掉程序中的注释符，把 Form2、Form3窗体文件中的 ?改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。 VB机试模拟试卷 153答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标
6、准 EXE”工程。 步骤2：在窗体 FormI中加入一个框架，然后依次在框架中画出三个复选框。 步骤 3：分别设置框架和各复选框的相关属性，其属性及值如表 2-65所示。步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 2-66在窗体中画出图片框并设置其相关属性。步骤 2：打开代码编辑窗口，编写图片框和窗体的单击事件过程。 参考代码： PriVate Sub Form_Click() Picturel Picture=LoadPi cture(“) End Sub Private Sub Picturel_Click() Pi
7、cturel Picture=LoadPicture(“picl bmp“) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 复选框 (CheekBox)组常用于提供多个选项间的多重选择， Value属性值决定每个复选框的选中状态； 0Unchecked为未选， 1Checked为选中， 2一 Grayed为禁用 (以灰色呈现 )。选择某复选框后，该复选框将显示 “”，而取消选择后， “”消失。 本题只需按要求画出框架以及框架中的复选框，并设置其 Value属性。 第 2小题 图片框 (PictureBox)主要用于显示图片 (支持的图形文件有位图 (bm
8、p)、图标(ico)、 Windows元文件 (wmf)或在其上 画图，也可用作其他控件的容器，还可使用 Print方法在其上直接输出文本。 为图片框控件指定图片有两种方法：一是在设计阶段通过 Picture属性设置；二是在程序运行时通过 LoadPicture()图片加载函数加载，其语法为：图片框 Picture=LoadPicture(”图像文件路径 ”1， App Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的 LoadPicture函数为对象的 Picture属性赋值将清除窗体、图片框及图像控件中的图形。 本题需分别在图片框和窗体的 Click事件过
9、程中，用 LoadPicture()函数为图像框加载或清除图片。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的 Click事件过程，代码如下。 参考代码： PriVate Sub Commandl_Click() If Opl Value Then Textl FontName=opl Caption Else If Op2 Va上 ue Then Textl FontName=Op2 Caption End If If Chl Value=l Then T
10、extl FontUnderline=True Else Textl FontUnderline=False End If If Ch2 Value=1 Then Textl Font工 talic=True Else Textl FontItalic=False End If End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 键运行程序，选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮，最后单击窗体右上角的关闭按钮结柬程序。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “
11、?”改为正确的内容。 参考代码： Private Sub Command1_Click() Dim n As Long CDI FileName=“ CDI Filter=“所有文件 |* *|文本文件 |* txt|Word文档 |* doc“ CD1 FilterIndex=2 CDI Action=1 If CDI FileNameO Then Forml Labeu caption=“注册成功 !“ -登录窗体 Form3- If k=0 Then ElseIf Trim$(Text2) 0)，若该用户存在则弹出提示信息，否则进一步检查前后两次输入的密码是否一致，若前后不一致则弹出提示
12、信息，否则通过调用过程 writeusers将该用户名及密码写入数组 users中，并在 “启动 ”窗体的标签 (Forml Labell)中显示 “注册成功 ”。每调用一次过程 writmmers，全局变量 n将记录新增一个用户，即 n=n+l。 在 “登录 ”窗体的 “登录 ”按钮的单击事件过程中，通过调用标准模块中的 finduser函数，检查输入用户是否存在于 users数组中，若不存在 (条件表达式为： k=O)则弹出提示信息，否则进一步检查该用户的密码输入是否正确 (条件表达式为：Trims(Text2)usors(k， 2)，若不正确则弹出提示信息，否则在 “启动 ”窗体的标签 (Forml Labell)中显示 “登录成功 ”。
