1、国家二级 VB机试（上机操作）模拟试卷 246及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 FormI的窗体上画一个文本框，名称为 Textl，字体为 “黑体 ”，文本框中的初始内容为 “程序设计 ”；再画一个命令按钮，名称为 C1，标题为 “改变字体 ”(如图2 168所示 )。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为 “宋体 ”。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjtl frm。(2)在名称为
2、 Forml的窗体卜画一个图片框，名称为 P1，高为 1800，宽为 1600，并放入文件名为 picl bmp的图片 (如图 2 169所示 )。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框中的图片消失。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为sit2 vbp，窗体文件名为 sit2 frm。 二、简单应用题 2 (1)在名称为 Forml的窗体上画一个计时器，其名称为 Timerl；再画一个图像框，其名称为 Imagel，住该图像框中装入一个图形文件 pic ico；然后画一个水平滚动条，其名称为 HScrolll， Min属性值为 100，
3、 Max属性值为 1200， LargeChange属性值为 100， SmallChange属性值为 25，编写适当的事件过程。程序运行后，可以使图像框闪烁，其闪烁速度可以通过滚动条调节。 要求：图像框的闪烁可以通过图像框交替地显示和隐藏来实现。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt3 vbp，窗体文件名为 sit3 frm。 (2)在考生目录下有一个工程文件 sit4 vbp，包含了所有控件和部分程序，如图 2 238所示。要求如下： 利用属性窗口设置适当的属性：为Listl列表框添加三个项目：宋体、黑体、楷体 GB23
4、12； Text1文本框设置初始值为 “计算机 ”； Hscrolll水平滚动条设置最小值和最大值分别为 10、 50。 去掉程序中的沣释符，把程序中的 ?改为正确的内容，完成以下功能：如果在列表框中选择一种字体，然后移动滚动条中的滚动框，则可使文本框中的文字按所选择的宁体显示，并可随着滚动框的移动放火或缩小：如果不选择字体直接移动滚 动框，则显示一个信息框，提示 “请选择字体 ”。 注意：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 (1)在考生文件夹下有工程文件 sjt5 vbp，窗体
5、上有两个标题分别是 “读数据 ”和“统计 ”的命令按钮，请添加一个名称为 Labell、标题为 “回文的个数为 ”的标签和一个名称为 Text1，初始值为空的文本框，如图 2 15所示。程序功能如下： 单击“读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到 变量 s中。 单击 “统计 ”按钮，则统计 in5 dat文件 (该文件中仅含由空格间隔开的字母串 )中回文的个数，并将统计的回文个数显示在 Text1文本框内。 (所谓回文是指顺读与倒读都一样的字符串，如 “recycer”)。 “读数据 ”按钮和 “统计 ”按钮的 Click事件过程已经给出，请完善 Function过程
6、foundhuiwen的功能，实现上述程序功能。 注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，甭则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 246答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 89在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub ClClick() Me Textl Font Name=“宋体 ” End Sub 步
7、骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3-90在窗体中画出控件 并设置其相关属性。 步骤 2：打开代码编辑窗口，编写窗体的双击事件过程。 参考代码： PriVate Sub FormDb Click() P1 Picture=LoadPicture(“”) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-127在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，分别编写计时器的 Time
8、r事件过程和滚动条的 Change事件过程。参考代码： Private Sub HScrolll Change() Timerl IriteFval=HScrolli ValLle End Sub Private Sub TimerlTimer() Imagel Visible=Not Imagel Visible End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的奉题上程文件sjt4 vbp，如表 3 128设置控制的相关属性。步骤 2：打开代码编辑窗口，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参
9、考代码： Text1 FontSize=HScrolll Value Text1 FontName=Listl Text 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，如表 39所示在窗体上画出控件并设置它们的相关属性步骤 2：打开代码编辑窗口，在指定位置编写 foundhuiwen函数的过程。 参考代码： Function foundhuiwen(p As String) foundhuiwerl=True k=Len(p) For i=1 To k 2 If Mid(p， i， 1)Mid(p， k+1一i， 1)ThE foundhuiwen=False Exit For End If Next End Furiction 步骤 3：按键运行程序，先单击 “读数据按钮，再单击 “统计 ”按钮，最后单击窗体右上角关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
