實(shí)驗(yàn)4分支程序設(shè)計(jì)

1、實(shí)驗(yàn)4 分支程序設(shè)計(jì)實(shí)驗(yàn)?zāi)康?1 掌握Visual Basic的常量、變量的定義和使用。2 掌握各種表達(dá)式的使用。3掌握各種標(biāo)準(zhǔn)函數(shù)的使用。4掌握分支結(jié)構(gòu)程序設(shè)計(jì)方法。實(shí)驗(yàn)4.1計(jì)算面積實(shí)驗(yàn)任務(wù)：1設(shè)計(jì)程序界面如圖4-1所示，在窗體上先放置框架一個(gè)，然后將三個(gè)單選按鈕放置在框架中，放置兩個(gè)標(biāo)簽框、兩個(gè)文本框和兩個(gè)命令按鈕。2選擇某種形狀的同時(shí)Label1動(dòng)態(tài)顯示相應(yīng)的“半徑”或“邊長(zhǎng)”。3在Text1中輸入數(shù)值后，按確定按鈕，在Text2中顯示計(jì)算的面積。4形狀轉(zhuǎn)換時(shí)，要清除前次結(jié)果（兩個(gè)文本框清空），光標(biāo)聚焦Text1。5按“退出”按鈕，結(jié)束運(yùn)行。圖4-1 程序界面提示：可以根據(jù)單選按鈕的V

2、alue屬性進(jìn)行判斷，當(dāng)某個(gè)按鈕值為真時(shí)，則進(jìn)行與之相應(yīng)的計(jì)算。因此，可以使用分支結(jié)構(gòu)（IfThen）來實(shí)現(xiàn)條件判斷功能。實(shí)驗(yàn)步驟：1屬性設(shè)置如下：控件名稱屬性名稱屬性值Label1Caption空Label2Caption 面積Text1Text 空Text2Text 空FrameCaption選擇形狀Option1Caption圓形Option2Caption正三角形Option3Caption正方形Command1Caption計(jì)算Command2Caption退出2添加代碼Option ExplicitConst Pi As Single = 3.141593 Pi為“符號(hào)常量”類型，

3、不可再次賦值Private Sub Option1_Click() Label1 = "半徑" Text1 = "" Text2 = "" Text1.SetFocusEnd SubPrivate Sub Option2_Click() Label1 = "邊長(zhǎng)" Text1 = "" Text2 = "" Text1.SetFocusEnd SubPrivate Sub Option3_Click() 填寫一段程序（可以模仿Option2_Click()中的代碼）End S

4、ubPrivate Sub Command1_Click() Dim r As Single, s As Single r = Val(Text1) If Option1.Value = True Then s = Pi * r 2 If Option2.Value = True Then s = r 2 * Sqr(3) / 4 If Then s = r 2 Text2 = sEnd SubPrivate Sub Command3_Click() EndEnd Sub3保存文件，調(diào)試運(yùn)行并記錄結(jié)果。提示：請(qǐng)妥善保存該程序，待到學(xué)會(huì)使用控件數(shù)組后，將三個(gè)Option按鈕用控件數(shù)組生成，可以簡(jiǎn)

5、化程序代碼。實(shí)驗(yàn)4.2登錄檢測(cè)實(shí)驗(yàn)任務(wù)：建立一個(gè)登錄窗口，要求輸入口令，假定口令為“Basic1234”。要求：1輸入的口令在文本框中不可見，以“*”替代；單擊“退出”按鈕時(shí)，結(jié)束運(yùn)行。圖4-2 登錄界面及各種提示信息2單擊“確定”按鈕時(shí)，若輸入口令正確，顯示信息“祝賀你，成功登錄！”；否則顯示“對(duì)不起，口令錯(cuò)誤，無法登錄！”。3若三次登錄均不正確，顯示“對(duì)不起，你無權(quán)登錄該系統(tǒng)！”后結(jié)束整個(gè)應(yīng)用程序。注意：將文本框的PasswordChar屬性值設(shè)為“*”（只要一個(gè)星號(hào)），就可以星號(hào)替代鍵入的字符。實(shí)現(xiàn)上述功能不僅要使用分支判斷語句對(duì)文本框的內(nèi)容進(jìn)行判斷，還需要定義一個(gè)整型變量N用作計(jì)數(shù)，其

