實驗? 選擇結構程序設計

一、實驗目的
(1)掌握邏輯表達式的正確書寫形式。
(2)學會單分支和雙分支結構程序的使用。
(3)學會多分支條件語句的使用。
(4)掌握情況語句的使用，弄清楚情況語句和多分支條件語句的區(qū)別。
二、相關知識
??? 選擇結構也叫做條件分支結構，即根據(jù)條件選擇要執(zhí)行的分支。Visual Basic中常用的條件執(zhí)行語句有：If．．．Then．．．Else．．．Endlf語句；Select Case．．．語句。
1．If．．．Then．．．Else．．．Endlf語句
??? 語句中的判斷條件是數(shù)值表達式或字符串表達式，其運算結果為True或False。
??? 可以使用單行形式來做短小簡單的程序。在單行形式中，按照If．．．Then判斷的結果也可以執(zhí)行多條語句。所有語句必須在同一行上并且以冒號分開，如：
??? If A>10 Then A=A+1：B二B+A：C=C+B
??? 但使用塊形式的情況更多，塊形式具有更強的結構化與適應性，并且通常比較容易閱讀、維護及調(diào)試。Else和Elself子句都是可選項。在If塊中，可以放置任意多個Elself子句，但是都必須在Else子句之前。If塊也可以嵌套。當程序運行到一個If塊時，條件表達式將被測試，如果結果為True，則在Then之后的語句會被執(zhí)行。反之，則每個ElseIf部分的條件表達式會依次計算并加以測試。如果找到某個為Tme的條件時，則其緊接在相關的Then之后的語句會被執(zhí)行。如果沒有一個ElseIf條件表達式為True(或是根本就沒有Elself子句)，則程序會執(zhí)行Else部分的語句。而在執(zhí)行完Then或Else之后的語句后，會從End If之后的語句繼續(xù)執(zhí)行。
2．Select Case．．．End Select語句
??? Select Case．．．End Select語句是多分支語句，其中的判斷條件是任何數(shù)值表達式或字符串表達式。根據(jù)表達式的值，來決定執(zhí)行幾組語句中的其中之一。判斷條件有以下幾種形式：
? ●? 一個或多個表達式，表達式之間用“，”隔開。
? ●? 為某個數(shù)值范圍，格式是：表達式1 To 表達式2
? ●? 為某個關系表達式，格式是：IS<關系符><表達式>

? 圖4-1例1運行結果
三，實驗舉例
(實例1) 輸入一個數(shù)，判斷這個數(shù)的奇偶性。
Private Sub command1_click()
Dim a As Integer
A = InputBox(”輸入一個數(shù)“)
If a mod 2 = 1 Then
??? MsgBox a & ”是奇數(shù)”?
??? Else
??? MsgBox a & ”是偶數(shù)”?????????
??? End lf??????????????????????????????????
??? End Sub
??? 程序運行時，單擊Commandl按鈕，在彈出的對話框中輸入66，單擊“確定”按鈕，消息框提示66是偶數(shù)，如圖4-1所示。
?(實例2)? 判斷你輸入的字符的種類。
??? 若是數(shù)字，則提示為數(shù)字；若是小寫字母，則提示此字母為小寫字母，并將該字母轉換為大寫字母；若為大寫字母，則提示此字母為大寫字母，并將該字母轉換為小寫字母；否則輸出其他字符。
?Private Sub Form_click()
??? Dim a As String*1
??? Dim b As String*1
??? A = InputBox(”請輸入一個字符”)
If? a? <=? ”9”? And a? >=? ”0“? Then
?????? Print a；? ”是一個數(shù)字”
Elseif? a? >=? ”A”? And a? <=? ”Z”? Then
??????? B = Chr(Asc(a)? +32)????????????????????????? ‘也可以寫為b=LCase(a)
??????? Print a； “是一個大寫字母，將”；? a；? ”變?yōu)樾懙淖帜笧椤?；b
Elself? a? >=? ”a”? And? a? <=? ”Z”? Then
??????? B = UCase(a)???????????????????????? ‘也可以寫為b二Chr(Asc(a)? -? 32)
??????? Print a；? ”是一個小寫字母，將“；a；? ”變?yōu)榇髮懙淖帜笧椤?；b
??? ElSe
??????? Print a；? ”是其他字符”
??? End? if
End Sub
分析：通過上面的示例我們知道函數(shù)LCase()和UCase()，它們的作用是將字符串中的大寫字符變?yōu)樾懽址驅(qū)⑿懽址優(yōu)榇髮懽址缓瘮?shù)Chr()和Asc()函數(shù)，它們是將ASCⅡ碼值轉換為對應的字符和求字符串中首字符的ASCⅡ碼值函數(shù)。另外我們也知道了a的ASCⅡ碼值比A的ASCⅡ碼值大32。觀察運行結果。
(實例3)有A，B，C三個數(shù)，要求按由大到小的順序把它們打印出來。
分析：把一組任意數(shù)按大小進行排列是日常工作中經(jīng)常遇到的問題。當碰到的是少量的數(shù)據(jù)要排序時，可以按最基本的方法考慮，將它們一一進行比較。此時，要用到If結構的嵌套形式，嵌套必須完全嵌套，也就是內(nèi)層條件語句必須完全包含在外層條件語句之中。格式為：
??? If<表達式>? Then
??????????? If<表達式>Then
??? <語句塊>
Else

<語句塊>
End? If
???? Else
If<表達式> Then
<語句塊>
Else
<語句塊>
??????????? End? If
End? If
程序如下：
Private Sub Form_click()
??? Dim a As single, b As Single, c As Single
a = InputBox(”輸入A的值：”,”輸入A”)
b = InputBox(”輸入B的值：”,”輸入B”)
c = InputBox(”輸入C的值：”,”輸入C”)
If? a > b? Then
??????? If b > C? Then
??? Print? a，? b，C
Else
??????????? if? a? >? C? Then
??????????????? Print?? a,c,b
??????????? Else
Print? c,a,b
??????? End if
??????? End if
Else
if? a? >? C? Then
??????????? Print?? b,a,c
Else
??????????? if b>C Then
Print b,c,a
Else
Print c,b,a
??????????? End? if
???????? End? if
???? End? if
End Sub