實(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)的“半徑”或“邊長”。3在 Text1 中輸入數(shù)值后，按確定按鈕，在Text2 中顯示計(jì)算的面積。4形狀轉(zhuǎn)換時(shí)，要清除前次結(jié)果（兩個(gè)文本框清空），光標(biāo)聚焦Text1。5按“退出”按鈕，結(jié)束運(yùn)行。圖 4-1 程序界面提示：可以

2、根據(jù)單選按鈕的Value 屬性進(jìn)行判斷， 當(dāng)某個(gè)按鈕值為真時(shí)，則進(jìn)行與之相應(yīng)的計(jì)算。因此，可以使用分支結(jié)構(gòu)（If Then）來實(shí)現(xiàn)條件判斷功能。實(shí)驗(yàn)步驟：1屬性設(shè)置如下：控件名稱Label1Label2Text1Text2FrameOption1Option2Option3Command1Command2屬性名稱CaptionCaptionTextTextCaptionCaptionCaptionCaptionCaptionCaption屬性值空面積空空選擇形狀圓形正三角形正方形計(jì)算退出2添加代碼Option ExplicitConst Pi As Single = 3.141593Priva

3、te Sub Option1_Click()Label1 = " 半徑 "Text1 = ""Text2 = ""Text1.SetFocusEnd SubPi 為“符號(hào)常量”類型，不可再次賦值Private Sub Option2_Click()Label1 = " 邊長 "Text1 = ""Text2 = ""Text1.SetFocusEnd SubPrivate Sub Option3_Click()填寫一段程序（可以模仿Option2_Click()中的代碼）En

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

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

6、義一個(gè)整型變量 N 用作計(jì)數(shù)，其初值為 0，登錄一次不正確， N 就加 1，如果 N=3 ，則結(jié)束整個(gè)應(yīng)用程序。操作步驟：1窗體設(shè)計(jì)，在窗體上放置一個(gè)Label 控件、一個(gè) TextBox 控件和兩個(gè) CommandButton按鈕，按照圖 4-2 排列控件，設(shè)置控件大小。2屬性設(shè)置缺省名稱屬性名稱屬性值Caption登錄窗體 1nameLoginBorderStyle1-Fixed SingleNamelblPassword標(biāo)簽 1AutoSizeTrueCaption輸入口令NametxtPassword文本框 1Text空PasswordChar*NamecmdOk命令按鈕 1Capti

7、on確定DefaultTrue命令按鈕 2NamecmdExitCaption退出3添加代碼：Option ExplicitDim N As Integer N 用來統(tǒng)計(jì)登錄次數(shù)，注意不能在過程中定義 Private Sub cmdOk_Click()If txtpassword.Text = "Basic1234" ThenMsgBox " 祝賀你，成功登錄！"彈出消息框ElseN=N+1If N = 3 ThenMsgBox " 對(duì)不起，你無權(quán)登錄該系統(tǒng)！ ", vbExclamation 彈出消息框 EndEnd IfMsgBo

8、x " 對(duì)不起，口令錯(cuò)誤，無法登錄！ ", vbExclamation 彈出消息框 txtpassword.Text = ""txtpassword.SetFocusEnd IfEnd SubPrivate Sub cmdExit_Click()'退出EndEnd 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

9、-3 所示。提示：系統(tǒng)日期可以通過Date 函數(shù)得到，年號(hào)、月份、日期和星期號(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è)置控件名稱屬性名稱屬性值NameLblDate標(biāo)簽 1Font宋體三號(hào)粗斜體Caption空41BoderStyle1Aligement2AutoSizeTrueWordWrapTrue3添加代碼（請補(bǔ)充缺少的語句）'R

10、q 為當(dāng)前系統(tǒng)日期，Y 為年號(hào)，m 為月份，d 為日期，w1為數(shù)值型的星期號(hào)，w2為轉(zhuǎn)換后的大寫的星期號(hào)Dim Y As Integer, m As Integer, d As Integer, w1 As Integer Dim Rq As DateDim w2 As StringPrivate Sub Form_Load()Rq = _Y = _m = _d = _w1 = Weekday(Rq, vbMonday) '設(shè)星期一為第一天，缺省值星期日是第一天 Select Case w1Case 1w2 = " 一 "Case 2w2 = " 二 &q

11、uot;Case 3w2 = " 三 "Case 4w2 = " 四 "Case 5w2 = " 五 "Case 6w2 = " 六 "Case 7w2 = " 日 "End SelectLblDate.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ù)為零，要用