6、初值為0，登錄一次不正確，N就加1，如果N=3，則結(jié)束整個(gè)應(yīng)用程序。操作步驟：1窗體設(shè)計(jì)，在窗體上放置一個(gè)Label控件、一個(gè)TextBox控件和兩個(gè)CommandButton按鈕，按照?qǐng)D4-2排列控件，設(shè)置控件大小。2屬性設(shè)置缺省名稱屬性名稱屬性值窗體1Caption登錄nameLoginBorderStyle1-Fixed Single標(biāo)簽1NamelblPasswordAutoSizeTrueCaption輸入口令文本框1NametxtPasswordText空PasswordChar*命令按鈕1NamecmdOkCaption確定DefaultTrue命令按鈕2NamecmdExitC

7、aption退出3添加代碼： Option Explicit Dim N As Integer N用來統(tǒng)計(jì)登錄次數(shù)，注意不能在過程中定義 Private Sub cmdOk_Click() If txtpassword.Text = "Basic1234" Then MsgBox "祝賀你，成功登錄！" 彈出消息框 Else N = N + 1 If N = 3 Then MsgBox "對(duì)不起，你無權(quán)登錄該系統(tǒng)！", vbExclamation 彈出消息框 End End If MsgBox "對(duì)不起，口令錯(cuò)誤，無法登錄！

8、", vbExclamation 彈出消息框 txtpassword.Text = "" txtpassword.SetFocus End If End Sub Private Sub cmdExit_Click() '退出 End End Sub4保存文件，調(diào)試運(yùn)行，觀察結(jié)果。思考：如果假定的口令“Basic1234”事先已經(jīng)存在一個(gè)PassWord.txt文件中，如何修改上述程序？試一試。實(shí)驗(yàn)4.3日期顯示實(shí)驗(yàn)任務(wù)：編程獲得當(dāng)天的系統(tǒng)日期，并以X年X月X日星期X的形式顯示出來，實(shí)驗(yàn)結(jié)果如圖4-3所示。提示：系統(tǒng)日期可以通過Date函數(shù)得到，年號(hào)、月份、

9、日期和星期號(hào)也可分別通過Year、Month、Day、WeekDay等函數(shù)獲得。要注意的是，通過WeekDay獲得的星期號(hào)是數(shù)值表示的1-7，而非大寫的“星期一”-“星期日”，因此必須借助一個(gè)多分支語句加以轉(zhuǎn)換。圖4-3 顯示當(dāng)天日期界面實(shí)驗(yàn)步驟：1在窗體上放置一個(gè)Label控件。2屬性設(shè)置控件名稱屬性名稱屬性值標(biāo)簽1NameLblDateFont宋體三號(hào)粗斜體Caption空BoderStyle1Aligement2AutoSizeTrueWordWrapTrue3添加代碼（請(qǐng)補(bǔ)充缺少的語句）'Rq為當(dāng)前系統(tǒng)日期，Y為年號(hào)，m為月份，d為日期，w1為數(shù)值型的星期號(hào)，w2為轉(zhuǎn)換后的大寫

10、的星期號(hào)Dim Y As Integer, m As Integer, d As Integer, w1 As IntegerDim Rq As DateDim w2 As StringPrivate Sub Form_Load() Rq = _ Y = _ m = _ d = _ w1 = Weekday(Rq, vbMonday) '設(shè)星期一為第一天，缺省值星期日是第一天 Select Case w1 Case 1 w2 = "一" Case 2 w2 = "二" Case 3 w2 = "三" Case 4 w2 = &

11、quot;四" Case 5 w2 = "五" Case 6 w2 = "六" Case 7 w2 = "日" End Select LblDate.Caption = _End Sub4保存文件，調(diào)試運(yùn)行。實(shí)驗(yàn)4.4計(jì)算器實(shí)驗(yàn)任務(wù)：編程模擬一個(gè)袖珍計(jì)算器，它可以根據(jù)輸入的操作符進(jìn)行不同的計(jì)算，要求最少要做加、減、乘、除四種運(yùn)算。實(shí)驗(yàn)結(jié)果如圖4-4所示。圖4-4 實(shí)驗(yàn)4.4運(yùn)行界面注意：判斷一下除數(shù)為零的情況。若除數(shù)為零，要用Msgbox消息框提示“除數(shù)不能為零”、清空輸入數(shù)2的文本框、讓該文本框獲得焦點(diǎn)，等待重新輸入合法的

