[问答题] 在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框，如图1所示。编写窗体的Mouse

[问答题] 在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框，如图1所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

参考答案：

[操作步骤]步骤A：打开本题工程文件，按表所列在窗体画出控件并设置其属性。控件列表框文本框属性NameName设置值ListATextA步骤B：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。(阴影部分是需考生填入的内容)Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=A ThenTextA.Text=InputBox("请输入要添加的项目")ListA.AddItem TextA.Text’将TextA中的内容加入列表End IfIf Button=B ThenTextA.Text=InputBox("请输入要删除的项目")’列表总数用ListCount求得For i=0 To ListA.ListCount-A’判断列表项是否为要删除的项If ListA.List(i)=TextA.Text Then’删除i所对应的项ListA.RemoveItem iEnd IfNext iEnd IfEnd Sub程序结束步骤C：调试并运行程序，关闭程序后按题目要求存盘。答案解释:[考点] 本题考点有：列表框的Name、List和ListCount属性，文本框的Name和Text属性，RemoveItem方法，InputBox函数，For循环语句以及If判断语句。当在窗体上按下鼠标键时将触发其MouseDown事件，该事件过程的参数Button值为1时表示当前按下的是鼠标左键；当Button值为2时表示当前按下的是鼠标右键。向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。当执行删除操作时，本题在For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。程序中用到了InputBox()函数，其格式为：InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，context])其中常用参数为prompt和title。prompt是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。title：是一个字符串，它是对话框的标题，显示在对话框顶部的标题区。列表数组List(i)下标从0开始，列表项的循环上限应为ListCount-1，要注意InputBox语句的格式。当在窗体上按下鼠标键时将触发其MouseDown事件，该事件过程的参数Button值为1时表示当前按下的是鼠标左键；当Button值为2时表示当前按下的是鼠标右键。向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。当执行删除操作时，本题在For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。程序中用到了InputBox()函数，其格式为：InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，context])其中常用参数为prompt和title。prompt是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。title：是一个字符串，它是对话框的标题，显示在对话框顶部的标题区。列表数组List(i)下标从0开始，列表项的循环上限应为ListCount-1，要注意InputBox语句的格式。

问题解析:

[考点] 本题考点有：列表框的Name、List和ListCount属性，文本框的Name和Text属性，RemoveItem方法，InputBox函数，For循环语句以及If判断语句。