Question

求助，VB编程！！！！！！

制作一个选课小系统，在左边列表框中显示多门可选课程，要求：1.把用户选中的课程名称加载到右边的列表框中，2.用户不能重复选择同一门课程，3.每个人最多能选择5门可程

Answer 1

这是窗体事件：
Private Sub Form_Load()

List1.AddItem "高数"
List1.AddItem "线代"
List1.AddItem "英语"
List1.AddItem "物理"
List1.AddItem "计算机"
List1.AddItem "概率"
List1.AddItem "近代史"
List1.AddItem "制图"

end sub

这是选课事件：
Private Sub Command1_Click()

Dim flag As Boolean
n = List1.ListIndex
If n < 0 Then
MsgBox "课程未选,请重新选择!", 4 + 16, "提示信息！"
Else
flag = True
For i = 0 To List2.ListCount - 1
If List1.Text = List2.List(i) Then
flag = False
Else
End If
Next
If flag = True Then
If List2.ListCount < 5 Then
List2.AddItem List1.List(n)
Else
MsgBox "所选课程已超过5个!", 4 + 16, "警告！"
End If
Else
MsgBox "所选课程重复选！", 4 + 16, "警告！"
End If
End If

end sub

望采纳！！！