Question

VB 关于向 listbox 的 additem 和 removeitem 的问题

有一列表框已有内容 x1,x2,x3,x4
如何编写一个命令按钮的 Click 事件代码，使得单击命令按钮，复制选中的列表框中的内容到列表框底部
如何编写一个命令按钮的 Click 事件代码，使得单击命令按钮，移除选中的列表框中的内容

Answer 1

List1.AddItem List1.Text '复制
List1.RemoveItem List1.ListIndex '移除

Answer 2

Private Sub Command1_Click()
Call Form_Load
List1.Height = 1680
Dim mVC
mVC = Int(List1.Height / 240)

For i = List1.ListCount To mVC
List1.AddItem ""
Next
List1.AddItem "x1"
End Sub

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

Private Sub Form_Load()
List1.Clear
List1.AddItem "x1"
List1.AddItem "x2"
List1.AddItem "x3"
List1.AddItem "x4"

End Sub

追问

这是今天的计算机二级 VB 考试的一个题目
不会这么复杂吧