vblistbox题创建一个应用程序，界面如图所示，要求：设计窗体含两个列表框List1和List2，其中列表框1代表水果市场，其中包含市场上可买的水果，列表框2代表我的水果篮，两个命令按钮分别

Question

vb listbox题
创建一个应用程序，界面如图所示，要求：设计窗体含两个列表框List1和List2，其中列表框1代表水果市场，其中包含市场上可买的水果，列表框2代表我的水果篮，两个命令按钮分别为“购买”和“退货”可用，“统计”按钮不可用；单击“购买”按钮时，在“水果市场”选定的水果将移入“我的水果篮”显示框内，且“统计”按钮可用；单击“退货”按钮时，将“我的水果篮”选中的水果移回“水果市场”；单击“统计”按钮，“购买”和“退货”按钮不可用，将统计“我的水果篮”中水果种类，并将该种类数显示在弹出的信息提示框中“我的水果篮中有4种水果”其中水果种数是变量，随着每次选去之后的统计不同而不同；确认后返回购买界面；安全卸载。

Answer 1

Private Sub Command1_Click()
If List1.ListIndex > -1 Then
    List2.AddItem List1.List(List1.ListIndex)
    Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
If List2.ListIndex > -1 Then
    List2.RemoveItem List2.ListIndex
End If
End Sub
Private Sub Command3_Click()
Dim s As String, i As Integer
Command1.Enabled = False
Command2.Enabled = False
For i = 1 To List2.ListCount
    s = s & " " & List2.List(i - 1)
Next
MsgBox "购买了" & s
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
List1.AddItem "苹果"
List1.AddItem "橘子"
List1.AddItem "香蕉"
List1.AddItem "梨"
Command1.Caption = "购买"
Command2.Caption = "退货"
Command3.Caption = "统计"
Command3.Enabled = False
Command4.Caption = "退出"
End Sub