12、數(shù)據(jù)。提示：設(shè)計(jì)界面如圖4-4所示，屬性設(shè)置如下：控件名稱屬性名稱屬性值Label1Caption輸入數(shù)1Label2Caption 輸入數(shù)2Label3Caption輸入操作符Label4Caption 計(jì)算結(jié)果Text1Text 空Text2Text 空Text3Text 空Text4Text 空Command1Caption計(jì)算Command2Caption結(jié)束實(shí)驗(yàn)4.5方程求解實(shí)驗(yàn)任務(wù)：編程實(shí)現(xiàn)一元二次方程求解。要求任意輸入方程的系數(shù)a，b，c，計(jì)算并輸出方程的兩個(gè)根xl，x2，并把方程系數(shù)和求得的根存入數(shù)據(jù)文件“gen.dat”中，界面如圖4-5所示。圖4-5 實(shí)驗(yàn)4.5運(yùn)行界面實(shí)驗(yàn)

13、要求：1輸入a，b，c三個(gè)數(shù)，為了程序設(shè)計(jì)的方便可由三個(gè)文本框來實(shí)現(xiàn)2通過求根公式求得方程的根。計(jì)算的結(jié)果通過文本框顯示。 要分為：a0時(shí)， 按照一次方程求解a0時(shí)，b2-4ac>=0 按照二次方程求實(shí)根解b2-4ac<0 按照二次方程求虛根解dalt = b * b - 4 * a * cdalt = Sqr(-dalt) '復(fù)根兩個(gè)須根分別為：文本框 = Format(-b / 2 / a, "0.00") & "+" & Format(dalt / 2 / a, "0.00") & &

14、quot;i"文本框 = Format(-b / 2 / a, "0.00") & "-" & Format(dalt / 2 / a, "0.00") & "i"3為簡(jiǎn)化程序，假設(shè)a，b，c均為數(shù)值習(xí) 題4習(xí)題4.1選擇題1. VB也提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是（ ）。（A）遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)（B）選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)（C）過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)（D）選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)2. 結(jié)構(gòu)化程序由三種基本結(jié)構(gòu)組成，下面屬于三種基

15、本結(jié)構(gòu)之一的是（ ）。（A）遞歸結(jié)構(gòu) （B）選擇結(jié)構(gòu)（C）過程結(jié)構(gòu) （D）輸入、輸出結(jié)構(gòu)3. 下面程序段運(yùn)行后，顯示的結(jié)果是（ ）。Dim x%If x Then Print x Else Print x+1（A）1 （B）0 （C）-1 （D）顯示出錯(cuò)信息4. 語句If x=1 Then y=1，下列說法正確的是（ ）。（A）x=1和y=1均為賦值語句（B）x=1和y=l均為關(guān)系表達(dá)式（C）x=1為關(guān)系表達(dá)式，y=l為賦值語句（D）x=1為賦值語句，y=l為關(guān)系表達(dá)式5. 用If語句表示分段函數(shù)，下列不正確的程序段是（ ）。（A）f=x*x+3 （B）If x>=1 Then f=sq

