vb語言程序設(shè)計第十次實驗報告

1、VB 語言程序設(shè)計第十次實驗報告 語言程序設(shè)計第十次實驗報告姓 名：楊曉雪 名：楊曉雪學(xué) 號： 號：120543135實驗日期： 實驗日期：2013/5/23 實驗內(nèi)容： 實驗內(nèi)容：1、設(shè)計一個選課的運行界面如圖所示。它包含 2 個列表框，左邊為已開設(shè)的課程名稱，通過 form_load 事件加入，并按拼音字母排序；當(dāng)單擊某課程名稱后，將該課程加入到右邊的列表框，并在左邊的列表框中刪除該課程。當(dāng)右邊的課程數(shù)已滿 5 門時

2、，不允許再加入，出現(xiàn)如圖所示的界面。表 1 屬性設(shè)置表控件名稱 控件名稱 屬性 屬性Label1 Caption=”供選課課程”Label2 Caption=”我選的課程”List1Llist2代碼 代碼：Private Sub Form_Load()List1.AddItem “大學(xué)計算機基礎(chǔ)“List1.AddItem “C/C++程序設(shè)計“List1.AddItem “VB 程序設(shè)計“List1.AddItem “Web 程序設(shè)計

3、“List1.AddItem “多媒體技術(shù)與應(yīng)用“List1.AddItem “數(shù)據(jù)庫技術(shù)與應(yīng)用“List1.AddItem “網(wǎng)絡(luò)技術(shù)與應(yīng)用“List1.AddItem “硬件技術(shù)基礎(chǔ)“List1.AddItem “軟件技術(shù)技術(shù)基礎(chǔ)“End SubPrivate Sub List1_Click()If List2.ListCount >= 5 ThenMsgBox “超過 5 門課程，不能再選“Exit SubElseList2

4、.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd IfEnd Sub程序運行截圖： 程序運行截圖：Private Sub Command1_Click()Dim min%, max%min = Val(Combo1.List(0))max = Val(Combo1.List(0))imin = 0imax = 0For i = 1 To Combo1.ListCount - 1

5、If Val(Combo1.List(i)) > max Thenimax = imax = Combo1.List(i)ElseIf Val(Combo1.List(i)) < min Thenimin = imin = Combo1.List(i)End IfNext it = Combo1.List(0)Combo1.List(0) = Combo1.List(imin)Combo1.List(imin) = tt =