1、窗体的标题栏显示“选课界面”，窗体上有两个列表框，左边是List1，右边是List2，其中List2中的列表项按字母顺序升序显示。窗体下方有一个文本框，名为Text1。请你：
1) 写出程序中需要的属性设置。
2) 编写程序，要求单击List1中的某一项时，该项显示在Text1中；双击List1中的某一项时，该项从List1中删除，添加至List2。当List中的内容已满5门时，不允许再添加并提示“超过5门课程，不能再选了！”

Private Sub Form_Load()
List1.AddItem "Visual Basic程序"
List1.AddItem "数据结构"
List1.AddItem "操作系统"
List1.AddItem "硬件技术基础"
List1.AddItem "计算机网络"
List1.AddItem "多媒体技术"
List1.AddItem "c++程序设计"
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub
Private Sub List1_DblClick()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List2.AddItem List1.Text
List1.RemoveItem i
End If
Next
If List2.ListCount >= 5 Then
MsgBox "超过5门课程，不能再选了!"
End If
End Sub 

超过5门课程后，虽然提示了，但还是可以继续添加的。请问怎样解决的呀？？？？？

Private Sub Form_Load()
 List1.AddItem "Visual Basic程序"
 List1.AddItem "数据结构"
 List1.AddItem "操作系统"
 List1.AddItem "硬件技术基础"
 List1.AddItem "计算机网络"
 List1.AddItem "多媒体技术"
 List1.AddItem "c++程序设计"
End Sub
Private Sub List1_Click()
 Text1.Text = List1.Text
End Sub
Private Sub List1_DblClick()
If List2.ListCount >= 5 Then
MsgBox "超过5门课程，不能再选了!"
Else
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
 List2.AddItem List1.Text
 List1.RemoveItem i
End If
Next
End If
End Sub

这位，还有前面问类似问题的那个，是不是你们做一样的作业啊？

谢谢啦。原来是摆放位置搞错了，可能做题目做到过度了，哈哈。

嗯嗯。是的，那个贴我也看过，不过那个 代码有点错误，位置木有弄好。这个就妥妥地啦哈哈