求大神解答一下这道vb题的代码

实在是小萌新不会啊，求大佬带一带

2025-04-25 02:01:07

推荐回答（2个）

回答1：

Private Sub Command1_Click()
List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Form_Load()
Randomize
Form1.Caption = "列表框应用"
Command1.Caption = "删除"
Command2.Caption = "清除"
For i = 1 To 8
x = Int(Rnd * 90) + 10
List1.AddItem x
Next i
End Sub

回答2：

这个就是调用列表框控件的 remove 和 clear 。