1、国家二级 VB机试（上机操作）模拟试卷 171及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应川程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Frame1、标题为 “目的地 ”的框架，在框架中添加三个复选框，名称分别为 Cheek1、 Cheek2、 Check3，其标题分别是 “上海 ”、 “广州 ”、 “巴黎 ”，其中 “上海 ”为选中状态。 “广州 ”为未选状态， “巴黎 ”为灰色状态，如图 2-83所示。请画控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件 名为 sjt1 vbp，窗体文件名为 s
2、jt1 frm。 (2)在名称为 Forml的窗体上画一个名称为 Picturel的图片框，其宽和高分别为 1700、 1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件 picl bmp，如图 2_84所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击 “统计 ”按钮，分别统计输入字符串中大
3、写字母、小写宁母及数字字符的个数，并将统计结果分别显示在标签控件数组 x中，如图2 132所示。在给出的窗体文件夹中已经添加了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)考生文件夹下的 lT程文件 sit4 vbp中有两个名称分别为 List1、 List2的列表框控件，两个名称分别为Commandl、 Command2，标题分别为 “”、 “”按钮，将 Listl中的表项添加到List2中，同时将 Listl清空；单击 “ 三、综合应用题 3 在考生文件夹下有一个上程文件
4、sjt5 vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的 ?改为正确的内容。本程序的功能是：如果单击 “取数 ”按钮，则把考生目录下的 in5 txt文件中的 15个姓名读到数纽 a中，并在窗体上显示这些姓名；当在 Text1中输入一个姓名，或一个姓氏后，如果单击 “查找 ”按钮，则进行查找，若找到，就把所有 与 Text1中相同的姓名或所有具有 Text1中姓氏的姓名显示在 Text2中 (如图 2 101所示 )：若末找到，则在 Text2中显示 “未找到 !”；若 Text1中没有查找内容，则在 Text2中显示 “未输入查找内容 !”。 注意：考生不得修
5、改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 171答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤2：在窗体 Forml中加入一个框架，然后依次在框架中画出二个复选框。 步骤 3：分别设置框架和各复选框的相关属件，其属性及值如表 3 47所示。步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 48在窗体中画出图片框并设置其相关属性。步骤 2：打开代码编辑窗口，编写图片框和窗体的单击事件过程。
6、 参考代码： Private Sub FormClick() Picturel Picture=LoadPicture(”n) End Sub Private Sub PicturelClick() Picturel Picture=LoadPicture(picl bmp”) End Sub 步骤 3：按要求将文件保存下考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=Len(Textl Text) b=AsC(Mid(
7、S， i， 1) Select Case b For i=0 To 2 x(i)=a(i) 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，通过 Listl列表框的 List属性添加四个项同：文本框、标签、命令按钮、单选按钮。 步骤 2：在代码编辑窗 L，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代 码： For i=0 To La ListCount一 1 Lb AddItem La List(i) Next La Clear 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的奉题工程文件 sjt5 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为止确的内容。 参考代码： Ciose#1 n=Len(Textl Text) If Left(a(k)， n)=Textl Text Then C=C+” ”+a(k) TeXt2 TeXt=C 步骤 2：按要求将文件保存下考生文件夹中。
