1、VB机试模拟试卷 176及答案与解析 一、基本操作题（ 30分） 1 有一个工程文件 ylc.vbp(相应的窗体文件名为 ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为 Text1的文本框。编写窗体的 MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图 23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为 ylc5.frm。 二 、简单应用题（ 40分） 2 在考生文件夹中有一个工程文件 execise27
2、vbp，相应的窗体为 execise27.frm。在名为 Form1的窗体中有一个名称为 Cmd1的命令按钮 (标题为 “开始倒计数 ”)和一个名称为 Timer1的计时器。请在窗体上绘制一个标签 (名称为 Lab1，标题为 “请输入一个正整数 ”)、一个文本框 (名称为 Text1，初始内容为空白 ) (如下图所示 )。已经给出了相应的事件过程。 程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔 1秒减 1(倒计数 )：当减到 0时，倒计数停止，清空文本框，并把焦点移到文本框中。 要求： 去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容，使其能
3、正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题（ 30分） 3 在窗体 Form1上建立 3个菜单 (名称分别为 vbRead、 vbCalc和 vbSave，标题分别为 “读数 ”、 “计算 ”和 “存盘 ”)，然后绘制一个文本框 (名称为 Text1， MultiLine属性设置为 True， ScrollBars属性设置为 2)，如下图所示。 程序运行 后，如果执行 “读数 ”命令，则读入 in45.txt文件中的 100个整数，放入一个数组中，数组的下界为 1；如果执行 “计算 ”命令，则把该数组中下标为奇数的元素在文本框中显示出来
4、求出它们的和，并把所求得的和在窗体上显示出来；如果执行 “存盘 ”命令，则把所求得的和存入考生文件夹下的 out45.txt文件中。 在考生文件夹下有一个工程文件 execise45.vbp，考生可以装入该文件。窗体文件 execise45.frm中的 ReadData过程可以把 in45.txt文件中的 100个整数读入 Arr数组中；而 WriteData过程可以把指定的整数值写到考生文件夹指定的文件中 (整数值通过计算求得，文件名为 out45.txt)。 注意： 考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 execise45.vbp，窗体文件名仍为 execise4
5、5.frm。 VB机试模拟试卷 176答案与解析 一、基本操作题（ 30分） 1 【正确答案】 1操作步骤 (1)在 Visual Basic集成环境选择 “文件 ”“ 打开工程 ”命令，在对话框中选择ylc5.vbp工程文件，单击 “确定 ”按钮打开。 (2)在工具箱中选择 ListBox控件，在窗体上创建该控件，命名为 List1。在工具箱中选择 TextBox控件，在窗体中创建并命名为 Text1，标题为空。 2行为编码 在代码窗口选择 Form对象的 MouseDown事件，其行为代码如下： Private Sub Form MouseDown(Button As Integer， S
6、hift As Integer， _ X As Single， Y As Single) Select Case Button 若按下的是鼠标左键 Case 1 将文本框中的内容加入列表框 List1.Addltem， (Text1.Text) 清空文本框 Text1. Text=“ “ 若按下的是鼠标右键 Case 2 删除列表框中与文本框相同的内容 For i=0 To List1.ListCount-1 If List1.List(i)=Text1.Text Then List1.Removeltem(i) Exit For End If Next i End Select End Sub 3存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 ylc5.vbp，窗体文件名为 ylc5.frm。 【试题解析】 (1)本题考查考 生对 ListBox控件的属性控制和操作，特别对鼠标按键的控制进行了仔细的考查。 (2)注意使用 ListBox控件的 AddItem、 RemoveItem方法、鼠标消息的控制。 (3)本题是根据键码的值，使用 Select语句来判断按下的是鼠标左键或右键。 二、简单应用题（ 40分） 2 【正确答案】 三、综合应用题（ 30分） 3 【正确答案】
