VB語言第4章教案

1、主頁主頁 程序流程有三種最基本的控制程序流程有三種最基本的控制結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循結(jié)構(gòu)，即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。環(huán)結(jié)構(gòu)。 在一個過程中，程序通常是按在一個過程中，程序通常是按照由上而下的順序來執(zhí)行各個語句照由上而下的順序來執(zhí)行各個語句的，直到整個過程結(jié)束。引入選擇的，直到整個過程結(jié)束。引入選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，可以改變程序執(zhí)行的流程。行的流程。主頁主頁 選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判斷某些條件，根據(jù)判斷的結(jié)果來控制程序的流程斷某些條件，根據(jù)判斷的結(jié)果來控制程序的流程 本章主要內(nèi)容本章

2、主要內(nèi)容 第第4 4章章 選擇結(jié)構(gòu)設(shè)計選擇結(jié)構(gòu)設(shè)計退出退出主頁主頁 選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判選擇程序結(jié)構(gòu)用于判斷給定的條件，根據(jù)判斷的結(jié)果判斷某些條件，根據(jù)判斷的結(jié)果來控制程序的流程斷某些條件，根據(jù)判斷的結(jié)果來控制程序的流程 4.1 4.1 條件表達式條件表達式 示例示例 If x = 5 Then y = x + 1 If a1 And b0 Then x = 1 關(guān)系表達式關(guān)系表達式和和邏輯表達式邏輯表達式 4.2 4.2 條件語句條件語句 兩種格式的條件語句：兩種格式的條件語句： If . Then If . Then . Else選擇結(jié)構(gòu)設(shè)計選擇結(jié)構(gòu)設(shè)計主頁主頁

3、 格式：格式： If 條件條件 Then 語句語句 或或 If 條件條件 Then 語句塊語句塊 End If 功能：功能：若條件成立若條件成立(值為真值為真)，則執(zhí)行，則執(zhí)行Then后面的語句或語句后面的語句或語句塊，否則直接執(zhí)行下一條語句或塊，否則直接執(zhí)行下一條語句或“End If”的下一條語句的下一條語句 .1 If.Then語句語句單行結(jié)構(gòu)單行結(jié)構(gòu)多行多行(塊塊)結(jié)構(gòu)結(jié)構(gòu)主頁主頁 格式：格式： If 條件條件 Then 語句塊語句塊1 (A) Else 語句塊語句塊2 (B) End If 功能：功能：首先測試條件首先測試條件(E)，如果條件成立，如果條件成立(即值為真

4、即值為真)，則，則執(zhí)行執(zhí)行Then后面的語句塊后面的語句塊1，如果條件不成立，如果條件不成立(即值為假即值為假)，則，則執(zhí)行執(zhí)行Else后面的語句塊后面的語句塊2。而在執(zhí)行。而在執(zhí)行Then或或Else之后的語句塊之后的語句塊后，會從后，會從End If之后的語句繼續(xù)執(zhí)行。之后的語句繼續(xù)執(zhí)行。真假AB E .2 If.Then.Else If.Then.Else語句語句主頁主頁 實現(xiàn)一些簡單的條件判斷分支結(jié)構(gòu)實現(xiàn)一些簡單的條件判斷分支結(jié)構(gòu) 格式：格式： IIf(條件，條件為真時的值，條件為假時的值條件，條件為真時的值，條件為假時的值) 功能：對條件進行測試，若條件成立功能：對條

5、件進行測試，若條件成立(為真值為真值)，則，則取第一個值取第一個值(即即“條件為真時的值條件為真時的值”)，否則取第二個，否則取第二個值值(即即“條件為假時的值條件為假時的值”)。 例如，將例如，將a、b中的小數(shù)，放入中的小數(shù)，放入Min變量中：變量中： Min=IIf(aMin=IIf(ab,a,b)b,a,b)4.2.3 IIf函數(shù)函數(shù)主頁主頁 1. 下列字符中，下列字符中，_字符最大，字符最大，_字符最小。字符最小。 A. 1 B. Z C. * D. a 2. 假設(shè)假設(shè)a=1，b=2，下列邏輯表達式中其值為真的有，下列邏輯表達式中其值為真的有 A. a=0 And b2 C. a ab

