【正文】 x≥0 True False 例如：計算分段函數(shù) y = 本題在選擇條件時，可以選擇 x0作為條件，也可以選擇 x≥0作為條件。其語句形式為： If 表達(dá)式 1 Then 語句塊 1 ElseIf表達(dá)式 2 Then 語句塊 2 … [Else 語句塊 n+1] End If Visual Basic 首先測試 表達(dá)式 1。 表達(dá)式 1 語句塊 1 表達(dá)式 2 語句塊 2 …… 語句塊 n 語句塊 n+1 表達(dá)式 n 圖 413 多分支結(jié)構(gòu)流程 False True True False True False 語句塊 n+1 語句塊 n 2)2(21)2)(1(11?????????xxxxxxx例 45：利用 If...Then...Else 語句編寫求函數(shù) y = 的值的程序，要求只要在文本框 Text1中輸入自變量 x的值，就在標(biāo)簽欄 label1上顯示函數(shù)值。 將字符串類型轉(zhuǎn)化為雙精度類型 If (x 1) Then y = 1 x ElseIf (x = 1 And x = 2) Then y = (1 x) * (2 x) Else y = (2 x) End If = y 39。 （ 4）獎勵按特等獎、優(yōu)秀獎、特別獎由高到低，不重復(fù)計獎（包括單科）。 設(shè)計步驟如下： （ 1）建立應(yīng)用程序用戶界面 按如圖 419建立四個文本框（ Text1~Text4）接受成績輸入，兩個標(biāo)簽控件（ Label1~Label2），一個命令按鈕 Command1，設(shè)置各控件的屬性，其中Command1的 Caption屬性值為“查詢”?？筛鶕?jù)實際情況選擇采用何種結(jié)構(gòu)。 （ 1）設(shè)計流程圖 根據(jù)題意，畫出如圖 420所示流程圖。如果不止一個 Case與 測試表達(dá)式 相匹配，則只對第一個匹配的 Case 執(zhí)行與之相關(guān)聯(lián)的 語句塊 。試根據(jù)此表編寫程序。Label1~ Label5的 Caption屬性依次為：“請輸入日期”、“月”、“日”、“請輸入訂票數(shù)”、“張”， Label6的 Caption屬性設(shè)計時為空白，運(yùn)行時用來顯示優(yōu)惠率。 Trim()) Select Case strdate Case 428 To 431, 51 To 57, 928 To 931, 101 To 107 If intnn = 30 Then intss = 35 Else intss = 15 Case 71 To 79, 710 To 731, 81 To 89, 810 To 831 If intnn = 30 Then intss = 30 Else intss = 20 Case Else If intnn = 30 Then intss = 25 Else intss = 10 End Select = 您所訂機(jī)票優(yōu)惠率為： amp。 Private Sub Text1_Click() = = = End Sub Private Sub Text2_Click() = End Sub Private Sub Text3_Click() = End Sub 此外，還應(yīng)為每一個文本框的鍵盤按下事件編寫如下代碼，表明當(dāng)按回車鍵時，自動跳到下一個必要的控件： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End Sub 7月 ~8月 30 10 日期 =30 30 =30 30 =30 35 15 30 20 10 4/28~5/7， 9/28~10/7 =30 月 月圖 424機(jī)票優(yōu)惠率計算流程圖 其他 滿足條件 =30 =30 25 30 30 30 10 30 20 35 15 條件函數(shù) 1． IIf 函數(shù) 2． Choose函數(shù) IIf 函數(shù)的功能是根據(jù)表達(dá)式的值，來返回兩部分中的其中一個。當(dāng) strDay的值不在 1~5之間時，返回 NULL。根據(jù)題意和要求可先求出 ...1...2111 222 ???? n （ 1）設(shè)計流程圖 根據(jù)題目要求，設(shè)計出如圖 425所示的流程圖。 控件 Caption屬性值 Label1 運(yùn)算次數(shù) Label2 近似值 Picture1 空白（設(shè)計時） Picture2 空白（設(shè)計時） Command1 求 π 的近似值 表 46 求 π的近似值應(yīng)用程序控件屬性值 （ 3）編寫代碼 根據(jù)流程圖編寫 Command1_click事件的代碼如下： Private Sub Command1_Click() Dim sum As Double, temp As Double, pi As Double Dim i As Double sum = 0 temp = 1 i = 1 圖 426 求 π的近似值的程序運(yùn)行結(jié)果 Do While (temp = ) sum = sum + temp i = i + 1 temp = 1 / i / i Loop pi = Sqr(6 * sum) i 。 （ 1）設(shè)計流程圖 根據(jù)題目要求，設(shè)計出如圖 427所示的流程圖。這種形式保證 循環(huán)體 至少執(zhí)行 1次，其語法格式為： Do 循環(huán)體 Loop [{While | Until} 循環(huán)條件 ] 輸入 m， n m存放大數(shù) ,n存放小數(shù) 輸出 n 求 m/n的余數(shù) m←n 數(shù) n←r 的余數(shù) 例 411：求兩個正整數(shù) m和 n的最大公約數(shù)。 （ 4）最后的 n即為最大公約數(shù)。有時，循環(huán)的次數(shù)是已知的，這時最好使用 For...Next 循環(huán)。 （ 1）設(shè)計流程圖 根據(jù)題意，設(shè)計如圖 434所示流程圖。 j amp。 Private Sub Command1_Click() 循環(huán)嵌套 在一個循環(huán)體內(nèi)又出現(xiàn)另外的循環(huán)語句稱為循環(huán)嵌套。因此，可以用如下嵌套的循環(huán)作為對一個節(jié)點(diǎn)的描述： For i=1 to 9 For j=1 to i 循環(huán)體 Next j Next i 這里， 循環(huán)體 為乘法等式： expss = i amp。 i * j。 j amp。 Next j Next i End Sub 圖 435 乘法九九表（ 2） For Each...Next 循環(huán)與 For...Next 循環(huán)類似，但它對數(shù)組或?qū)ο蠹现械拿恳粋€元素重復(fù)一組語句，而不是重復(fù)語句一定的次數(shù)。例如： 1+11+111+… +111111（此時 n=6）。 b amp。 tn amp。） 分析：三位數(shù) n中的每一位上的數(shù)可以這樣來表述： 百位 i ： i=int（ n/100） 十位 j ： j=n/10i 10 個位 k ： k=n Mod 10 編寫 Command1_click的代碼如下： Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer, n As Integer 圖 437 求水仙花數(shù)程序運(yùn)行情況 For n = 100 To 999 i = Int(n / 100) j = Int(n / 10) i * 10 k = n Mod 10 If n= i * i * i + j * j * j + k * k * k Then Print n。 )( 00xf xf求出 d和新的 x的值 x1。 Val(), x=。求三種短料各多少根，使得所剩材料最少？ Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, sum As Integer Dim n1 As Integer, n2 As Integer, n3 As Integer, temp As Integer Sum = 10000 For c = 13 To 10000 / 177 For b = 17 To 10000 / 133 c For a = 15 To 10000 / 112 b c temp = 10000 c * 177 b * 133 a * 112 If temp = 0 And temp Sum Then Sum = temp: n1 = a: n2 = b: n3 = c End If Next Next Next Print n1=。 a, b=