16、r(x+1) If x>=1 Then f=sqr(x+1) If x<1 Then f=x*x+3（C）If x>=1 Then f=sqr(x+1） （D）If x<1 Then f=x*x+3 _ Else f=x*x+3 Else f=sqr(x+1)6. 計(jì)算分段函數(shù)值。 下面程序段中正確的是（ ）。 （A）If x<0 Then y=0 （B）If x>=2 Then y=3 If x<l Then y=1 If x>=1 Then y=2 If x<2 Then y=2 If x>0 Then y=1 If x>=

17、2 Then y=3 If x<0 Then y=0 （C）If x<0 Then （D）If x>=2 Theny=0 y=3ElseIf x>0 Then ElseIf x>=1 Then y=1 y=2 ElseIf x>1 Then ElseIf x>=0 Then y=2 y=1 Else Else y=3 y=0 End If End If7. 下面程序段，顯示的結(jié)果是（ ）。 Dim x x=Int（Rnd）十5 Select Case x Case 5 Print”優(yōu)秀” Case 4 Print“良好” Case 3 Print“通過

18、” Case Else Print“不通過” End Select （A）優(yōu)秀 （B）良好 （C）通過 （D）不通過8. 下面程序段求兩個(gè)數(shù)中的大數(shù)，（ ）不正確。 （A）Max=IIf(x>y，x，y) （B）If x>y Then Max=x Else Max=y （C）Max=x （D）If y>=x Then Max=y If y>=x Then Max=y Max=x9. 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() x=InputBox("Input")

19、Select Case x Case 1,3 Print "分支 1" Case Is >4 Print "分支 2" Case Else Print "Else 分支 " End Select End Sub 程序運(yùn)行后，如果在輸入對(duì)話框中輸入2，則窗體上顯示的是 （A）分支1 （B）分支2 （C）Else分支 （D）程序出錯(cuò) 10. 以下Case語句中錯(cuò)誤的是 （A）Case 0 To 10 （B）Case Is>10 （C）Case Is>10 And Is<50 （D）Case 3,5,Is>10

20、11. 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub 程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 （A）-5 （B）25 （C）1 （D）-1 12. 在窗體上畫一個(gè)名稱為Text1的文本框，要求文本框只能接收大寫字母的輸入。以下能實(shí)現(xiàn)該操作的事件過程是 （A）Private Sub Text1_KeyPress(KeyAscii As Integer) If Key

21、Ascii < 65 Or KeyAscii > 90 Then MsgBox "請(qǐng)輸入大寫字母" KeyAscii = 0 End If End Sub （B）Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode > 90 Then MsgBox "請(qǐng)輸入大寫字母" KeyCode = 0 End If End Sub （C）Private Sub Text1_MouseDown(Button As I

22、nteger, Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then MsgBox "請(qǐng)輸入大寫字母" End If End Sub （D）Private Sub Text1_Change() If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then MsgBox "請(qǐng)輸入大寫字母" End If End Sub 13. 設(shè)a=6，則執(zhí)行x=I

23、IF(a>5,-1,0)后，x的值為（A）5 （B）6 （C）0 （D）-114. 下列語句正確的是（A）If A B Then Print "A 不等于 B"（B）If A <> B Then Printf "A 不等于 B"（C）If A <> B Then Print "A 不等于 B"（D）If A B Then Printf "A 不等于 B"15. 下面程序段執(zhí)行結(jié)果為 x = Int(Rnd() + 4) Select Case x Case 5 Print "

24、excellent" Case 4 Print "good" Case 3 Print "pass" Case Else Print "fail"End Select（A）excellent （B）good （C）pass （D）fail16. 設(shè)a = "a"，b = "b"，c = "c"，d = "d"，執(zhí)行語句x = IIf(a < b) Or (c > d), "A", "B")后，x

25、的值為（A）a （B）b （C）A （D）B17. 下列程序執(zhí)行后，變量a的值為Dim a, b, c, d As Singlea = 100: b = 20: c = 1000If b > a Then d = a: a = b: b = dEnd IfIf c > a Then d = b: b = c: c = dEnd If（A）0 （B）1000 （C）20 （D）10018. 執(zhí)行下面的程序段后，變量c的值為a = 14b = 30Select Case b 10 Case 0 c = a * 10 + b Case 1 To 9 c = a * 100 + b Cas

26、e 10 To 99 c = a * 1000 + bEnd SelectPrint c（A）363 （B）2548 （C）1430 （D）9875參考答案1.D 2.B 3.A x沒有賦值，默認(rèn)為0。而在VB中，0作為邏輯常量False，非0作為True。4.C 5.C 6.D 7.A 8.D 9.C 10.C 11.C 12.A 13.D 14.C 15.B 16.C 17.D 18.C習(xí)題4.2填空題1下面程序運(yùn)行后輸出的結(jié)果是( 空1 )。 x=Int(Rnd)+3 If x2>8 Then y=x2+1 If x2=9 Then y=x2-2 If x2<8 Then y

27、=x3 Print y2下面程序的功能是( 空2 )。 Dim n%，m% Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If IsNumeric(Text1.Text) Then Select Case Text1.Text Mod 2 Case 0 n=n+Text1.Text Case 1 m=m+Text1.Text End Select End If Text1.Text="" Text1.SetFocus End If End Sub3下面的程序段是檢查輸入的算術(shù)表達(dá)式中圓

28、括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果。本程序在文本框輸入表達(dá)式，邊輸入，邊統(tǒng)計(jì)，以輸入回車符作為表達(dá)式輸入結(jié)束，然后顯示結(jié)果。 Dim count1% Private Sub Text1_KeyPress(KeyAscii As Integer) If( 空3 )= "("Then count1=count1+1 ElseIf( 空4 )= ")"Then ( 空5 ) End If If KeyAscii=13 Then If( 空6 )Then Print "左右括號(hào)配對(duì)" Else If( 空7 )Then Print"左括

29、號(hào)多于右括號(hào)"；count1；"個(gè)" Else Print"右括號(hào)多于左括號(hào)"；-count1；"個(gè)" End If End If End Sub4 輸入文本框中若干字符，統(tǒng)計(jì)有多少個(gè)元音字母、有多少個(gè)其他字母，直到按Enter鍵結(jié)束，并顯示結(jié)果，大小寫不區(qū)分。其中CountY中放元音字母?jìng)€(gè)數(shù)，CountC中放其他字符數(shù)。 Dim CountY%，CountC% Private Sub Textl_KeyPress(KeyAscii As Integer) Dim C$ C=( 空8 ) If "A"&l

30、t;=C And C<="Z"Then Select Case( 空9 ) Case( 空10 ) CountY=CountY+1 Case( 空11 ) CountC=CountC+1 End Select End If If( 空12 )Then Print "元音字母有"；CountY；"個(gè)" Print"其他字母有"；CountC；"個(gè)" End If End Sub參考答案1.72.分別統(tǒng)計(jì)輸入若干數(shù)的奇數(shù)和、偶數(shù)和，存放在m、n中3.Chr(KeyAscii) 4.Chr(Ke

31、yAscii) 5.countl=countl-1 若遇右括號(hào)，括號(hào)數(shù)減l。6.countl=0 括號(hào)配對(duì)。7.countl>0 左括號(hào)多于右括號(hào)，多于的個(gè)數(shù)是countl的值。8.UCase(Chr(KeyAscii) 大小寫不區(qū)分。9.C10.”A”，”E”，”I”,”O(jiān)”，”U” 11.Else 其他字符。12.KeyAscii=13習(xí)題4.3簡(jiǎn)答題1設(shè)x與y是同一類型的變量，試設(shè)計(jì)一個(gè)算法，把x與y中的數(shù)據(jù)相互交換。2設(shè)a、b、c是同一類型變量，并分別被賦予不同大小的數(shù)據(jù)，設(shè)計(jì)一個(gè)算法，使得執(zhí)行的結(jié)果為a>b>c。3設(shè)計(jì)一個(gè)可以判斷某數(shù)是否是素?cái)?shù)的算法(所謂素?cái)?shù)是指只