6、 D. a=0 And Not b0 And b0 請你給出答案請你給出答案想一想想一想最大字符：最大字符：D最小字符：最小字符：CFFTTT主頁主頁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 a Then a = a + 1 c = c - 1 Else a = a - 1 End If Print a, b, cEnd Sub 下列程序的運行結(jié)果是？下列程序的運行結(jié)果是？想一想想一想2 3 -1例例4.1a主頁主頁 (1)創(chuàng)建應(yīng)用程序的用戶界面

7、和設(shè)置對象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼編寫程序代碼 功能要求：功能要求：用戶在用戶在“a=”文本框文本框(Text1)、“b=”文本框文本框(Text2)和和“c=”文本框文本框(Text3)中輸入數(shù)據(jù)，單擊中輸入數(shù)據(jù)，單擊“判斷判斷”按按鈕后，則在鈕后，則在“最大數(shù)最大數(shù)”文本框文本框(Text4)中輸出結(jié)果中輸出結(jié)果 例例4.2 輸入三個數(shù)輸入三個數(shù)a、b、c，求出其中最大數(shù)，求出其中最大數(shù)例例4.2主頁主頁 Private Sub Command1_Click() m用來存放較大值用來存放較大值 Dim a As Integer, b As Integer

8、 Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then m = a Else m = b End If If c m Then m = c Text4.Text = m End Sub 程序代碼程序代碼 程序流程圖程序流程圖假假假假真真 開始開始從從3 3 個文本框中個文本框中讀取數(shù)值讀取數(shù)值a, b, c a b m = b c m結(jié)束結(jié)束 m = a真真 m = c在文本框在文本框Text4中顯示中顯示m值值主頁主頁 Then和和Else后

9、面的語句塊包含另一個條件語句后面的語句塊包含另一個條件語句 1.一般格式一般格式 If 條件條件1 Then If 條件條件2 Then End If Else End If 使用條件語句嵌套時，一定要注意使用條件語句嵌套時，一定要注意If與與Else，If與與End If的配對關(guān)系。的配對關(guān)系。 4.2.4 條件語句的嵌套條件語句的嵌套主頁主頁 例如：例如：0時至時至12時，顯示時，顯示“早上好早上好” 利用窗體裝載利用窗體裝載(Load)事件，采用事件，采用Print直接在窗體上輸出結(jié)果直接在窗體上輸出結(jié)果 Private Sub Form_Load() Dim h As Integer

