VB上机练习题二).docVIP

VB上机练习题 二 18、新建一个工程，完成应用程序的设计，具体要求如下： 按照图11所示在窗体上放置按钮和控件； 在两个列表框控件的list中输入一些内容； 单击“ ”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项； 单击“ ”按钮时，把list2中所有的项放到list1中，并且清空list2； 单击“ ”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该项； 单击“ ”按钮时，把list1中所有的项放到list2中，并且清空list1； 单击“结束”按钮时，退出应用程序。 图15 Private Sub Command1_Click If List1.ListIndex -1 Then MsgBox 请选择一项再按键！ Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command2_Click Do Until List1.ListCount 0 List2.AddItem List1.List 0 List1.RemoveItem 0 Loop End Sub Private Sub Command3_Click Do Until List2.ListCount