1、VB机试模拟试卷 137及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VsualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上用名称为 Shapel的形状控件画一个长、宽均为 1200的正方形。请设置适当的属性满足以下要求： 窗体的标题为 “正方形 ”，窗体最小化按钮不可用： 正方形的边框为虚线 (线型不限 )。运行后的窗体如图 1-7l所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sit1 frm。(2)在名称为 Forml、标题为 “标签 ”的窗体上，画一个名称为 Labell并可自动调整
2、大小的标签，其标题为 “计算机等级考试 ”，字体大小为三号字；再画两个命令按钮，标题分别是 “宋体 ”和 “黑体 ”，名称分别为 Commandl、 Command2。如图 1-72所示。要求：编写两个命令按钮的Click事件过程。程序运行后，如果单击 “宋体 ”命令按钮，则标签内容显示为宋体字体；如果单击 “黑体 ”按钮，则标签内容显示为黑体字体。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体中画一个名称为 Ll的标签，其标题为
3、 “0”， BorderStyle属性为 l；再添加一个名称为 Timerl的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加 l。如图 1-223所示的是程序刚启动时的情况。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt3 vbp，窗体文件名为 sjl3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，要求程序运行后，如果多次 单击列表框中的项，则可同时选择这些项。而如果单击 “显示 ”按钮，则在窗体上输出所有选中的列表项 (如图 1-224所示 )。要求：修改列表框的适当属性，使得运行时可以多选，并
4、去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件。其功能是：单击 “显示 ”命令按钮，则把考生目录下的 in5 txt文件中的所有字符放入Textl(可多行显示 )，如图 1-108所示；如果单击 “统计 ”命令按钮，则统计文本框中字母 A、 B、 C、 D各自出现的次数，并依次放到窗体变量 an、 bn、 cn、血之中 (放在其他变量中将无成绩 )；如果单击 “保存 ”命令按钮，则把统计结果存入考生文件夹下
5、的 out5 txt文件中。文件中已给出了 “显示 ”和 “保存 ”按钮的 Click事件过程。请编写 “统计 ”按钮 Click事件过程。要求：统计每个字母出现的次数时，不区分大小写。注意：不能修改已经给出的程序部分；在结束程序运行之前，必须单击 “保存 ”按钮，把结果存入 out3 txt文件，否则无成绩。最后 把修改后的文件按原文件名存盘。 VB机试模拟试卷 137答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1新建一个 “标准 EXE”工程，在窗体 Forml中加入一个形状控件，其相关属性设置如表 2-36所示。步骤 2：按要求将文件保存至考
6、生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，如表 2-37在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码： PriVate Sub Commandl_Click() Label1 FontName=“宋体 “ End Sub PriVate Sub Command2_Click() Label1 FontName=“黑体 “ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 形状控件 (Shape)提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值
7、，可显示 6种图形： O一矩形、 l一正方形、 2一椭圆、 3一圆、 4一圆角矩形、 5一圆角正方形。 Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。 窗体的标题由其 Caption属性设置，窗体的 MaxButton属性、MinButton属性决定其标题栏是否显示最大化、最小化按钮， True表示显示，False表示不显示。 本题只需按要求建立程序界面并设置窗体和形状控件相关属性即可。 第 2小题 本题需在命令 按钮的单击事件过程中，通过修改标签的 FontName属性值达到修改文本的字体效果。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：
8、新建一个 “标准 EXE”工程，如表 2-13l在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写计时器的事件过程。 参考代码： PriVate Sub Timerl_Timer() L1=L1+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【主要考点】计时器。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，将列表框的 MultiSdect属性值设置为 1-simple。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”将问号 “?”改为正确的内容。 参考代码： For i=0 To 11 ListCount-1 If 11
9、 selected(i)=Trtie Then 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 可借助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时，为使标签中的数每隔 1秒加 1，需将计时器的 Interval属性值设置为 1000毫秒，在命令 按钮的单击事件过程中通过语句 Timcrl Enabled=True启动计时器，在计时器的 Timer事件过程中通过语句 L1=Ll+1实现加 1。 第 2小题 本题原程序设计思路：在 “显示 ”按钮的单击事件过程中，使用 For循环语句逐一判断列表框中的各项是否被选中， If语句的条件表达式为：L1 Selected
10、,(i)=True，用 Print方法将选中的列表项显示在窗体上。为与列表框的项目索引号保持一致，循环变量的初始值应为 0，终值应为 L1 ListCount-1。为使列表框在运行时可以多选，应将其 MultiSelect属性值设置为 1-simple。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： n=Len(Textl) For k=l To n ch=Mid(Textl， k， 1) If UCase(ch)=“A“Then an=an+1 End If If UC
11、ase(ch)=“B“Then bn=bn+1 End If If UCase(ch)=“C“Then cn=cn+1 End工 f If UCase(ch)=“D“Then dn=dn+1 End If Next k Textl=an&“&bn&“&cn&“&dn 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键键运行程序，先单击 “显示 ”按钮，接着单击 “统计 ”按钮，最后单击 “保存 ”按钮。 【试题解析】 “统计 ”按钮的单击事件过程设计 思路：利用 For循环语句和 Mid()函数将文本框中的字符逐一取出，通过 Select Case语句分别判断其是否为字母A、 B、 C或 D，并分别统计到对应的四个窗体变量中。
