實(shí)驗(yàn)? 選擇結(jié)構(gòu)程序設(shè)計(jì)

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

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

<語(yǔ)句塊>
End? If
???? Else
If<表達(dá)式> Then
<語(yǔ)句塊>
Else
<語(yǔ)句塊>
??????????? 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