(1)在考生文件夹下有一个工程文件sj3.vbp(相应的窗体文件名为sj3.frm),在窗体上添加一个名称为Listl的列表框和一个名称为Text1的文本框,如图42—4所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标左键单击窗体,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图42—4所示。这个程序不完整,请把它补充完整,并能正确运行。 注意:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sj4.vbp(相应的窗体文件名为sj4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图42—5所示)。
【正确答案】正确答案:(1)根据题意,新建“标准EXE”工程,将一个列表框控件和一个文本框控件添加到窗体中,列表框控件名称为Listl,文本框控件名称为Textl。双击进入代码窗口,编写如下代码: Private Sub Form MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single) If Button=1 Then Textl.Text=InputBox("请输入要添加的项目") Listl.Addhem Textl.Text End If If Button=2 Then Textl.Text=InputBox("请输入要删除的项目") For i=0 To Listl. ListCount-1 If Listl.List(i)=Textl.Text Then Listl.RemoveItem i End If Next i End If End Sub 单击
【答案解析】