问答题
在窗体Form1上画一个列表框，名称为List1，有“Item1”、“Item2’、“Item3”和“Item4”四个表项。要求编写适当的程序代码，当双击列表中某一项时，弹出一个对话框提示“是否删除”。对话框中只有“是”与“否”两个选择按钮，单击按钮，则继续当前的操作。程序运行时的窗体界面如下图所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
【正确答案】MsgBox()函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为：MsgBox(prompt[,buttons][,title])。其中，prompt参数为消息框的提示信息；buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式；title参数为消息框标题栏上显示的内容。
根据题意，新建“标准EXE”工程，将一个List控件添加到窗体中，其名称为List1，List属性中添加“Item1”、“Item2”、“Item3”和“Item4”。双击List1进入代码编写窗口补充后的代码如下：
Private Sub List1_DblClick()
Dim a As Integer
a=MsgBox("是否删除',vbYesNo) '弹出提示对话框
If a=6 Then '6表示选择"是"
List1.Remove Item List1.ListIndex '删除选中项
End If
End Sub
单击
根据题意，新建“标准EXE”工程，将一个List控件添加到窗体中，其名称为List1，List属性中添加“Item1”、“Item2”、“Item3”和“Item4”。双击List1进入代码编写窗口补充后的代码如下：
Private Sub List1_DblClick()
Dim a As Integer
a=MsgBox("是否删除',vbYesNo) '弹出提示对话框
If a=6 Then '6表示选择"是"
List1.Remove Item List1.ListIndex '删除选中项
End If
End Sub
单击
【答案解析】