VB 語言程序設計第十次實驗報告語言程序設計第十次實驗報告 姓姓 名:楊曉雪名:楊曉雪 學學 號:號: 實驗日期:實驗日期:2013/5/23 實驗內容:實驗內容: 1、、設計一個選課的運行界面如圖所示。它包含 2 個列表框列表框vb實驗報告答案,左邊為已開設的課程名稱,通過 事件加入,并按拼音字母排序;當單擊某課程名稱后,將該課程加入到右邊的列表框列表框vb實驗報告答案,并在左邊的列表框中刪除該課程。當右邊的課程數已滿 5 門時,不允許再加入,出現如圖所示的界面。 表 1 屬性設置表 控件名稱 List1 代碼代碼: Sub () List1. "大學計算機基礎" List1. "C/C++程序設計" List1. "VB 程序設計" List1. "Web 程序設計" List1. "多媒體技術與應用" List1. "數據庫技術與應用" List1. "網絡技術與應用" List1. "硬件技術基礎" List1. "軟件技術技術基礎" End Sub Sub () If List2. >= 5 Then "超過 5 門課程,不能再選" Exit Sub Else List2. List1.Text List1. List1. End If End Sub 程序運行截圖:程序運行截圖: 控件名稱屬性屬性 =”供選課課程” =”我選的課程”圖 1 第 1 題運行界面 2、窗體上建立一個簡單的組合框在組合框的文本框輸入數字字符,按回車鍵后加入到組合框的列表框中,如圖所示;單擊“交換”按鈕,將列表框中最小值項目和第 0 個項目交換;最大值項目與最后項目交換,如圖所示。
控件名稱控件名稱 =”交換” 代碼: Sub ( As ) Case Case 48 To 57, 13 Case = 0 End If = 13 Then . .Text .Text = "" End If End Sub 屬性屬性 Sub () Dim min%, max% min = Val(.List(0)) max = Val(.List(0)) imin = 0 imax = 0 For i = 1 To . - 1If Val(.List(i)) > max = imax = .List(i) Val(.List(i)) < min = imin = .List(i)End If Next i t = .List(0) .List(0) = .List(imin) .List(imin) = t t = .List(. - 1) .List(. - 1) = .List(imax) .List(imax) = t End Sub 程序運行截圖: (交換前)