windows程序設計vb電子教案第4章

1、WINDOWS程序設計（VB）上海交通大學網(wǎng)絡教育學院陳澤宇 博士、副教授2第0章 概述（補充） 第1章 緒論 第2章 創(chuàng)建第一個Windows應用程序第3章 數(shù)據(jù)類型、變量和表達式第4章 選擇結構第5章 循環(huán)結構 第6章 數(shù)組 第7章 過程 第8章 類 第9章 菜單與圖形 第10章 文件 第11章 Form窗體和對話框 第12章 Web編程基礎第13章 初步第14章 Web控件 第15章 數(shù)據(jù)訪問 第16章 初步 3第4章 選擇結構4.1 If語句4.2 End語句4.3 ListBox, CheckedListBox和ComboBox控件4.4 自學內容44.1 If語句4.1.1 IfT

2、hen語句4.1.2 IfThenElse語句4.1.3 IfThenElseIf語句4.1.4 嵌套IfThen語句4.1.5 Select Case語句5選擇結構使得程序具有多個分支64.1.1 IfThen語句IfThen語句用來當條件滿足時執(zhí)行某些語句，反之則不執(zhí)行語法：If ThenEnd If其中，條件表達式不可缺少，語句塊可為一條語句，亦可為多條語句IfThen語句亦稱為單分支結構74.1.2 IfThenElse語句兩個分支語法：If ThenElseEnd If8示例（補充）：IfThenElse設有階梯函數(shù) ，輸入x的值，要求輸出y的值。事件處理代碼9Private Sub