32、能被1和自身整除的數(shù))。4設(shè)計(jì)一個(gè)判斷某正整數(shù)是一個(gè)回文數(shù)的算法。所謂回文數(shù)是指左右數(shù)字完全對(duì)稱的自然數(shù)。例如，121、12321、484、555等都是回文數(shù)。5設(shè)計(jì)一個(gè)算法，求出給定的自然數(shù)a的所有因子。6在文本框Textl與Text2中分別輸入35與48，變量S與X分別為字符型與整型，試問，以下賦值語句的執(zhí)行結(jié)果是什么? S=Textl.Text+Text2.Text X= Textl.Text+Text2.Text S=Textl.Text & Text2.Text X= Textl.Text & Text2.Text S=Val(Textl.Text)+Text2Tex

33、t X=Val(Textl.Text)+Text2.Text S=Val(Textl.Text) & Text2. Text X=Val(Textl.Text) & Text2.Text習(xí)題4.4操作題1將鍵盤輸入的一位數(shù)字翻譯為英文單詞，如圖4-6所示。若輸入長(zhǎng)度大于1且不是0-9之間的數(shù)字，顯示“輸入錯(cuò)誤，請(qǐng)重新輸入”的信息。圖4-6 數(shù)字轉(zhuǎn)單詞界面2從鍵盤輸入一個(gè)大寫字母，要求改用小寫字母輸出。提示：Visual Basic提供了一個(gè)標(biāo)準(zhǔn)函數(shù)Lcase（x），方便地將大寫字母轉(zhuǎn)換成小寫字母3. 輸入三角形的三條邊a，b，c的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。若能，還要顯

