實驗? 選擇結構程序設計

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

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