[问答题] 在考生文件夹下有一个工程文件sjt3.vbp，及其窗体文件sjt3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，

[问答题] 在考生文件夹下有一个工程文件sjt3.vbp，及其窗体文件sjt3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，并在其上移动，则显示“您按下了鼠标的右键”。程序运行时的窗体界面如图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序：1 Private Sub Form_MouseMove(Button As Integer, ShiftAs Integer，X As Single，Y As Single)2 ’If Button=Then Print "您按下了鼠标的左键"3 ’If Button=Then Print "您按下了鼠标的右键"4 End Sub

参考答案：

第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt3.vbp。第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：第一个处填入AddItem。第二个处填入L1.ListIndex。第三步：填写完毕，调试成功后，以原文件名保存。AddItem方法用于在程序代码中向列表框中添加一个选项。具体格式为：列表框名.AddItem选项内容字符串[,索引值]。此方法可将某个字符串作为选项内容插入到列表框数组中的指定位置，由索引值说明该字符串插入到数组中的下标值。如果省略“索引值”则文本被放入列表框的尾部。此方法只能每次向列表框中加入一个选项。RemoveItem方法用来删除列表框中指定的项目，其格式为：列表框.RemoveItem索引值。使用RemoveItem方法后从列表框中删除以“索引值”为地址的项目，该方法每次只能删除一个项目。ListIndex属性的设置值是已选中的表项的位置。表项位置由索引值指定，第1项的索引值为0，第2项为1，依次类推。如果没有选中任何项，ListIndex的值为-1。在程序中设置ListIndex后，被选中的条目反相显示。在本题中要求单击按钮后，将文本框中的内容添加到列表框中，因此要使用列表框的AddItem方法。当单击列表框中的某一项时立即将该项删除，就要使用列表框的RemoveItem方法，索引值是选中项的索引值，因此用ListIndex表示。

问题解析:

本题主要考查列表框的AddItem和RemoveItem方法的使用和ListIndex属性的概念。