1、VB机试模拟试卷 100及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上绘制一个名称为 Conmmandl、标题为 “输出 ”的命令按钮以及一个名为 Textl的文本框，编写适当的事件过程。程序运行后，如果单击“输出 ”按钮，则在文本框中显示 “模拟考试 ”，如图 701所示。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl vbp。 (2)在 Forml的窗体上绘制一个列表框，名称为 List1，通过属性窗口向列表框中 添加 4个项目，分别为 “Item1”、 “Item2”、“I
2、tem3”和 “Item4”。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项删除掉。程序的运行界面如图 70一 2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vhp，窗体文件名为 si2 frm。 二、简单应用题（ 40分） 2 (1)在窗体上建立一个名称为 Listl的列表框和一个名为 Text1的文本框。编写程序，实现列表框和文本框中项目的交换。要求 List1中的项目按字母升序排列，Text1中的项目按照加入的先后顺序排列。当双击 List1某个项目时，该项目从列表框中消失，并出现在 Text1中。程序运行时的窗体界面如图
3、 2-3所示。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3 vbp与 sj3。 frm。 (2)在考生文件夹下有一个工程文件 sj4 vbp与窗体文件sj4 frm，在 Form1的窗体中有一个标签、两个命令按钮和一个计时器。要求程序运行时实现以下功能：单击 “开始 ”按钮就开始倒计数，每隔 1秒，文本框中的数减 1；单击 “停止 ”按钮，则停止计数，初始计数为 60，当计数到 0时，则重新从60开始倒计数。如图 2-4所示。注意：修改适当的控件的属性，并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其
4、他部分。考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj4 vbp与 Sj4 frm。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在窗体上有一个名称为 Textl的文本框， 3个命令按钮，名称分别是 Commandl、Command2和 Command3，标题分别是 “读入 ”、 “加密转换 ”和 “保存 ”。要求程序运行后，单击 “读入 ”按钮，将文本文件 in5 txt(该文件在考生文件夹下 )中的文本信息读入文本框 Textl中；单击 “加密转换 ”按钮将 Textl中的小写英文字母
5、加密转换，并将转换 (变为大写 )后的结果显示到 Textl中。加密方式是该字母对应字母表中的后一个位置的字母，如 “a”加密后是 “b”，转换方式为转换成加密后的字母对应字母的大写形式。例如，转换前的字母是 “a”，则转换后的是 “B”；单击 “保存 ”按钮，则将转换后的文本框中的文本保存到 out5 txt文件中 (该文件保存到考生文件夹下 )。程序运行的窗体界面如图 117所示。注意：请在有 “?”的地方填入正确的程序代码，然后删除 “?”及代码前的所有注释符号 (即 “”号 )，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。 VB机试模拟试卷 100答案与解
6、析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个 Command控件和一个Text控件添加到窗体上， Command的名称为 Commandl、 Caption属性为 “输出 ”，Text的名称为 Text1、 Text属性为空。双击 Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Text1 Text=“模拟考试 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 ListBox控件添加到窗体上，其名称为 Listl，在其 List属
7、性中添加以下四项： “heml”、 “hem2”、“hem3”和 “Item4”。双击 Listl进入代码窗口，编写如下代码： Private Sub Listl_DblClick()双击 List调用的函数 List 1 RemoveItem Listl ListIndex End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查列表框控件的使用。 列表框控件用于显示可供单一或多个选择的列表项。给列表 框添加列表项既可以在设计阶段通过其 List属性设置加入 (注意每输入完一项后按 Ctrl+Enter键换行再输入下一项 )，也可以
8、在程序运行时通过代码：列表框名 AddItem“项目 ”加入； List(Index)属性用于设置或返回指定索引号的列表项的内容； ListIndex属性用于设置或返回列表框中当前所选列表项的索引号； Sorted属性用于设置或返回列表框中的列表项是否按字母顺序排序，值为 True时保持排序； RemoveItem方法用于删除指定索引号的列表项。 根据题意，新建 “标准 EXE”工程，将一个 List控 件和一个文本框控件添加到窗体上，列表框的名称为 List1， List属性加入以下项 “AAAAA”、 “BBBBB”、 “CCCCC”、“DDDDD”、 “1111”、 “22222”、 “
9、33333”和 “44444”。文本框的名称为 Textl、MuhiLine属性为 True、 ScrollBar属性为 2。双击 Listl进入代码编写窗口补充后的具体代码如下： Private Sub Listl_DblClick() Textl Text=Textl Text+Listl List(Listl ListIndex)+vbCrLf 将选中的项加到Textl中显示 Listl Removehem Listl Listlndex删除选中项 End Sub单击 按钮运行程序，并按要求保存。 (2)本题主要考查计时器控件的使用。计时器是否启用通过 Enabled属性设置，值为 Tr
10、ue时启用，值为 False不启用。启用后间隔多长时间触发一次其 Timer事件由其 Interval属性设置， Interval属性的单位为毫秒缺省值为 0，此时计时器也不启用。根据题意，将一个标签、两个命令按钮和一个计时控件添加到窗体中，标签的名称为 Labell、 Caption属性为 60，命令按钮的名称分别为 Commandl和 Command2， Caption属性分别为 “开始 ”和 “停止 ”， Timer的名称为Timerl。双击 Command1进入代码窗口，补充后的代码如下： Private Sub Commandl_Click()Timerl Interva1=1000
11、 将 Timerl的间隔设为 1秒 End SubPrivate Sub Command2_Click()Timerl Interva1=0将 Timerl的间隔设为 0End SubPrivate Sub Timerl_Timer()Labell Caption=Val(Labell Caption)-1 每个间隔 Labell的计数减 1If Labell Caption=0 ThenLabell Caption=60 当 Labell的计数等于 0时， Labell重新回到 60End IfEnd Sub单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 在
12、原来字符的 ASCII码加上一个整数 (题目要求为 1)转换为其他的字符，然后再将加密后的字符显示在文本框中。这要用到 Chr函数和 Asc函数。Chr函数返回 String，其中包含与指定的字符代码相关的字符。其语法格式为：Chr(charcode)。 charcode是必要参数，是一个用来识别某字符的 Long型。 Asc函数返回一个 Integer，代表字符串中首字母的字符代码。其语法格式为： Asc(string)。string必要的参数，可以是任何有效的字符串表达式。 根据题意，将一个文本框控件和 3个命令按钮添加到窗体中，文本框的名称为 Textl、 Text属性为空，命令按钮的名
13、称分别为 Commandl、 Command2和 Command3， Caption属性分别为 “读人 ”、 “加密转换 ”和 “保存 ”。双击 Commandl进入代码窗口，补充后的具体代码如下： Dim Tel As StringPrivate Sub Commandl_Click()Dim str As String str=“Textl Text=“初始化 Textl的文本 Open App Path&“ in txt“For Input As#l打开文件，进行读取 While EOF(1)=False 判断文件是否读取完 Input#1，str读取文本 Textl Text=Text
14、l Text+strWendClose#1End SubPrivate Sub Command2_Click()Dim str As StringDim tmp As StringDim i As Integerstr=“rel=“Textl Text=“ 初始化 Textl的文本 Open App Path&“in txt“For Input As#1打开文件，进行读取 While EOF(1)=False 判断文件是否读取完 Input#l， str读取文本 For i=1 To Len(str)tmp=Mid(str， i， 1) 将 str中的字符逐个传给 tmp进行判断 If Asc(tmp)=Asc(“a“)And Asc(tmp) 按钮运行程序，并按要求保存。
