1、VB 机试-试卷 41 及答案解析(总分：4.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.有一个工程文件 ylc.vbp(相应的窗体文件名为 ylc5.frm)，在窗体上画一个名为 List1 的列表框和一个名为 Text1 的文本框。编写窗体的 MouseDown 事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图 23 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc5.vbp，窗体文件名为
2、ylc5.frm。 （分数：2.00）_VB 机试-试卷 41 答案解析(总分：4.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.有一个工程文件 ylc.vbp(相应的窗体文件名为 ylc5.frm)，在窗体上画一个名为 List1 的列表框和一个名为 Text1 的文本框。编写窗体的 MouseDown 事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图 23 所示。注意：存盘时必须存放在考生文件夹下，工
3、程文件名为 ylc5.vbp，窗体文件名为 ylc5.frm。 （分数：2.00）_正确答案：(正确答案：1操作步骤 (1)在 Visual Basic 集成环境选择“文件”“打开工程”命令，在对话框中选择 ylc5.vbp 工程文件，单击“确定”按钮打开。 (2)在工具箱中选择 ListBox 控件，在窗体上创建该控件，命名为 List1。在工具箱中选择 TextBox 控件，在窗体中创建并命名为 Text1，标题为空。 2行为编码 在代码窗口选择 Form 对象的 MouseDown 事件，其行为代码如下： Private Sub Form MouseDown(Button As Inte
4、ger，Shift 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 语句来判断按下的是鼠标左键或右键。
