[計算機軟件及應用]vb第4章教案-資料下載頁

　　

【正文】 m 0 Then m = m 1 s = 59 End If End If = Format(m, 00) = Format(s, 00) If s = 0 And m = 0 Then Beep 39。響鈴，即讓喇叭發一聲響 MsgBox 計時結束 End End If End Sub (1)分析 ：方程的解有以下幾種可能： 若 a=0 若 b2 4ac=0 若 b2 4ac0 若 b2 4ac0，有兩個共軛復根 (2)程序框圖程序框圖 程序框圖也稱程序流程圖，它能直觀地表示程序的處理 (3)建立應用程序的用戶界面和設置對象屬性 (4)編寫程序代碼 例 求一元二次方程 ax2+bx+c＝ 0的解 程序框圖 假 假 假 真 真 真 開始 輸入 a, b, c a = 0 輸出“不是二次方程” D=b*b – 4*a*c R=－ b / (2*a) D = 0 輸出兩實根 － b / (2*a) 輸出兩個實根 X1, X2 輸出兩個復根 R + Pi R－ Pi D 0 計算復根的虛部 P = sqr(－ D) / (2*a) X1 = (－ b + sqr(D)) / (2*a) X2 = (－ b－ sqr(D)) / (2*a) 結束 當用戶在“ a=” 文本框 (Text1)、“ b=” 文本框 (Text2)和“ c=” 文本框 (Text3)輸入 a,b,c的值后，單擊“計算”按鈕，則從“ x1=” 文本框 (Text4)和“ x2=” 文本框 (Text5)輸 當輸入的 a,b,c為 1， 2， 8時，運行結果如下圖 功能要求 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim D As Single, X1 As Single, X2 As Single Dim R As Single, P As Single a = Val() 39。取數據 a b = Val() 39。取數據 b c = Val() 39。取數據 c If a = 0 Then 39。當 a=0 = 不是二次方程 = 不是二次方程 Else 39。a0 D = b * b 4 * a * c R = b / (2 * a) If D = 0 Then 39。D=0 = R = R ElseIf D 0 Then 39。D0 X1 = (b + Sqr(D)) / (2 * a) X2 = (b Sqr(D)) / (2 * a) = X1 = X2 Else 39。D0 P = Sqr(D) / (2 * a) = R amp。 + amp。 P amp。 i = R amp。 amp。 P amp。 i End If End If End Sub 例 本章重點： 1． 條件語句 （ If… Then， If… Then… Else） ；條件語句的嵌套 2． 多分支語句 （ Select Case） 3． 選擇性控件 （ 單選按鈕 OptionButton和復選框 CheckBox） 4． 使用計時器 （ Timer）