第4章成績排序程序ListBox(列表框)控件ListBox(列表框)控件用于顯示一個選項清單，用戶可以從列表框中的一系列選項中選擇一個或多個選項。如果列表框中選項數目超過控件長度，則自動出現垂直滾動條。ListBox常用屬性ListBox控件的常用屬性Items屬性是個集合，用于保存控件上的選項。在設計階段，該屬性可以通過“屬性”窗口中帶有省略號的按鈕來打開“字符串集合編輯器”來進行設置。在運行階段，可以通過Items集合的方法和屬性向ListBox中添加、訪問和刪除選項。

Items屬性

MultiColumn屬性Sorted屬性Text屬性SelectionMode屬性ListBox控件的常用屬性MultiColumn屬性用來表示列表框是否采用為多列顯示。MultiColumn屬性設置為True時，列表框可以顯示為多列。多列列表框控件會顯示水平滾動條。

Items屬性MultiColumn屬性

Sorted屬性Text屬性SelectionMode屬性ListBox控件的常用屬性Sorted屬性用來設置列表框中的選項是否排序顯示。Sorted屬性設置為True時,列表框中的選項自動按字母順序排序。Sorted屬性按字符大小對選項內容進行排序。Items屬性MultiColumn屬性Sorted屬性Text屬性SelectionMode屬性ListBox控件的常用屬性Text屬性返回控件中最后一次選定的文本內容。

Items屬性MultiColumn屬性Sorted屬性Text屬性SelectionMode屬性ListBox控件的常用屬性SelectionMode屬性用來確定用戶如何選擇列表框中的選項。它只能在設計時通過屬性窗口進行設置。SelectionMode屬性的值有：MultiExtendedMultiSimpleNoneOne

Items屬性MultiColumn屬性Sorted屬性Text屬性SelectionMode屬性Items集合的屬性和方法Item屬性

Count屬性Add方法Clear方法Insert方法Remove方法Item屬性代表列表框中的某個選項的內容。訪問ListBox1中的選項的語法格式為：變量名=ListBox1.Items.Item(index)

或變量名=ListBox1.Items(index)其中：index參數代表被訪問的選項在ListBox1中的位置（即索引值）。在列表框中第一個選項的index是0。Items集合的屬性和方法Count屬性用于返回列表框中選項的總數。當列表框中沒有選項時，該屬性值為0。Item屬性Count屬性

Add方法Clear方法Insert方法Remove方法Items集合的屬性和方法Add方法用于向列表框中加入選項。Add方法的語法是：Listbox1.Items.Add(item)其中：item參數是向列表框尾部加入的項目，該參數是對象類型。

Item屬性Count屬性Add方法

Clear方法Insert方法Remove方法Items集合的屬性和方法Clear方法用清除列表框中的所有選項。該方法的語法格式是：ListBox1.

Items.Clear()

Item屬性Count屬性Add方法Clear方法Insert方法Remove方法Items集合的屬性和方法Insert方法用于在某個位置插入選項。該方法的語法格式是：ListBox1.Items.Insert(index,item)其中：Index是新選項的位置，在列表框中第一選項的index是0。Item是要插入的選項。

Item屬性Count屬性Add方法Clear方法Insert方法Remove方法Items集合的屬性和方法Remove方法用于從列表框中刪除選項。該屬性的語法格式是：ListBox1.Items.Remove(Value)其中：Value參數是要刪除選項的內容。Item屬性Count屬性Add方法Clear方法Insert方法Remove方法

InputBox函數InputBox函數是VisualBasic.NET運行時庫的成員，它的功能是生成一個簡易的輸入對話框，在對話框中顯示提示，等待用戶輸入文字或單擊按鈕，然后返回包含文本框內容的字符串。

InputBox函數的運行效果TitlePromptDefaultResponseInputBox函數InputBox函數的語法格式為：變量名=InputBox(Prompt,Title,DefaultResponse,XPos,YPos)

說明：Prompt

是必選參數。字符串表達式，用于顯示提示信息。Title是可選參數。字符串表達式，用于在對話框標題欄中顯示信息。DefaultResponse是可選參數。字符串表達式，用于在文本框中顯示默認信息。MessageBox類MessageBox類用于在程序中顯示消息對話框。MessageBox在顯示對話框時要調用其共享方法Show。Show方法被大量重載，其中最簡單的語法：MessageBox.Show(String)String：字符串表達式，用于顯示提示信息。

循環結構在程序設計中，有時需要反復執行一段相同的代碼，直到滿足一定的條件為止。這需要用循環結構來實現。

VisualBasic支持的循環結構包括：While

Do...LoopFor...NextForEach...NextWhile語句While語句的語法是：Whilecondition[statements]EndWhile

