Question

VB 大神求解啊

Answer 1

类似这样

Answer 2

Private Sub Command1_Click()
  List2.AddItem List1.List(List1.ListIndex)
End Sub

Private Sub Command2_Click()
  For i = 0 To List1.ListCount - 1
    List2.AddItem List1.List(i)
  Next i
End Sub

Private Sub Command3_Click()
  List1.AddItem List2.List(List2.ListIndex)
End Sub

Private Sub Command4_Click()
  For i = 0 To List2.ListCount - 1
    List1.AddItem List2.List(i)
  Next i
End Sub

Private Sub Form_Load()
  List1.AddItem "高数"
  List1.AddItem "英语"
  List1.AddItem "计算机网络"
  List1.AddItem "图形图像"
  List1.AddItem "多媒体"
  List1.AddItem "电子基础"
  List1.AddItem "C程序设计"
  List1.AddItem "C++程序设计"
  List1.AddItem "VB程序设计"
  List1.AddItem "数据库基础"
  List1.AddItem "数据结构"
  List1.AddItem "会计原理"
  List1.AddItem "普通物理"
  List1.AddItem "线性代数"
  List1.AddItem "数据结构"
  List1.AddItem "逻辑代数"
  List1.AddItem "汇编语言"
  List1.AddItem "大学语文"
  List1.AddItem "马列"
End Sub