[計算機軟件及應(yīng)用]vb第4章教案-文庫吧
2024-10-04 04:09 本頁面
【正文】 End If 功能： 首先測試條件 (E)，如果條件成立 (即值為真 )，則執(zhí)行 Then后面的語句塊 1，如果條件不成立 (即值為假 )，則執(zhí)行 Else后面的語句塊 2。而在執(zhí)行 Then或 Else之后的語句塊后，會從 End If之后的語句繼續(xù)執(zhí)行。 If...Then...Else語句 真 假 A B E 雙分支結(jié)構(gòu) (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 功能要求： 用戶在“ a=‖文本框 (Text1)、“ b=‖文本框(Text2)和“ c=‖文本框 (Text3)中輸入數(shù)據(jù)，單擊“判斷”按鈕后，則在“最大數(shù)＝”文本框 (Text4)中輸出結(jié)果 例 輸入三個數(shù) a、 b、 c，求出其中最大數(shù) 例 Private Sub Command1_Click() 39。m用來存放較大值 Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val() b = Val() c = Val() If a b Then m = a Else m = b End If If c m Then m = c = m End Sub 程序代碼 程序流程圖 假 假 真 開始 從 3 個文本框中 讀取數(shù)值 a, b, c a b m = b c m 結(jié)束 m = a 真 m = c 在文本框 Text4 中顯示 m值 Private Sub Form_Load() Show a = 1: b = 3 c = 3 * a b a = IIf(c a, a 1, b) + 1 If a * 2 1 = 10 Then b = b + c If 3 * b a Then a = a + 1 c = c 1 Else a = a 1 End If Print a, b, c End Sub 下列程序的運行結(jié)果是？ 想一想 思考題 2 3 1 例 IIf函數(shù) 實現(xiàn)一些簡單的條件判斷分支結(jié)構(gòu)。 格式： IIf(條件，條件為真時的值，條件為假時的值 ) 功能：對條件進(jìn)行測試，若條件成立 (為真值 )，則取第一個 值 (即 “ 條件為真時的值 ” )，否則取第二個值 (即 “ 條件為假時的值 ” ) 如：將 a、 b中的小數(shù)，放入 Min Min=IIf(a＜ b,a,b) 條件語句的嵌套 Then和 Else后面的語句塊包含另一個條件語句。 If 條件 1 Then If 條件 2 Then … End If Else … End If 使用條件語句嵌套時，一定要注意 If與 Else， If與 End If的配 對關(guān)系。 例如： 0時至 12時，顯示“早上好” 利用窗體裝載 (Load)事件，采用 Print直接在窗體上輸出結(jié)果 Private Sub Form_Load() Dim h As Integer Show 39。使 print輸出在窗體上的內(nèi)容可見 h = Hour(Time) 39。取系統(tǒng)的時間 FontSize = 30 : ForeColor = RGB(255, 0, 0) BackColor = RGB(255, 255, 0) If h 12 Then Print 早上好！ Else If h 18 Then Print 下午好！ Else Print 晚上好！ End If End If End Sub 例 根據(jù)不同的時間段發(fā)出問候語 例 If 條件 1 Then 語句塊 1 ElseIf 條件 2 Then
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1