語法說明：condition：循環條件，布爾型，當循環條件為True時執行循環體語句。statements：循環體，當循環條件為True時要執行的語句。While語句執行順序如果循環條件為True，則執行所有的循環體直到EndWhile語句。隨后控制返回到While語句并再次檢查循環條件。如果循環條件仍為True，則重復上面的過程。如果為False，則從EndWhile語句后面的語句開始恢復執行。While條件 循環體EndWhileWhile循環以下代碼是求自然數1~100之和：

Dimi,sumAsIntegerWhilei<=100sum+=Ii+=1EndWhile

Console.WriteLine(sum)最后可以在“輸出”窗口看到結果是5050Do…Loop循環Do…Loop語句的功能是當某個布爾條件為True時或在該條件變為True

之前，重復某個語句塊。Do…Loop語句的語法是：Do{While|Until}condition[statements][ExitDo]Loop

Do[statements][ExitDo]Loop{While|Until}condition語法說明：While：是可選項，不能和Until同時出現，作用是當condition為True時執行循環體，為False退出循環。Until：是可選項，不能和While同時出現，作用是當condition為Fasle時執行循環體，為While退出循環。condition：循環條件，布爾型。Statements：循環體，根據條件而被執行的語句。Do…Loop循環求自然數1~100之和。Dimi,sumAsIntegerDoWhilei<=100sum+=Ii+=1LoopConsole.WriteLine(sum)

Dimi,sumAsIntegerDosum+=Ii+=1LoopWhilei<=100Console.WriteLine(sum)

Dimi,sumAsIntegerDoUntili>100sum+=Ii+=1LoopConsole.WriteLine(sum)Dimi,sumAsIntegerDosum+=Ii+=1LoopUntili>100

Console.WriteLine(sum)

For...Next循環For...Next的語法是：Forcounter=startToend[Stepstep][statements][ExitFor]Next[counter]

語法說明：counter：循環計數器，變量。start：循環初值，表達式，是循環計數器的初始值。end：循環終值，表達式，是循環結束條件。step：步長值，表達式，循環計數器的遞增或遞減值，如果沒有步長值則步長值默認為1。statements：循環體，可以是多條語句，當循環符合條件時執行循環體。For...Next語句執行順序給counter賦值為start。測試counter是否大于end，如果大于則結束循環，并跳至Next后方。如果setp為負數，則測試counter是否小于end，如果小于則結束循環。執行循環體執行Next語句，即counter=counter+step，如果沒有setp值，則執行counter=counter+1。重復(1)~(4)步過程。Forcounter=startToend[Stepstep][statements][ExitFor][statements]Next[counter]使用Exit語句退出循環Exit語句可以從任何分支結構、循環或過程中退出。它立即將執行轉移到最后一個控制語句后面的語句。Exit語句的語法指定要轉移出哪種類型的控制語句。根據前面章節所學的分支和循環結構有下列對應的Exit語句：ExitSelectExitDoExitWhileExitFor數組數組是具有一定順序關系的若干變量的集合體，組成數組的變量稱為該數組的元素。數組元素用數字名后帶括號的下標表示，同一數組的各元素具有相同的數據類型。數組必須先聲明，然后才能使用。數組的聲明數組需要先聲明后使用。聲明一個數組可以通過Dim語句，語法如下：DimArrayName(maxindex)AsType

語法說明：ArrayName是數組的名稱，必須遵循簡單變量的命名規則maxindex是數組的下標上界。如果忽略maxindex，數組的大小是不確定的。Type是數組的數據類型，可以是任何數據類型。在VisualBasic.NET中數組的下標是從0開始的。例如：

Dima(9)asInteger

這個語句聲明了一個名稱為a的數組，共有10個元素。

使用數組使用數組時，數組的元素是由下標（索引）來區分的。對于一個已經聲明過的數組，就可以通過下標來訪問。如：

a(1)=10如果存取一個不存在的數組元素就會產生錯誤。如：

Dima(4)AsLong a(10)=10

將會拋出一個“索引超出了數組界限”的異常。

多維數組通過多個下標值可以聲明多維數組，聲明格式為：

Dim數組名（一維下標,二維下標,…..）例如，要創建一個第一維有4個元素，第二維有3個元素的二維數組，聲明如下：

DimArr(3,2)AsInteger

這個數組共有12個元素，從a(0,0)到a(3,2)。各個元素排列方式如下。

Arr(0,0)Arr(0,1)Arr(0,2)Arr(1,0)Arr(1,1)Arr(1,2)Arr(2,0)Arr(2,1)Arr(2,2)Arr(3,0)Arr(3,1)Arr(3,2)初始化數組就像變量可以在同一行聲明與初始化一樣，數組也可以在聲明的同時對數組元素進行初始化。例如：

Dimname()AsString={“張三”,”李四”,”王五”}數組會根據聲明之后大括號中的元素個數自動確定元素個數。此時name(0)存放的是“張三”，

name(1)存放的是“李四”，