12、Msgbox 消息框提示“除數(shù)不能為零”、清空輸入數(shù)2 的文本框、讓該文本框獲得焦點(diǎn)，等待重新輸入合法的數(shù)據(jù)。提示：設(shè)計(jì)界面如圖4-4 所示，屬性設(shè)置如下：控件名稱屬性名稱屬性值Label1Caption輸入數(shù) 1Label2Caption輸入數(shù) 2Label3Caption輸入操作符Label4Caption計(jì)算結(jié)果Text1Text空Text2Text空Text3Text空Text4Text空Command1Caption計(jì)算Command2Caption結(jié)束43實(shí)驗(yàn) 4.5 方程求解實(shí)驗(yàn)任務(wù)：編程實(shí)現(xiàn)一元二次方程求解。要求任意輸入方程的系數(shù)兩個(gè)根 xl ，x2，并把方程系數(shù)和求得的根存入

13、數(shù)據(jù)文件a，b，c，計(jì)算并輸出方程的“ gen.dat”中，界面如圖4-5 所示。圖 4-5實(shí)驗(yàn) 4.5 運(yùn)行界面實(shí)驗(yàn)要求：1輸入 a， b， c 三個(gè)數(shù)，為了程序設(shè)計(jì)的方便可由三個(gè)文本框來實(shí)現(xiàn)2通過求根公式求得方程的根。計(jì)算的結(jié)果通過文本框顯示。要分為：a 0 時(shí)，按照一次方程求解a 0 時(shí)，b2-4ac>=0 按照二次方程求實(shí)根解b2-4ac<0按照二次方程求虛根解dalt = b * b - 4 * a * cdalt = Sqr(-dalt)'復(fù)根兩個(gè)須根分別為：文本框= Format(-b / 2 / a, "0.00") & &quo

14、t;+" & Format(dalt / 2 / a, "0.00") & "i"文本框= Format(-b / 2 / a, "0.00") & "-" & Format(dalt / 2 / a, "0.00") & "i"3為簡化程序，假設(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)、

15、順序結(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)組成，下面屬于三種基本結(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

16、） x=1 為賦值語句， y=l 為關(guān)系表達(dá)式5.用 If 語句表示分段函數(shù)f ( x)x1, x1）。x23, x，下列不正確的程序段是（1（ A） f=x*x+3（B） If x>=1 Then f=sqr(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+3Else f=sqr(x+1)6.計(jì)算分段函數(shù)值。0,x01,0x1y1x22,3,x2下面程序段中正確的是（）。（ A） If x&l

17、t;0 Then y=0（ B） If x>=2 Then y=3If x<l Then y=1If x>=1 Then y=245If x<2 Then y=2If x>0 Then y=1If x>=2 Then y=3If x<0 Then y=0（ C） If x<0 Then（ D） If x>=2 Theny=0y=3ElseIf x>0 ThenElseIf x>=1 Theny=1y=2ElseIf x>1 ThenElseIf x>=0 Theny=2y=1ElseElsey=3y=0End IfE

18、nd If7. 下面程序段，顯示的結(jié)果是（Dim xx=Int （ Rnd）十 5 Select Case xCase 5Print”優(yōu)秀”Case 4Print“良好”Case 3Print“通過”Case ElsePrint“不通過”End Select（ A）優(yōu)秀（ B）良好8. 下面程序段求兩個(gè)數(shù)中的大數(shù)，（ A） Max=IIf(x>y ， x， y)（ C） Max=x）。（ C）通過（ D）不通過（ ）不正確。（ B）If x>y Then Max=x Else Max=y（ D） If y>=x Then Max=yIf y>=x Then Max=yM

19、ax=x9.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else分支 "End SelectEnd Sub程序運(yùn)行后，如果在輸入對(duì)話框中輸入2，則窗體上顯示的是（ A）分支 1（ B）分支 2（ C） Else 分支（ D）程序出錯(cuò)10. 以下 Cas

20、e 語句中錯(cuò)誤的是（ A） Case 0 To 10（ B） Case Is>10（ C） Case Is>10 And Is<50（ D） Case 3,5,Is>1011.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是（A）-5（B）25（C）1（D）-112. 在窗體上畫一個(gè)名稱為 Text1 的文本框，要求文本框只

21、能接收大寫字母的輸入。以下能實(shí)現(xiàn)該操作的事件過程是（ A） Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 65 Or KeyAscii > 90 ThenMsgBox "請輸入大寫字母"KeyAscii = 0End IfEnd Sub（ B） Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode > 90 ThenMsgBox " 請輸入

22、大寫字母 " KeyCode = 0End IfEnd Sub（ C） Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 ThenMsgBox "請輸入大寫字母"End If47End Sub（ D） Private Sub Text1_Change()If Asc(Text1.Text) > 64 And Asc(Text

23、1.Text) < 91 ThenMsgBox "請輸入大寫字母"End IfEnd Sub13.設(shè) a=6，則執(zhí)行x=IIF(a>5,-1,0)（A）5（B） 6（C）0后， x 的值為（D） -114. 下列語句正確的是（ A） If A B Then Print "A（ B） If A <> B Then Printf "A（ C） If A <> B Then Print "A（ D） If A B Then Printf "A不等于 B"不等于 B"不等于 B"

24、;不等于 B"15. 下面程序段執(zhí)行結(jié)果為x = Int(Rnd() + 4)Select Case xCase 5Print "excellent"Case 4Print "good"Case 3Print "pass"Case ElsePrint "fail"End Select（ A） excellent（ B） good（ C）pass（D） fail16.設(shè) a = "a"，b = "b"， c = "c"， d = "d&q

25、uot;，執(zhí)行語句 x = IIf(a < b) Or (c > d),"A", "B")后， x 的值為（ A） a（ B） b（C）A（D） B17.下列程序執(zhí)行后，變量a 的值為Dim a, b, c, d As Singlea = 100: b = 20: c = 1000If b > a Thend = a: a = b: b = dEnd IfIf c > a Thend = b: b = c: c = dEnd If（A）0（ B） 1000（C）20（ D） 10018. 執(zhí)行下面的程序段后，變量c 的值為a =

