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

15 查阅

[问答题] 在考生文件夹下有一个工程文件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选项内容字符串[,索引值]。此方法可将某个字符串作为选项内容插入到列表框数组中的指定位置，由索引值说明该字符串插入到数组中的下标值。如果省略“索引值

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

计算机考试