3、 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Short x = InputBox(請輸入x的值) If x 0 Then y = 5 Else If x = 0 Then y = 0 Else y = -5 End If End If MsgBox(x = + CStr(x) + , y = + CStr(y)End Sub104.1.3 IfThenElseIf語句分支超過兩個語法：If ThenElseIf ThenE

4、lseEnd If根據(jù)不同的條件表達式的值確定執(zhí)行哪個語句塊不管程序有幾個分支，在執(zhí)行了一個分支后，其余分支不再執(zhí)行11示例（補充）：IfThenElseIf 設有階梯函數(shù) ，輸入x的值，要求輸出y的值。事件處理代碼12Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Short x = InputBox(請輸入x的值) If x 0 Then y = 5 ElseIf x = 0 Then y = 0 E

5、lse y = -5 End If MsgBox(x = + CStr(x) + , y = + CStr(y)End Sub134.1.4 嵌套IfThen語句If語句可以嵌套語法：If ThenIf ThenEnd IfEnd IfIf語句對嵌套的多少是沒有限制的但是嵌套的層數(shù)越多，代碼執(zhí)行起來就會越困難，越容易出錯所以應盡量把嵌套層數(shù)減少144.1.5 Select Case語句Select Case語句可以實現(xiàn)選擇結構程序設計，有時比If語句更加簡單直觀語法：Select Case Case Case Case Else End Select15變量名或表達式可以是所有基本數(shù)據(jù)類型表達

6、式列表與“變量名或表達式”的類型必須相同，可以取下面4種形式：1表達式2一組枚舉表達式（用逗號分隔）3表達式值的范圍（m To n）4Is關系運算符表達式（=、=）將中的結果與各Case子句中的表達式的值進行比較，以決定執(zhí)行哪一組語句塊當有多個Case表達式的值與測試值匹配時，系統(tǒng)執(zhí)行第一個與之匹配的語句16示例（補充）：SelectCase設有階梯函數(shù) ，輸入x的值，要求輸出y的值。事件處理代碼17Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butt

7、on1.Click Dim x, y As Short x = InputBox(請輸入x的值) Select Case x Case Is 0 y = 5 Case 0 y = 0 Case Else y = -5 End Select MsgBox(x = + CStr(x) + , y = + CStr(y)End Sub184.2 End語句End語句用于結束一個程序的運行，可以放在任何事件過程中語法：End作為一個完整的結構（順序、選擇/分支、循環(huán)）、子程序、程序塊，最后一個語句必須用End與對應關鍵詞復合的語句，以示該程序到此結束194.3 ListBox, CheckedList

8、Box和ComboBox控件4.3.1 ListBox控件4.3.2 CheckedListBox控件4.3.3 組合框(ComboBox)的使用4.3.4 一個綜合的例子20可以使用ListBox（列表框）、CheckedListBox（復選列表框）和ComboBox（組合列表框），向用戶提供多個選項214.3.1 ListBox控件ListBox控件用來顯示選項列表，用戶可從中進行選擇一項或選擇多項的操作1. ListBox的屬性2. 程序運行時改變ListBox項221. ListBox的屬性Items屬性：打開“字符串集合編輯器”輸入選項內容SelectionMode屬性：可以讓用戶在

9、列表中選擇多個項One：一次只能選擇一項，不接受多項選擇None：用戶不能在列表框中選擇項MultiSimple、MultiExtended：多項選擇Sorted屬性：決定列表框中的項目在程序運行期間是否按字母順序排列顯示True：按字母順序排列顯示False：按加入的先后順序排列顯示23SelectedIndex屬性：獲取或設置ListBox中當前選定項的從0開始的索引（序號）只能在程序中設置或引用如果沒有選定項，返回值為-1SelectedItem屬性：獲取或設置ListBox中的當前選定項（內容）SelectedIndices屬性：獲取一個集合，包含ListBox中所有當前選定項的從0開

10、始的索引SelectedItems屬性：返回一個集合，包含ListBox中選定的所有項242. 程序運行時改變ListBox項可以利用Item的方法在程序運行期間為ListBox添加新的項目或刪除某一項Add方法：在ListBox后添加一項ListBoxName.Item.Add(“新的表項”)Insert方法：將某一項插入到指定位置ListBoxName.Item.Insert(n,“新的表項”)Remove方法：刪除一項ListBoxName.Item.RemoveAt(n)ListBoxName.Item.Remove(“要刪除的項”)Clear方法：一次將所有項全部刪除25示例：Lis

11、tBox關于ListBox的完整例子事件處理代碼26Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click If TxtNew.Text Then LstboxCourse.Items.Add(TxtNew.Text) End IfEnd SubPrivate Sub BtnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn

12、Remove.Click If LstboxCourse.SelectedIndex = 0 Then LstboxCourse.Items.RemoveAt(LstboxCourse.SelectedIndex) End IfEnd SubPrivate Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click EndEnd Sub274.3.2 CheckedListBox控件CheckedListBox（復選列表框）的使用在本質上與ListBox是

13、一樣的只是選項在列表中顯示的樣式稍有不同，即在每個選項前有一個方框，當要選該項時，單擊前面的方框即可注意屬性SelectedItems和SelectedIndices并不確定哪些項已選中，它們確定哪些項為突出顯示的項如果要確定哪些項被選中，則需要對每一項分別調用方法GetItemChecked，若調用結果為True，表示被選中；反之，則表示未被選中。調用時，采用索引號指定某一項284.3.3 組合框(ComboBox)的使用ComboBox（組合框）控件結合了文本框和列表框二者的特點用于在下拉組合框中顯示數(shù)據(jù)SelectedIndexChanged事件每當用戶改變ComboBox中的選擇時被觸

14、發(fā)294.3.4 一個綜合的例子示例：CourseSelect查看課程選擇專業(yè)選擇課程課程詳細信息設置屬性事件處理代碼控件屬性值ComboBoxNameCmboxSkillDropDownStyleDropDownListItems計算機電氣管理會計ListBoxNameLstboxCourseItems請選擇專業(yè)ButtonNameBtnDetailText課程詳細信息30Private Sub CmboxSkill_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmboxS

15、kill.SelectedIndexChanged LstboxCourse.Items.Clear() BtnDetail.Enabled = True Select Case CmboxSkill.SelectedIndex Case 0 LstboxCourse.Items.Add(離散數(shù)學) LstboxCourse.Items.Add(數(shù)據(jù)結構) LstboxCourse.Items.Add(編譯原理) Case 1 LstboxCourse.Items.Add(電力系統(tǒng)) LstboxCourse.Items.Add(高電壓技術) LstboxCourse.Items.Add(繼電

16、保護) Case 2 LstboxCourse.Items.Add(排隊論) LstboxCourse.Items.Add(管理信息系統(tǒng)) Case 3 LstboxCourse.Items.Add(會計學) LstboxCourse.Items.Add(國際金融) End SelectEnd Sub31Private Sub BtnDetail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDetail.Click If LstboxCourse.SelectedIndex = 0 T

17、hen Select Case CmboxSkill.SelectedIndex Case 0 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(任課教師：陳明；課時數(shù)：64) ElseIf LstboxCourse.SelectedIndex = 1 Then MessageBox.Show(任課教師：王虎；課時數(shù)：64) Else MessageBox.Show(任課教師：李博；課時數(shù)：72) End If Case 1 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(

18、任課教師：李延；課時數(shù)：48) ElseIf LstboxCourse.SelectedIndex = 1 Then MessageBox.Show(任課教師：張訊；課時數(shù)：64) Else MessageBox.Show(任課教師：錢云；課時數(shù)：72) End If32 Case 2 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(任課教師：葉開；課時數(shù)：96) Else MessageBox.Show(任課教師：郭靖；課時數(shù)：32) End If Case 3 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(任課教師：葉云；課時數(shù)：48) Else MessageBox.Show(任課教師：黃容；課時數(shù)：64) End If End Select Else MessageBox.Show(請選擇課程) End IfEnd Sub334.4 自學內容.NET框架的結構框架中主要的兩個部分基礎類庫（Base Class Lib, BCL）通用語言運行時（Common Language Runtime, CLR）34在框架中運行的代碼稱為托管代碼托管代碼是框架的核心概念基于微軟中間語言（Microsoft