26、14b = 30Select Case b 10Case 0c = a * 10 + bCase 1 To 9c = a * 100 + bCase 10 To 99c = a * 1000 + bEnd SelectPrint c（ A） 363（ B） 2548（ C） 1430（ D）9875參考答案1.D2.B3.A x沒有賦值，默認(rèn)為0。而在 VB中， 0 作為邏輯常量False ，非 0 作為 True 。4.C5.C6.D7.A8.D9.C10.C11.C12.A13.D14.C 15.B 16.C 17.D 18.C習(xí)題 4.2 填空題1下面程序運(yùn)行后輸出的結(jié)果是(空 1)。x

27、=Int(Rnd)+3If x2>8 Then y=x2+1If x2=9 Then y=x2-2If x2<8 Then y=x3Print y2下面程序的功能是(空 2)。Dim n% ， m%Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf IsNumeric(Text1.Text) ThenSelect Case Text1.Text Mod 2Case 0n=n+Text1.TextCase 149m=m+Text1.TextEnd SelectEnd IfText1.Text=&qu

28、ot;"Text1.SetFocusEnd IfEnd Sub3下面的程序段是檢查輸入的算術(shù)表達(dá)式中圓括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果。本程序在文本框輸入表達(dá)式，邊輸入，邊統(tǒng)計(jì)，以輸入回車符作為表達(dá)式輸入結(jié)束，然后顯示結(jié)果。Dim count1%Private Sub Text1_KeyPress(KeyAscii As Integer)If(空 3)= "("Thencount1=count1+1ElseIf(空 4)= ")"Then(空 5)End IfIf KeyAscii=13 ThenIf(空 6)ThenPrint "左右

29、括號(hào)配對(duì)"Else If(空 7)ThenPrint"左括號(hào)多于右括號(hào)" ； count1ElsePrint"右括號(hào)多于左括號(hào)" ； -count1End IfEnd IfEnd Sub；"個(gè)"；" 個(gè)"4 輸入文本框中若干字符，統(tǒng)計(jì)有多少個(gè)元音字母、有多少個(gè)其他字母，直到按Enter鍵結(jié)束，并顯示結(jié)果，大小寫不區(qū)分。其中CountY 中放元音字母個(gè)數(shù)，CountC 中放其他字符數(shù)。Dim CountY%， CountC%Private Sub Textl_KeyPress(KeyAscii As Int

30、eger)Dim C$C=(空 8)If "A"<=C And C<="Z"ThenSelect Case(空 9)Case(空10)CountY=CountY+1Case(空11)CountC=CountC+1End SelectEnd IfIf(空 12)ThenPrint "元音字母有 " ；CountY； " 個(gè) "Print"其他字母有 " ； CountC； " 個(gè)"End IfEnd Sub參考答案1.72. 分別統(tǒng)計(jì)輸入若干數(shù)的奇數(shù)和、偶數(shù)和，存放

31、在m、 n 中3.Chr(KeyAscii)4.Chr(KeyAscii)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 簡答題1設(shè) x 與 y 是同一類型的變量，試設(shè)計(jì)一個(gè)算法，把x 與 y 中的數(shù)據(jù)相互交換。2設(shè) a、 b、c 是同一類型變量，并分別被賦予不同大小的數(shù)據(jù)，設(shè)計(jì)一個(gè)算法，使得執(zhí)

32、行的結(jié)果為 a>b>c。3設(shè)計(jì)一個(gè)可以判斷某數(shù)是否是素?cái)?shù)的算法( 所謂素?cái)?shù)是指只能被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.TextX= Textl.Text+Text2.TextS=Textl.Text & Text2.Te

