【正文】 ? （ 6）“參數(shù)表列”可以含有 0個或多個形式參數(shù)，各參數(shù)之間用逗號隔開，每個參數(shù)具有如下的格式： ? [ Optional ] [{ ByVal | ByRef }][ ParamArray ] 變量名 [()][As 數(shù)據(jù)類。 ? （ 5）如果在 Fuction過程中省略“過程名 = 表達式”或“ Return 表達式”，則過程返回一個默認值。由 Function過程返回的值放在上述格式中的“表達式”中，并通過“過程名＝表達式”把它的值賦給“過程名”。該語句可以出現(xiàn)在過程內(nèi)的任何位置，而且數(shù)量沒有限制。從 Function過程返回調(diào)用程序后，繼續(xù)執(zhí)行調(diào)用它的語句后面的語句。 ? （ 2）和 Sub過程一樣，可以在窗體、模塊、類、接口或結(jié)構(gòu)中定義 Function 過程。格式中的“過程名”、“參數(shù)表列”、“ Private‖、“ Public‖、“ Exit Function‖的含義與 Sub過程中相同。 Str(y))) End Sub 2. 定義 Function過程 Function過程定義的格式如下： [Private][Public] Function 過程名 [(參數(shù)表列 )][As 類型 ] [語句塊 ] [過程名＝表達式 ] [Exit Function] [語句塊 ] [Return] End Function 用上面的格式可以定義一個 Function過程。 Str(x) amp。 ④參數(shù)表列：含有在調(diào)用時傳送給該過程的簡單變量名或數(shù)組名，各名字之間用逗號隔開。各模塊通用的過程一般用 Public定義，在窗體層定義的通用過程通常在本窗體模塊中使用，如果在其他窗體模塊中使用，則應定義窗體的對象。 特別注意： ① Private：表示 Sub過程是私有過程，只能被本模塊中的其他過程訪問，不能被其他模塊中的過程訪問。 ? （ 3） Sub過程不能嵌套。當程序執(zhí)行到 End Sub時，將退出該過程，并立即返回到調(diào)用語句下面的語句。 ? （ 2） End Sub標志著 Sub過程的結(jié)束。 建立過程 1. 定義 Sub過程 通用 Sub過程的結(jié)構(gòu)與前面多次見過的事件過程的結(jié)構(gòu)類似。有時候，多個不同的事件過程可能需要使用一段相同的程序代碼，可以把這一段代碼獨立出來，作為一個過程，這樣的過程叫做“通用過程”（ General procedure），它可以單獨建立，供事件過程或其他通用過程調(diào)用。 Str(p) amp。 GoTo語句的一般格式為： GoTo {標號 | 行號 } 【 例 】 編寫程序，用來計算存款利息。 ? GoTo語句可以改變程序執(zhí)行的順序，跳過程序的某一部分去執(zhí)行另一部分，或者返回已經(jīng)執(zhí)行過的某語句使之重復執(zhí)行。 Str(Int(p + )), , ) End Sub GoTo語句 ? GoTo是早期 BASIC中的語句， Visual 了 GoTo語句，但取消了 OnGoTo語句。 程序如下： Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As ) Handles Dim p As Double = Dim r As Single = Dim n As Integer n = 0 Do Until p = p = p * (1 + r) n = n + 1 ‘或 n+=1 Loop MsgBox(Str(n) amp。 counter) End Sub Do循環(huán)控制結(jié)構(gòu) Do循環(huán)的格式如下： （ 1） Do [語句塊 ] [Exit Do] Loop [While | Until 循環(huán)條件 ] （ 2） Do [While | Until 循環(huán)條件 ] [語句塊 ] [Exit Do] Loop Do循環(huán)語句的功能是：當指定的“循環(huán)條件”為 True或直到指定的“循環(huán)條件”變?yōu)?True之前重復執(zhí)行一組語句（即循環(huán)體）。停止計數(shù)的條件是輸入的字符為“？”，可以用當循環(huán)語句來實現(xiàn)。 PositiveSum, , ) End Sub 當循環(huán)控制結(jié)構(gòu) 當循環(huán)控制結(jié)構(gòu)通過當循環(huán)語句來實現(xiàn)，其格式如下： While 條件 [語句塊 ] [Exit While] End While 【 例 】 從鍵盤上輸入字符，對輸入的字符進行計數(shù)，當輸入的字符為“？”時，停止計數(shù)，并輸出結(jié)果。 Chr(10) amp。 NegativeSum _ amp。 【 例 】 有如下 10個數(shù)： 2, 73, 82, 76, 1, 24, 321, 25, 89, 20 試編寫一程序，打印出其中的每個負數(shù)，分別計算并輸出正數(shù)及負數(shù)的和。例如： For x = 1 to 100 Step 1 Sum = Sum + x Next x 該例從 1到 100，步長為 1，共執(zhí)行 100次 Sum = Sum + x。 For循環(huán)控制結(jié)構(gòu) For循環(huán)也稱 ForNext循環(huán)或計數(shù)循環(huán)。 循環(huán)控制結(jié)構(gòu) ? Visual 結(jié)構(gòu)，包括：計數(shù)循環(huán)（ ForNext循環(huán)）、當循環(huán)（ WhileEnd While循環(huán)）和 Do循環(huán)（ DoLoop循環(huán)）。 （ 6）在情況語句中， Case子句的順序?qū)?zhí)行結(jié)果沒有影響，但是應注意， Case Else子句必須放在所有的 Case子句之后。兩者的主要區(qū)別是： Select Case語句只對單個表達式求值，并根據(jù)求值結(jié)果執(zhí)行不同的語句塊，而塊形式的條件語句可以對不同的表達式求值，因而效率較高。例如： Case Is Lowerbound, 5, 6, 12,Is uperbound Case Is HAN,Mao To Tao （ 4） Select Case語句與 If...Then...Else語句塊的功能類似。例如： Case Is 10 And Is 20 是不合法的。例如： Case Is 5 表示當測試表達式小于 5時，執(zhí)行相應的語句塊。在這種情況下，必須把較小的值寫在前面，較大的值寫在后面，字符串常量的范圍必須按字母順序?qū)懗觥? （ 2）情況語句的執(zhí)行過程是：先對“測試表達式”求值，然后測試該值與哪一個 Case子句中的“表達式表列”相匹配；如果找到了，則執(zhí)行與該 Case子句有關的語句塊，然后把控制轉(zhuǎn)移到 End Select后面的語句；如果沒有找到，則執(zhí)行與 Case Else子句有關的語句塊，然后把控制轉(zhuǎn)移到 End Select后面的語句。例如： Case 2, 4, 6, 8 ② 表達式 To 表達式。 Case語句的一般格式為： Select Case 測試表達式 Case 表達式表列 1 [語句塊 1] [Case 表達式表列 2 [語句塊 2]] ...... [Case Else [語句塊 n]] End Select 說明 （ 1）情況語句中含有多個參量，這些參量的含義分別為： 1. 單行結(jié)構(gòu)條件語句 單行條件語句比較簡單，其格式如下： If 條件 Then then部分 [Else else部分 ] 例如： If X = Y Then MsgBox(X = Y) Else MsgBox(X Y) 2. 塊結(jié)構(gòu)條件語句 塊結(jié)構(gòu)條件語句一般格式如下： If 條件 1 Then 語句塊 1 [ElseIf 條件 2 Then 語句塊 2] [ElseIf 條件 3 Then 語句塊 3] ...... [Else 語句塊 n] End If IIf函數(shù) ? IIf函數(shù)可用來執(zhí)行簡單的條件判斷操作，它是“ If...Then...Else‖結(jié)構(gòu)的簡寫版本， IIf是“ Immediate If‖的縮略。這些語句用來對條件進行判斷，根據(jù)判斷結(jié)果，選擇執(zhí)行不同的操作。 選擇控制結(jié)構(gòu) ? 在日常生活和工作中，常常需要對給定的條件進行分析、比較和判斷，并根據(jù)判斷結(jié)果采取不同的操作。在這一章中，我們將討論順序結(jié)構(gòu)之外的流程控制語句，包括選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)語句。 Visual Basic. NET 程序設計 第 7章 Visual Basic. NET控制結(jié)構(gòu)與過程 內(nèi)容提要 ? 選擇控制結(jié)構(gòu) ? 循環(huán)控制結(jié)構(gòu) ? GoTo語句 ? 過程的建立和調(diào)用 ? 參數(shù)傳遞 ? 可選參數(shù)和可變參數(shù) ? 前面我們設計和編寫了一些簡單的程序（事件過程）。 ? 程序執(zhí)行時，每按一次 Tab鍵，焦點就按順序移動。所謂 Tab順序，就是指用 Tab鍵使焦點在各個控件之間移動的順序。除鼠標外，用 Tab鍵也可以把焦點移到某個控件中。 Tab順序 ? Tab順序是在按 Tab鍵時焦點在控件間移動的順序。 LostFocus事件過程通常用來對更新進行確認和有效性檢查，也可用于修正或改變在 GotFocus事件過程中設立的條件。類似地，在含有多個文本框的窗體中，只有具有焦點的文本框才能接收用戶的輸入。當一個對象具有焦點時，它可以接收用戶的輸入。在這一節(jié)中，我們將介紹如何設置焦點，同時介紹窗體上控件的 Tab順序。 Str(Num_W) amp。 cl amp。 Str(Num_L) amp。 cl amp。 Str(Num_Z) amp。 cl amp。 Chr(10) Dim S As String = 選舉結(jié)果 : amp。在窗體上畫 3個分組框，在第一個分組框內(nèi)畫3個單選按鈕，在第二個分組框內(nèi)畫 3個按鈕，在第三個分組框內(nèi)畫 1個文本框，并把該文本框的 MultiLine屬性設置為 True。 【 例 】 編寫一個“選舉投票”程序。為此，必須先畫出分組框，然后在分組框內(nèi)畫出需要成為一組的控件，這樣才能使分組框內(nèi)的控件成為一個整體，和分組框一起移動。如果把分組框的 Enabled屬性設置為 False，則其標題會變灰，分組框中的所有對象，包括文本框、按鈕及其他對象，均被屏蔽。此外， Name屬性用于在程序代碼中標識一個分組框，而Text屬性定義了分組框的可見文字部分。 Private Sub Form1_Load(ByVal sender As , _ ByVal e As ) Handles = 1000 = Visual = 移動 /停止 = 退出 End Sub Private Sub Timer1_Tick(ByVal sender As , _ ByVal e As ) Handles += 10 = Mod Beep() 39。 設計一個電子表 表 控件屬性設置 ━━━━━━━━━━━━━━━━━━━━━━ 控件 屬性 設置值 ────────────────────── 計時器 Name Timer1 Interval 1000 標簽 Name Label1 BorderStyle Fixed3D 18 AutoSize True ━━━━━━━━━━━━━━━━━━━━━━ Private Sub Timer1_Tick(ByVal sender As , _ ByVal e As ) Handles = TimeOfDay End Sub 【 例 】 用計時器實現(xiàn)控件的移動。 ? 計時器支持 Tick事件。通常 60000毫秒為 1分鐘，如果把 Interval屬性設置為 1000，則表明每秒鐘發(fā)生一個計時器事件。