vb選擇結(jié)構(gòu)程序設(shè)計-文庫吧
2024-12-29 00:59 本頁面
【正文】 ” 。 （ 5） 利用塊 If語句的嵌套可以解決 “ 多分支 ” 選擇的問題 。 【 例 】 建立如圖 53所示的界面 ， 輸入任一點的坐標(biāo) （ X，Y） ， 判斷該點位于哪個象限 。 在平面直角坐標(biāo)系中，點所在的象限有以下 4種情況： X0 ， Y0 點位于第一象限內(nèi) X0， Y0 點位于第四象限內(nèi) X0， Y0 點位于第二象限內(nèi) X0， Y0 點位于第三象限內(nèi) X=0或 Y=0 位于原點 ， 給出提示 “ 該點不在任何象限內(nèi) ” 。 建立界面 ， 分別通過文本框 Text1和 Text2輸入坐標(biāo) X、 Y的值 ，單擊 “ 判斷 ” 按鈕 Command1進(jìn)行判斷 ， 將結(jié)果直接顯示在窗體上 。 Private Sub Command1_Click() x = Val() y = Val() 39。判斷坐標(biāo)點是否位于坐標(biāo)軸 If x = 0 Or y = 0 Then Print 該點不位于任何象限 Exit Sub End If 39。判斷坐標(biāo)點所在象限 If x 0 Then If y 0 Then Print 該點位于第一象限 Else Print 該點位于第四象限 End If Else If y 0 Then Print 該點位于第二象限 Else Print 該點位于第三象限 End If End If End Sub 程序代碼如下： 程序運行界面 【 例 】 編程序求一元二次方程 ax^2+bx+c=0的根 （ a不等于零 ） 。 分析：根據(jù)數(shù)學(xué)知識 ， 要求一元二次方程的根 ， 必須知道方程的三個系數(shù) a、 b、 c的值 ， 然后根據(jù)判別式 b^24ac的值的情況判斷方程的根 。 方程的根有以下三種情況： 當(dāng) b^24ac0時 ， 方程有兩個不相等的實根； 當(dāng) b^24ac=0時 ， 方程有兩個相等的實根； 當(dāng) b^24ac0時 ， 方程有兩個復(fù)根 。 設(shè)計如右所示的界面，分別在文本框 Text Text2和 Text3中輸入a、 b、 c的值，單擊“求解”按鈕后在標(biāo)簽 Label5中給出方程的解。 “求解 ” 按鈕的事件代碼如下： Private Sub Command1_Click() Dim a, b, c, dert As Integer Dim p, r, x1, x2 As Single Dim str As String str = Chr(10) amp。 Chr(13) a = Val() 39。判斷 a是否為 0， 如果為 0， 則退出過程 If a = 0 Then MsgBox a不能為 0: Exit Sub b = Val() c = Val() dert = b * b 4 * a * c p = b / (2 * a) If dert = 0 Then If dert 0 Then r = Sqr(dert) / (2 * a) x1 = p + r x2 = p r Else x1 = p x2 = p End If = x1= amp。 x1 amp。 str amp。 x2= amp。 x2 Else r = Sqr(dert) / (2 * a) = x1= amp。 p amp。 + amp。 r amp。 i amp。 str amp。 x2= amp。 p amp。 amp。 r amp。 i End If End Sub 返回 ElseIf語句 ElseIf子句的格式： If 條件 1 then 語句塊 1 ElseIf 條件 2 then 語句塊 2 …… [Else 語句塊 n+1] End If 對 ElseIf子句的格式說明： （ 1） 可以放置任意多個 ElseIf子句 。 （ 2） 關(guān)鍵字 ElseIf中間沒有空格 ， 不能寫成 Else If。 ElseIf子句的功能：依次判斷條件 ， 如某一條件成立 ，則執(zhí)行其下面的語句塊；如果所有條件均不成立 ， 則執(zhí)行 Else后面的語句 。 在相應(yīng)語句塊執(zhí)行完后 ， 會跳過End If， 執(zhí)行其后面的語句 。 Else If結(jié)構(gòu)執(zhí)行過程 功能說明： （ 1） 不管有幾個 ElseIf子句 ， 程序執(zhí)行完一個語句塊后 ， 其余ElseIf子句不再執(zhí)行 。 （ 2） 當(dāng)多個 ElseIf子句中的條件都成立時 ， 只執(zhí)行第一個條件成立的子句中的語句塊 。 因此 ， 在使用 ElseIf語句時 ， 要特別注意各判斷條件的前后次序 。 【 例 】 輸入一個學(xué)生的成績 score， 根據(jù)其所在分?jǐn)?shù)段給出他的考試等級 。 score60時 ， 打印 “ 不及格 ” ； 60=score=70時 ， 打印 “
電大資料相關(guān)推薦
鄂ICP備17016276號-1