name(2)存放的是“王五”。

共有3個元素。Array類所有的數組都是由System命名空間的Array

類繼承而來，且可以在任何數組上訪問System.Array

的方法和屬性。Array類的常用屬性Length屬性Rank屬性Length屬性用于獲取數組中的所有元素總數。例如：Dima(9)asIntegerConsole.Write(a.Length)在輸出窗口中可看到結果是10。

Array類的常用屬性Length屬性Rank屬性Rank屬性用于獲取數組的秩（維數）。例如：Dima(9)asIntegerConsole.Write(a.Rank)在輸出窗口中可看到結果是1。Array類的常用方法GetUpperBound方法Sort方法GetUpperBound方法用于獲取數組某一維的上限。第一維是0第二維是1，依此類推。Array類的常用方法GetUpperBound方法Sort方法Sort方法的用于對一維數組對象中的元素進行排序。

Sort方法是Array類的共享方法。Sort方法的最簡單形式如下:

Array.Sort(a)

以上語句實現對a數組進行排序操作。過程VisualBasic.NET應用程序是由若干個過程組成的，我們編寫程序時，大量的工作是編寫過程。在VisualBasic.NET中有兩種類型的過程：Sub過程（又稱子程序）Function過程（又稱函數）過程對實現重復性的任務很有用，通過建立過程可以簡化代碼，提高效率。Sub過程定義Sub過程的最簡單的語法是：SubSubName[(arglist)] …EndSub語法說明：Sub關鍵字表明該過程是Sub過程，Sub過程以Sub開頭，以EndSub結束，在Sub和EndSub之間是描述過程操作的語句塊。SubName

是過程名，其命名規則同變量名的命名規則，在程序中通過過程名調用過程。arglist

是參數表包含了調用時傳遞給該過程的參數信息，各參數之間用逗號分隔。EndSub標志著Sub過程的結束。定義Sub過程

Subsum()DimiAsIntegerFori=1To10i=i+1Next

MessageBox.Show(i.ToString)EndSub過程名稱過程中的語句關鍵字關鍵字Sub過程的調用調用Sub過程的語法如下所示：[Call]subname[(arglist)]語法說明：Call關鍵字，是調用過程關鍵字，可以省略。subname過程名，必選項,用于指出調用的是哪一過程。arglist

是參數表包含了調用時傳遞給該過程的參數信息，各參數之間用逗號分隔。Function過程Function過程和Sub過程相似，但Function過程要返回一個結果。Sub過程調用結束后不向調用程序返回信息，而Function過程完成計算并返回結果。Function過程定義Function過程的最簡單的語法是：FunctionFunName[(arglist)][AsTypeName] …

FunName=[Value]ReturnValueEndFunction語法說明：Function過程以Funciton開頭，以EndFunction結束。在Function和EndFunction之間是描述過程操作的語句塊。FunName

是過程名，其命名規則同變量名的命名規則，在程序中通過過程名調用過程。arglist

是參數表包含了調用時傳遞給該過程的參數信息，各參數之間用逗號分隔。TypeName

是Function過程的返回值的數據類型。當函數返回結果時可以通過兩種方式，一種是FunName=[Value]，即函數名=要返回的值。另一種是使用Return語句返回結果。定義Function過程Functionsum()AsIntegerDimiAsIntegerFori=1To10i=i+1NextReturnIEndFunction關鍵字過程中的語句關鍵字返回類型過程名稱過程返回結果也可用Sum=I來實現Function過程的調用調用Function過程的方法是將其名稱和參數放在賦值語句的右邊或表達式中。調用Function過程的語法如下所示：value=FunName[(arglist)]語法說明：FunName

是過程名，必選項,用于指出調用的是哪一過程。arglist

是參數表包含了調用時傳遞給該過程的參數信息，各參數之間用逗號分隔。value保存函數返回值的變量。參數什么是參數呢？例如數學中的Sin函數，大家一定明白Sin(45o)和Sin(60o)的結果并不一樣，如果將Sin看作一個Function過程，我們就能明白，之所以這兩個函數的結果不同，并不是因為它們是兩個不同的函數（函數名都是Sin）,而是因為給函數的參數不同而已。因此參數使過程真正的活了起來。形參和實參在定義Sub和Function過程時，“arglist”中的參數稱為形式參數，簡稱形參。由于形參用于接收數據，因此形參不能是常數。在調用語句中使用的參數稱為“實際參數”，簡稱“實參”，實參可以是變量元素（已聲明的變量、數組元素等）和非變量元素（常數、文本、枚舉、表達式），在調用一個過程時，必須把實參傳遞給過程，完成實參和形參的結合。一般情況下實參按位置次序傳送給形參。FunctionFact(ByVal

nAsInteger)AsLongDimiAsIntegerDimfAsLong=1Fori=1Tonf*=INextReturnfEndFunctionDimresultAsLongresult