在窗体上画一个列表框 一个命令按钮和一个标签。程序运行后 在列表框中选择一个项目 然后单击命令按钮
在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。 下面是实现上述功能的程序，请填空。 Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1=【 】 If L1 ＞=0 Then List1.RemoveItem【 】 Labell.Caption=【 】 Else MsgBox("请选择要删除的项目") End If End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
482***263
2023-07-21 21:58:15
正确答案：List1.ListIndex L1 List1.ListCount
本题提供的程序包括两个事件过程，其中FormLoad事件过程用来向列表框中添加项目，而Command1_Click事件过程删除列表框中被选择的项目，并在标签中显示列表框当前的项目数，需要填空的代码在这个事件过程中。为了删除列表框中指定的项目，可以使用RemoveItem方法，其格式为：列表框名称．RemoveItem索引值其中的“索引值”是项目的地址，列表框中的项目从0开始计数，被选择的项目索引值就是列表框的ListIndex属性。为了删除列表框中被选择的项目，必须先确定该项目的索引值，即列表框的ListIndex属性，然后就可以用RemoveItem方法将其删除。本题中的第1个空是被选择的项目索引值，应为List1.ListIndex，并将它赋给变量L1；第2个空是RemoveItem方法的参数，即“索引值”，由于该值已保存在变量u中，因此应填入L1第3个空是列表框中当前的项目数，它就是列表框的ListCount属性。
相似问题
下述语句段在运行时的显示结果是【 】。 Cls x=34 + 8 Print Len(x)请帮忙给出
下述语句段在运行时的显示结果是【 】。 Cls x=34 + 8 Print Len(x)请帮忙给出正确答案和分析，谢谢！
运行下列程序： Dim t As Integer Private Sub Form_Click()
运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Priva
窗体上有4个文本框控件数组text1()和一个命令按钮 程序运行前如左图所示 程序运行后如右图所示。
窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。 Dim x(3)As
以下程序的功能是 产生10个0～1000的随机整数 放入数组Arr中 然后输出其中的最大值。请完善下
以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请完善下列程序。 Option Base 1 Private Sub Form_Click()
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析 谢谢！
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析，谢谢！