34、示三角形的性質(zhì)：等邊三角形、等腰三角形、直角三角形、任意三角形。并計(jì)算周長(zhǎng)與面積。并把結(jié)果存入數(shù)據(jù)文件“area.dat”中。程序界面如圖4-7所示。圖4-7判斷三角形程序界面 4貨幣兌換。將輸入的人民幣金額按指定的要求兌換為美元或港幣。美元和人民幣兌換比為1:6.65；人民幣和港幣兌換比為1.15:1。要求：（1）應(yīng)用程序窗體如圖4-8所示。（2）程序運(yùn)行時(shí)和單擊“清除”按鈕后，光標(biāo)自動(dòng)停在人民幣金額文本框中。圖4-8 幣種兌換界面（3）程序運(yùn)行時(shí)默認(rèn)幣種為美圓。提示：計(jì)算時(shí)根據(jù)OptionButton選中的幣別（即OptionButton的Value屬性）進(jìn)行判斷，來決定用哪個(gè)計(jì)算公式進(jìn)行

35、幣種之間的換算。5計(jì)稅款。國(guó)家規(guī)定，收稅標(biāo)準(zhǔn)如下： 收入 超出部分稅率 1000 以下 0 1000£s<1500 5% 1500£s<2000 10% 2000£s<2500 15% 2500£s<5000 20% 5000以上 25% 提示：本題是一個(gè)典型的多分支情況，如果使用嵌套的If結(jié)構(gòu)，層次復(fù)雜，容易產(chǎn)生 If和End If不匹配的語法錯(cuò)誤。因此建議使用If Then-Else If結(jié)構(gòu)或Select Case結(jié)構(gòu)，程序比較清晰，可讀性好。6計(jì)算分段函數(shù)y的值。7從鍵盤輸入三個(gè)數(shù)，將它們從大到小依次排列輸出。圖4-9 三

36、數(shù)排序注意：a、b、c三個(gè)數(shù)之間的各種可能性都要考慮到，才能得到正確結(jié)果。請(qǐng)輸入各種不同情況的數(shù)據(jù)驗(yàn)證程序。參考答案1.程序界面與參考程序：Private Sub Form_Click()Dim x%, y%, z$x = InputBox("x=?")y = Len(Trim(x) '求數(shù)字x的長(zhǎng)度If y > 1 Or x < 0 And x > 9 Then MsgBox "輸入錯(cuò)誤，請(qǐng)重新輸入"ElseSelect Case x Case 0 z = "zero" Case 1 z = "o

37、ne" Case 2 z = "two" Case 3 z = "three" Case 4 z = "four" Case 5 z = "five" Case 6 z = "six" Case 7 z = "seven" Case 8 z = "eight" Case 9 z = "nine" End Select Text1 = x Text2 = zEnd IfEnd Sub 2. 參考程序：Private Sub Fo

38、rm_Click()Dim x$, y$x = InputBox("x=?")If Asc(x) < 65 Or Asc(x) > 90 Then MsgBox "輸入錯(cuò)誤，請(qǐng)重新輸入"Else y = LCase(x)End IfText1 = xText2 = yEnd Sub3. 參考程序：Private Sub Command1_Click() Dim a!, b!, c!, s!, area! a = InputBox("輸入三角形邊a") b = InputBox("輸入三角形邊b") c

39、= InputBox("輸入三角形邊c") If a<=0 or b<=0 or c<=0 or a + b <= c Or a + c <= b Or b + c <= a Then MsgBox "不能夠成三角形，請(qǐng)重新輸入" Else If a = b And b = c Then Text4 = "是等邊三角形" ElseIf a = c Or b = c Or a = b Then Text4 = "是等腰三角形" ElseIf a 2 + b 2 = c 2 Or a

40、 2 + c 2 = b 2 Or c 2 + b 2 = a 2 Then Text4 = "是直角三角形" Else Text4 = "是任意三角形" End If Open “D:area.dat” For Output As#1 Text1 = a Text2 = b Text3 = c Text5 = a + b + c s = (a + b + c) / 2 Text6 = Format(Sqr(s * (s - a) * (s - b) * (s - c), "0.00") Write #1，Text5，Text6 End IfEnd Sub4. 參考程序：Private Sub Option1_Click() Label2 = "美元" Text2 = "" Text1.SetFocusEnd SubPrivate Sub Option2_Click() Label1 = "港幣" Text2 = &quo