33、xtX= Textl.Text & Text2.TextS=Val(Textl.Text)+Text2 TextX=Val(Textl.Text)+Text2.Text51S=Val(Textl.Text) & Text2. TextX=Val(Textl.Text) & Text2.Text習(xí)題 4.4 操作題是1將鍵盤輸入的一位數(shù)字翻譯為英文單詞，如圖4-60-9 之間的數(shù)字，顯示“輸入錯(cuò)誤，請重新輸入”的信息。所示。若輸入長度大于1 且不圖 4-6 數(shù)字轉(zhuǎn)單詞界面2從鍵盤輸入一個(gè)大寫字母，要求改用小寫字母輸出。提示： Visual Basic 提供了一個(gè)標(biāo)準(zhǔn)函數(shù)

34、Lcase（ x），方便地將大寫字母轉(zhuǎn)換成小寫字母3. 輸入三角形的三條邊 a， b， c 的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。若能，還要顯示三角形的性質(zhì)：等邊三角形、等腰三角形、直角三角形、任意三角形。并計(jì)算周長與面積。并把結(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 幣種兌換界面（

35、 3）程序運(yùn)行時(shí)默認(rèn)幣種為美圓。提示：計(jì)算時(shí)根據(jù)OptionButton 選中的幣別（即OptionButton 的 Value 屬性）進(jìn)行判53斷，來決定用哪個(gè)計(jì)算公式進(jìn)行幣種之間的換算。5計(jì)稅款。國家規(guī)定，收稅標(biāo)準(zhǔn)如下：收入超出部分稅率1000以下01000s<15005%1500s<200010%2000s<250015%2500s<500020%5000 以上25%提示：本題是一個(gè)典型的多分支情況，如果使用嵌套的If 結(jié)構(gòu)，層次復(fù)雜，容易產(chǎn)生 If 和 End If 不匹配的語法錯(cuò)誤。 因此建議使用 If Then-Else If 結(jié)構(gòu)或 Select Case

36、結(jié)構(gòu)，程序比較清晰，可讀性好。6計(jì)算分段函數(shù) y 的值。1x02yx0x57從鍵盤輸入三個(gè)數(shù)，將它們從大到小依次排列輸出。圖4-9 三數(shù)排序注意： a、 b、 c三個(gè)數(shù)之間的各種可能性都要考慮到，才能得到正確結(jié)果。請輸入各種不同情況的數(shù)據(jù)驗(yàn)證程序。參考答案1.程序界面與參考程序：Private Sub Form_Click()Dim x%, y%, z$x = InputBox("x=?")y = Len(Trim(x) ' 求數(shù)字 x的長度If y > 1 Or x < 0 And x > 9 ThenMsgBox " 輸入錯(cuò)誤，請重新

37、輸入"ElseSelect Case xCase 0z = "zero"Case 1z = "one"Case 2z = "two"Case 3z = "three"Case 4z = "four"Case 5z = "five"Case 6z = "six"Case 7z = "seven"Case 8z = "eight"Case 9z = "nine"End SelectText1

38、 = xText2 = zEnd IfEnd Sub2. 參考程序：Private Sub Form_Click()Dim x$, y$x = InputBox("x=?")If Asc(x) < 65 Or Asc(x) > 90 Then55MsgBox " 輸入錯(cuò)誤，請重新輸入"Elsey = LCase(x)End IfText1 = xText2 = yEnd Sub3. 參考程序：Private Sub Command1_Click()Dim a!, b!, c!, s!, area!a = InputBox(" 輸入三

39、角形邊a")b = InputBox(" 輸入三角形邊b")c = InputBox(" 輸入三角形邊c")If a<=0 or b<=0 or c<=0 or a + b <= c Or a + c <= b Or b + c <= a ThenMsgBox " 不能夠成三角形，請重新輸入"ElseIf a = b And b = c ThenText4 = " 是等邊三角形 "ElseIf a = c Or b = c Or a = b ThenText4 = &q

40、uot; 是等腰三角形 "ElseIf a 2 + b 2 = c 2 Or a 2 + c 2 = b 2 Or c 2 + b 2 = a 2 ThenText4 = " 是直角三角形 "ElseText4 = " 是任意三角形 "End IfOpen “D:area.dat”For Output As#1Text1 = aText2 = bText3 = cText5 = a + b + cs = (a + b + c) / 2Text6 = Format(Sqr(s * (s - a) * (s - b) * (s - c), "0.00")Write #1 ， Text5， Text6End IfEnd Sub4. 參考程序：Private Sub Option1_Click()Label2 = " 美元 "Text2 = ""Text1.SetFocusEnd SubPrivate Sub Option2_Click