13问答网 > Option Explicit Private Sub Command1_Click()

Option Explicit Private Sub Command1_Click()

2024-11-22 02:44:34

推荐回答（1个）

回答1：

Option Explicit 
Private Sub Command1_Click()
End'结束程序
End Sub

Private Sub Form_Load()
  With list1
     AddItem ("金融")'给list1控件添加条目
     AddItem ("会计")
     AddItem ("营销")
     AddItem ("管理")
     AddItem ("财政")
     AddItem ("法律")
     AddItem ("旅游")
  End With
End Sub
Private Sub List1_Click()
List2.AddItem list1.Text'把list1的点击条目添加到list2
list1.RemoveItem list1.ListIndex'移除list1中的点击条目
End Sub