VB程序题：设计一个选课的运行界面如图E.6所示。它包含2个列表框，左边为已开设的课程名称，通过Form1_Load事件加入，并按拼音字母排序；当单击某课程名称后，将该课程加入到右边列表框……龚沛曾

VB程序题：设计一个选课的运行界面如图E.6所示。它包含2个列表框，左边为已开设的课程名称，通过Form1_Load事件加入，并按拼音字母排序；当单击某课程名称后，将该课程加入到右边列表框，并在左边列表框中删除该课程。当右边课程已满5门时，不允许再加入，出现如图E.7所示的界面。

图E.6

解题，代码如下：
Private Sub Form_Load()
    List1.Clear
    List1.AddItem "大学计算机基础"
    List1.AddItem "C/C++程序设计"
    List1.AddItem "VB程序设计"
    List1.AddItem "Web程序设计"
    List1.AddItem "多媒体技术与应用"
    List1.AddItem "数据库技术与应用"
    List1.AddItem "网络技术与应用"
    List1.AddItem "硬件技术基础"
    List1.AddItem "软件技术技术基础"
End Sub

Private Sub List1_Click()
    If List2.ListCount >= 5 Then
        MsgBox ("超过5门课程，不能再选")
        Exit Sub
    Else
        List2.AddItem List1.Text
        List1.RemoveItem List1.ListIndex
    End If
End Sub

图E.7：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/85.html