Question

Option Explicit Private Sub Command1_Click()

End
End Sub

Private Sub Form_Load()
With list1
AddItem ("金融")
AddItem ("会计")
AddItem ("营销")
AddItem ("管理")
AddItem ("财政")
AddItem ("法律")
AddItem ("旅游")
End With
End Sub
Private Sub List1_Click()
List2.AddItem list1.Text
list1.RemoveItem list1.ListIndex
End Sub
求问各位大神，初学者，vb作业，实在是搞不懂，，，，没有财富值了，希望可以有愿意帮忙的，谢谢大家
这个显示子程序或函数未定义是什么问题，，，

Answer 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

追问

这个显示子程序或函数未定义，要怎么改‘
、

追答

在窗体上添加List1和List2

追问

是用listbox画俩吗，我画了啊

追答

是画两个一个叫list1
从你的程序上看list1不存在。