10、Show 使使print輸出在窗體上的內(nèi)容可見輸出在窗體上的內(nèi)容可見 h = Hour(Time) 取系統(tǒng)的時間取系統(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例例4.4 根據(jù)不同的時間段發(fā)出問候語根據(jù)不同的時間段發(fā)出問候語例例4.4主頁主頁 If 條件條件1 Then 語句塊語句塊1

11、 ElseIf 條件條件2 Then 語句塊語句塊2 ElseIf 條件條件3 Then 語句塊語句塊3 Else 語句塊語句塊n End If 先測試條件先測試條件1，如果為假，就依次測試條件，如果為假，就依次測試條件2，依此類推，依此類推，直到找到為真的條件。直到找到為真的條件。 一旦找到一個為真的條件時，一旦找到一個為真的條件時，VB會執(zhí)行相應(yīng)的語句塊，會執(zhí)行相應(yīng)的語句塊，然后執(zhí)行然后執(zhí)行End If語句后面的代碼。語句后面的代碼。 如果所有條件都是假，那么執(zhí)行如果所有條件都是假，那么執(zhí)行Else后面的語句塊后面的語句塊n，然，然后執(zhí)行后執(zhí)行End If語句后面的代碼。語句后面的代碼。

12、If h 12 Then Print 早上好！早上好！ ElseIf h = b Then If b 5 Then b = b + 1 ElseIf b 2 Then b = b - 1 Else b = b + 2 End If b = IIf(a = b, b + 1, b - 1) Print bEnd Sub 下列程序的運行結(jié)果是？下列程序的運行結(jié)果是？想一想想一想 2例例4.4a主頁主頁 使用多分支語句使用多分支語句Select Case也可以實現(xiàn)多分支選擇。更也可以實現(xiàn)多分支選擇。更有效、更易讀，并且易于跟蹤調(diào)試。有效、更易讀，并且易于跟蹤調(diào)試。 Select Case 測試表達式

13、測試表達式 Case 表達式表表達式表1 語句塊語句塊1 Case 表達式表表達式表2 語句塊語句塊2 . . . Case Else 語句塊語句塊n End Select 先計算表達式的值，然后將該值依次與結(jié)構(gòu)中的每個先計算表達式的值，然后將該值依次與結(jié)構(gòu)中的每個Case的值進行比的值進行比較，如果該值符合某個較，如果該值符合某個Case指定的值條件時，就執(zhí)行該指定的值條件時，就執(zhí)行該Case的語句塊，的語句塊，然后跳到然后跳到End Select，從，從End Select出口。如果沒有相符合的出口。如果沒有相符合的Case值，則值，則執(zhí)行執(zhí)行Case Else中的語句塊中的語句塊 4.3

14、 多分支語句多分支語句 示例示例Select Case x Case -1 y=10 Case 1 y=20 Case Else y=30End Select主頁主頁 先在窗體上顯示以下考題：先在窗體上顯示以下考題： 雞兔同籠，已知雞和兔總頭數(shù)為雞兔同籠，已知雞和兔總頭數(shù)為h=23，總腳數(shù)為，總腳數(shù)為f=56，求雞兔各有多少只，求雞兔各有多少只? 再提供輸入框由學生回答問題，然后采用輸出框顯示對答再提供輸入框由學生回答問題，然后采用輸出框顯示對答案的評判意見。案的評判意見。 分析：分析：設(shè)雞數(shù)為設(shè)雞數(shù)為j1，兔雞數(shù)為，兔雞數(shù)為t1，則有，則有 j1 + t1 = h j1 = (4 * h -

15、 f) / 2 2*j1 + 4*t1 = f t1 = (f - 2 * h) / 2 例例4.74.7 求雞數(shù)和兔數(shù)求雞數(shù)和兔數(shù)例例4.7主頁主頁 當用戶單擊當用戶單擊“答題答題”按鈕時，程序提供輸入對話框，由用戶按鈕時，程序提供輸入對話框，由用戶輸入答案，再通過輸出框顯示評判意見。采用的程序代碼如下：輸入答案，再通過輸出框顯示評判意見。采用的程序代碼如下： Private Sub Form_Load() Show Print FontSize = 18 Print Spc(9); 考一考你考一考你 FontSize = 13 Print Print Spc(5); 雞兔同籠，已知雞和兔總

16、頭數(shù)為雞兔同籠，已知雞和兔總頭數(shù)為23， Print Spc(3); 總腳數(shù)為總腳數(shù)為56，求雞兔各有多少？，求雞兔各有多少？ End Sub主頁主頁 Private Sub Command1_Click() “答題答題” h = 23 : f = 56 總頭數(shù)及總腳數(shù)總頭數(shù)及總腳數(shù) j1 = (4 * h - f) / 2 求出的雞數(shù)求出的雞數(shù) t1 = (f - 2 * h) / 2 求出的兔數(shù)求出的兔數(shù) j2 = Val(InputBox(雞的只數(shù)是多少？雞的只數(shù)是多少？, 請回答請回答) t2 = Val(InputBox(兔的只數(shù)是多少？兔的只數(shù)是多少？, 請回答請回答) Selec

17、t Case True 選擇真值選擇真值 Case j1 = j2 And t1 = t2 MsgBox 回答完全正確回答完全正確! Case j1 = j2 MsgBox 雞數(shù)回答正確，但兔數(shù)不對雞數(shù)回答正確，但兔數(shù)不對! Case t1 = t2 MsgBox 兔數(shù)回答正確，但雞數(shù)不對兔數(shù)回答正確，但雞數(shù)不對! Case Else MsgBox 回答錯誤回答錯誤! End Select End Sub主頁主頁 提供選項讓用戶選擇，如選擇提供選項讓用戶選擇，如選擇“是是”或或“否否”，從列表中選擇某一項等從列表中選擇某一項等 選擇的控件有：選擇的控件有： 單選按鈕、復(fù)選框、列表框和組合框單選

18、按鈕、復(fù)選框、列表框和組合框 4.4 4.4 選擇性控件選擇性控件主頁主頁 1. 單選按鈕的用途單選按鈕的用途 單選按鈕單選按鈕(OptionButton)控件由一個圓圈控件由一個圓圈“”及緊挨它及緊挨它的文字組成，能提供的文字組成，能提供“選中選中”和和“未選中未選中”兩種可選項兩種可選項 成組形式出現(xiàn)成組形式出現(xiàn) 2. 常用屬性常用屬性 Caption屬性屬性 Value屬性：屬性：表示單選按鈕是否被選中，選中時表示單選按鈕是否被選中，選中時Value值值為為True,否則為否則為False。 使用單選按鈕組時，選中其中一個，其余就會自動關(guān)閉使用單選按鈕組時，選中其中一個，其余就會自動關(guān)閉

19、 Alignment屬性：屬性：設(shè)置單選按鈕標題的對齊方式設(shè)置單選按鈕標題的對齊方式 3. 事件事件 Click事件事件 在應(yīng)用程序中可以創(chuàng)建一個事件過程，檢測控件對象在應(yīng)用程序中可以創(chuàng)建一個事件過程，檢測控件對象Value屬性值，再根據(jù)檢測結(jié)果執(zhí)行相應(yīng)的處理屬性值，再根據(jù)檢測結(jié)果執(zhí)行相應(yīng)的處理 4.4.1 4.4.1 單選按鈕單選按鈕 單選按鈕組單選按鈕組Caption屬性屬性主頁主頁 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 單選按鈕組；單選按鈕組； 初始狀態(tài)：設(shè)置初始狀態(tài)：設(shè)置Option1的的Value屬性值設(shè)置為屬性值設(shè)置為True，或通過代碼

20、或通過代碼“Option1.Value=True” 來實現(xiàn)來實現(xiàn) (2) 編寫程序代碼編寫程序代碼 功能要求功能要求 例例4.8 用單選按鈕組控制顯示不同的字體用單選按鈕組控制顯示不同的字體例例4.8主頁主頁 程序代碼如下：程序代碼如下： Private Sub Option1_Click() Text1.FontName = 宋體宋體 End Sub Private Sub Option2_Click() Text1.FontName = 幼圓幼圓 End Sub Private Sub Option3_Click() Text1.FontName = 楷體楷體_GB2312 End Sub

21、 說明：說明：程序代碼中所用的字體號程序代碼中所用的字體號(如如“宋體宋體”、“幼圓幼圓”等等)必須與系統(tǒng)提供的字體相一致必須與系統(tǒng)提供的字體相一致主頁主頁 1. 復(fù)選框的用途復(fù)選框的用途 復(fù)選框復(fù)選框(CheckBox) 控件由一個四方形小框和緊挨它的文控件由一個四方形小框和緊挨它的文字組成。提供字組成。提供“選中選中”和和“未選中未選中”兩種可選項兩種可選項 復(fù)選框控件與單選按鈕控件在使用方面的區(qū)別復(fù)選框控件與單選按鈕控件在使用方面的區(qū)別 2. 常用屬性常用屬性 Caption屬性屬性 Value屬性：屬性：表示復(fù)選框的狀態(tài)表示復(fù)選框的狀態(tài) 有三種取值：有三種取值：0未選中未選中(缺省值缺

22、省值) 1選中選中 2不可用不可用(灰色顯示灰色顯示) Alignment屬性；屬性；Style屬性屬性 3. 事件事件 復(fù)選框可響應(yīng)的事件與單選按鈕基本相同復(fù)選框可響應(yīng)的事件與單選按鈕基本相同4.4.2 4.4.2 復(fù)選框復(fù)選框復(fù)選按鈕組復(fù)選按鈕組CaptionCaption屬性屬性ValueValue屬性為屬性為2 2主頁主頁 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 多行文本框多行文本框(帶垂直滾動條帶垂直滾動條)和四個復(fù)選框和四個復(fù)選框 (2)編寫程序代碼編寫程序代碼 功能要求：功能要求：程序開始運行后，用戶在文本框中輸入一程序開始運行后，用戶在文

23、本框中輸入一段文字段文字(如如“復(fù)選框應(yīng)用示例復(fù)選框應(yīng)用示例”)，然后按需要單擊各復(fù)選框，然后按需要單擊各復(fù)選框，則文字的字體、字型、字號及顏色隨之改變則文字的字體、字型、字號及顏色隨之改變例例4.9 用復(fù)選框來控制文字的字體、字型、字號及顏色用復(fù)選框來控制文字的字體、字型、字號及顏色例例4.9主頁主頁Private Sub Check1_Click() If Check1.Value = 1 Then 判復(fù)選框判復(fù)選框1是否選中是否選中 Text1.FontName = 楷體楷體_GB2312 Else Text1.FontName = 宋體宋體 End IfEnd SubPrivate S

24、ub Check2_Click() If Check2.Value = 1 Then 判復(fù)選框判復(fù)選框2是否選中是否選中 Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then 判復(fù)選框判復(fù)選框3是否選中是否選中 Text1.FontSize = 25 Else Text1.FontSize = 9 End IfEnd Sub主頁主頁 Private Sub Check4_Click() If Check4.Val

25、ue = 1 Then 判復(fù)選框判復(fù)選框4是否選中是否選中 Text1.ForeColor = RGB(255, 0, 0) Else Text1.ForeColor = RGB(0, 0, 0) End If End Sub 在運行中，可以任意設(shè)定這四個復(fù)選框的狀態(tài)，可以四在運行中，可以任意設(shè)定這四個復(fù)選框的狀態(tài)，可以四項都不選，也可以選擇其中一項至四項項都不選，也可以選擇其中一項至四項主頁主頁 計時器計時器(Timer)每隔一定的時間間隔產(chǎn)生一次每隔一定的時間間隔產(chǎn)生一次Timer事件事件(或稱或稱報時報時)?？梢愿鶕?jù)這個特性來定時控制某些操作，或進行計時?？梢愿鶕?jù)這個特性來定時控制某些操

26、作，或進行計時 運行時運行時計時器計時器不顯示不顯示 Enabled屬性屬性：確定計時器是否可用：確定計時器是否可用 Interval屬性屬性：設(shè)置兩個：設(shè)置兩個Timer事件之間的時間間隔，其值以事件之間的時間間隔，其值以毫秒毫秒(1ms=1/1000 s)為單位為單位 例如，如果希望每半秒鐘產(chǎn)生一個例如，如果希望每半秒鐘產(chǎn)生一個Timer事件，那么事件，那么Interval屬性值應(yīng)設(shè)置為屬性值應(yīng)設(shè)置為500，這樣每隔，這樣每隔500 ms就會觸發(fā)一次就會觸發(fā)一次Timer事件，事件，從而執(zhí)行相應(yīng)的從而執(zhí)行相應(yīng)的Timer事件過程事件過程 計時器控件只響應(yīng)一個計時器控件只響應(yīng)一個Timer事

27、件。也就是說，計時器控件事件。也就是說，計時器控件對象在間隔了一個對象在間隔了一個Interval設(shè)定時間后，便觸發(fā)一次設(shè)定時間后，便觸發(fā)一次Timer事件事件 4.5 4.5 計時器控件計時器控件主頁主頁例例4.104.10 建立一個電子時鐘建立一個電子時鐘 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 一個計時器控件和一個文本框。計時器控件一個計時器控件和一個文本框。計時器控件Timer1的的Interval屬性值設(shè)定為屬性值設(shè)定為1000(1秒秒) (2) (2) 編寫程序代碼編寫程序代碼 Private Sub Timer1_Timer() time

28、r事件過程事件過程 Text1.Text = Time Time是時間函數(shù)是時間函數(shù) End Sub例例4.10運行界面運行界面設(shè)計界面設(shè)計界面 計時器計時器(Timer)每隔一定的時間間隔自動每隔一定的時間間隔自動產(chǎn)生一次產(chǎn)生一次Timer事件和執(zhí)行事件和執(zhí)行Timer事件過程事件過程 這個時間間隔由這個時間間隔由Interval屬性設(shè)定屬性設(shè)定 利用這個特性來定時控制某些操作利用這個特性來定時控制某些操作主頁主頁 例例4.114.11 實現(xiàn)字體的放大實現(xiàn)字體的放大 利用計時器可以按指定間隔時間對字體進行放大利用計時器可以按指定間隔時間對字體進行放大 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬

29、性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 一個計時器控件和一個標簽一個計時器控件和一個標簽 。 標簽內(nèi)顯示文字標簽內(nèi)顯示文字“放大放大” 計時器控件計時器控件Timer1的計時器采用默認的屬性值的計時器采用默認的屬性值 Enabled屬性值為屬性值為True(真真)，Interval屬性值為屬性值為0例例4.11主頁主頁 (2)編寫程序代碼編寫程序代碼 Private Sub Form_Load() Label1.Caption = 放大放大 Label1.Width = Form1.Width 把標簽的高度和寬度把標簽的高度和寬度 設(shè)置為窗體相同尺寸設(shè)置為窗體相同尺寸 Label1.Heigh

30、t = Form1.Height Timer1.Interval = 800 End Sub Private Sub Timer1_Timer() If Label1.FontSize 0 Then s = s - 1 Else If m 0 Then m = m - 1 s = 59 End If End If Text1.Text = Format(m, 00) Text2.Text = Format(s, 00) If s = 0 And m = 0 Then Beep 響鈴，即讓喇叭發(fā)一聲響響鈴，即讓喇叭發(fā)一聲響 MsgBox 計時結(jié)束計時結(jié)束 End End IfEnd Sub主頁主

31、頁 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 單選按鈕組單選按鈕組Option1、Option2、Option3及及Option4分別代分別代表表+、-、*(乘乘)和和/(除除)運算運算 (2) 編寫程序代碼編寫程序代碼例例4.134.13 輸入兩個運算數(shù)和運算符輸入兩個運算數(shù)和運算符(+(+、- -、* *或或/)/)，組，組 成算式并計算結(jié)果，然后顯示出來成算式并計算結(jié)果，然后顯示出來例例4.13主頁主頁Private Sub Command1_Click() “計算計算”按鈕按鈕 Dim a As Single, b As Single, t As

32、 Single, s As String a = Val(Text1.Text) b = Val(Text2.Text) Select Case True Case Option1.Value + 運算運算 s = + t = a + b Case Option2.Value - 運算運算 s = - t = a - b Case Option3.Value * 運算運算 s = * t = a * b Case Option4.Value / 運算運算 s = / t = a / b End Select Text3.Text = a & s & b & = & tEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command3_Click() EndEnd Sub Private Sub Form_Load() Option1.Value = True + 運算運算 End Sub主頁主頁 (1)分析分析：方程的解有以下幾