vb語(yǔ)言程序設(shè)計(jì)第十次實(shí)驗(yàn)報(bào)告

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

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

3、“List1.AddItem “多媒體技術(shù)與應(yīng)用“List1.AddItem “數(shù)據(jù)庫(kù)技術(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程序運(yùn)行截圖： 程序運(yùn)行截圖：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 =