【正文】 pfg = Format(Sqr(x), )lf = Format(x * x * x, )lfg = Format(x ^ (1 / 3), )Print 平方為:。 pf。 Space(3)。 平方根為:。 pfg。 Space(3)。 立方為:。 lf。 Space(3)。 立方根為:。 lfgEnd Sub實驗31在購買某物品時，若所標(biāo)明的價錢x在下述范圍內(nèi)，所付錢y按對應(yīng)折扣支付：　　　　提示:此例用多分支結(jié)構(gòu)實現(xiàn),注意計算公式和條件表達(dá)式的正確書寫。Private Sub Form_Click()Dim x!, y!x = Val(InputBox(輸入x的值))If x 1000 Theny = xElseIf x 2000 Theny = * xElseIf x 3000 Theny = * xElsey = * xEnd IfPrint yEnd Sub實驗32編一個程序輸入上網(wǎng)的時間并計算上網(wǎng)費(fèi)用，計算方法如下：同時為了鼓勵多上網(wǎng)，每月收費(fèi)最多不超過150元。提示：首先利用多分支If語句根據(jù)3個時間段算出費(fèi)用，然后再用單分支If語句對超過150元的費(fèi)用設(shè)置為150元。Private Sub Form_Click()Dim x!, y!x = Val(InputBox(輸入上網(wǎng)時間))If x 10 Theny = 30ElseIf x 50 Theny = 30 + * (x 10)Elsey = 30 + * 40 + 2 * (x 50)End IfIf y 150 Theny = 150End IfPrint yEnd Sub實驗33輸入x,y,z三個數(shù)，按從大到小的次序顯示?！?提示：①利用InputBox函數(shù)輸入3個數(shù)，存放到數(shù)值型變量中，然后對其進(jìn)行比較；若放在字符串變量中，有時會得到不正確的結(jié)果（因為字符串是從左到右的規(guī)則比較，例如會出現(xiàn)“34”“2345”“126789”的情況）。②對三個數(shù)進(jìn)行排序，只能通過兩兩比較，一般可用三條單分支if語句來實現(xiàn)。方法如下：先將x與y比較，使得xy；然后將x與z比較，使得xz，此時x最大；最后將y與z比較，使得yz。③要顯示多個數(shù)據(jù)，可以用“?！敝鹨伙@示，也可利用“amp?！弊址B接符將多個變量連接顯示。例如要輸出x、y、z：Print ”排序后”。x?！?”。y?！?”。z ‘用分號將多個變量顯示也可Print ”排序后”amp。 x amp?！?” amp。 y amp。” ” amp。z ‘用”amp?！弊址B接符　思考：若要按從小到大的次序顯示，程序?qū)⑷绾涡薷?？Private Sub Command1_Click()Dim x!, y!, z!x = InputBox(input x)y = InputBox(input y)z = InputBox(input z)Print x y zPrint 排序前。 x。 。 y。 。 zIf x y Then t = x: x = y: y = tIf x z Then t = x: x = z: z = tIf y z Then t = y: y = z: z = tPrint 排序后。 x。 。 y。 。 zEnd Sub實驗34編一模擬袖珍計算器的完整程序。要求：輸入兩個操作數(shù)和一個操作符，根據(jù)操作符決定所做的運(yùn)算?！?提示：對于存放操作符的文本框Text3，利用Select Case語句實現(xiàn)相應(yīng)的運(yùn)算。Private Sub Command2_Click() = = = = End SubPrivate Sub Text3_LostFocus()Select Case Trim(Text3)Case +Text4 = Val(Text1) + Val(Text2)Case Text4 = Val(Text1) Val(Text2)Case *Text4 = Val(Text1) * Val(Text2)Case /If Val(Text2) = 0 ThenMsgBox 分母為零，重新輸入Text2 = ElseText4 = Val(Text1) / Val(Text2)End IfEnd SelectEnd Sub實驗35利用計算機(jī)解決古代數(shù)學(xué)問題”雞兔同籠問題”。即已知在同一個籠子里有總數(shù)為M只雞和兔，雞和兔的總腳數(shù)為N只，求雞和兔各有多少只？提示：雞、兔的只數(shù)通過已知輸入的M,N列出方程可解， 設(shè)雞為x只，兔為y只，則計算公式為:但不要求出荒唐的解（、或者求得的只數(shù)為負(fù)數(shù)）。因此，在Text2_LostFocus事件中要考慮下面兩個條件：①輸入的總腳數(shù)N必須是偶數(shù)，否則提示數(shù)據(jù)錯誤的原因，要求重新輸入數(shù)據(jù)。（使用求余方法判斷，即N Mod 20） ②若求出的只數(shù)為負(fù)數(shù)，提示數(shù)據(jù)錯誤的原因，重新輸入數(shù)據(jù)。(使用總只數(shù)和總腳數(shù)的關(guān)系，即N4*M Or N2*M )Private Sub Text2_LostFocus()Dim M%, N%, y%M = Val(Text1)N = Val(Text2)If N Mod 2 0 ThenMsgBox (腳數(shù)必須是偶數(shù))Text2 = Elsey = N / 2 MIf N 4 * M Or N 2 * M ThenMsgBox (出現(xiàn)荒唐解，請重新輸入)Text2 = Elsey = N / 2 MLabel2 = M yLabel3 = yEnd IfEnd IfEnd Sub實驗36輸入一元二次方程的ax2+bx+c=0的系數(shù)a,b,c,計算并輸出一元二次方程的兩個根x1,x2?！?提示：要考慮實根，要求判斷b^24*a*c=0。Private Sub Command1_Click()Dim a!, b!, c!, x1!, x2!, de!a = Text1b = Text2c = Text3de = b * b 4 * a * ct = 2 * aIf de = 0 ThenText4 = Format(b / t, )Text5 = Format(b / t, )ElseIf de 0 ThenText4 = Format((b + Sqr(de)) / t, )Text5 = Format((b Sqr(de)) / t, )ElseText4 = Format(b / t, ) amp。 + amp。 Format(Sqr(Abs(de)) / t, ) amp。 iText5 = Format(b / t, ) amp。 amp。 Format(Sqr(Abs(de)) / t, ) amp。 iEnd IfEnd SubPrivate Sub Command2_Click()Text1 = Text2 = Text3 = Text4 = Text5 = End Sub實驗37檢查表達(dá)式輸入中圓括號配對問題。要求對文本框輸入的算術(shù)表達(dá)式，檢驗其圓括號配對情況，并給出相應(yīng)信息。當(dāng)單擊“重置”按鈕，清除文本框輸入的內(nèi)容、窗體顯示的信息和計算，并對窗體級變量賦初值零，便于再次輸入和統(tǒng)計。　　提示：①在過程外最上方聲明一個窗體級變量n，存放統(tǒng)計括號配對的情況；②在Text1_KeyPress(KeyAscii As integer)事件過程中進(jìn)行如下處理：If Chr(KeyAscii)不是等號 Then若是左括號”(”則n=n+1。若是右括號”)”則n=n1。Else結(jié)束表達(dá)式輸入，對n的3種情況：=n、0、0用Print方法顯示相應(yīng)的信息End If用一個嵌套的雙分支和內(nèi)嵌兩個多分支結(jié)構(gòu)來實現(xiàn)。Dim n!Private Sub Command1_Click() = n = 0ClsEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) = ThenIf Chr(KeyAscii) = ( Thenn = n + 1End IfIf Chr(KeyAscii) = ) Thenn = n 1End IfElseIf n = 0 ThenPrint 括號配對成功。ElseIf n 0 ThenPrint 左括號多于右括號 amp。 n amp。 個，按“重置”按鈕，重新輸入End IfIf n 0 ThenPrint 右括號多于左括號 amp。 n amp。 個，按“重置”按鈕，重新輸入End IfEnd IfEnd IfEnd Sub實驗38輸入一個數(shù)字（1～7），分別通過Select語句和Choose函數(shù)兩種方法用英文顯示對應(yīng)的星期一～星期日，效果如圖所示：　Private Sub Command1_Click()Select Case Trim(Text1)Case 1Label2 = MondayCase 2Label2 = TuesdayCase 3Label2 = WednesdayCase 4Label2 = ThursdayCase 5Label2 = FridayCase 6Label2 = SaturdayCase 7Label2 = SundayCase Is 7, Is 1MsgBox 數(shù)字為1~7，重新輸入Text1 = End SelectEnd SubPrivate Sub Command2_Click()If Text1 7 Or Text1 1 ThenMsgBox 數(shù)字為1~7，重新輸入Text1 = ElseLabel3 = Choose(Text1, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday)End IfEnd Sub實驗39。當(dāng)輸入?yún)?shù)，選擇“函數(shù)”和“字形”后單擊“計算”按鈕，在Label3以選擇的字形顯示計算的結(jié)果。提示：關(guān)于“字形”復(fù)選框的選用采用逐個判斷選擇，進(jìn)行屬性值的對應(yīng)設(shè)置。，設(shè)置屬性值為True時其屬性起作用。字 形 屬 性意義FontBold粗體FontItalic斜體FontStrikethru刪除線FontUnderline下劃線　 Private Sub Command1_Click()If Then = Sin( amp。 amp。 )= amp。 Sin(Val())ElseIf Then = Exp( amp。 amp。 )= amp。 Exp(Val())Else = Sqr( amp。 amp。 )= amp。 Sqr(Val())End IfIf Then = TrueElse = FalseEnd IfIf Then = TrueElse = FalseEnd IfIf Then = TrueElse = FalseEnd IfEnd Sub實驗310利用單選按鈕，選擇目的地和車速類型，顯示從上海出發(fā)到目的地座票的票價。從上海到南京、北京乘火車有3種車速類型：高鐵（二等）、動車、快車。當(dāng)選擇了目的地、車速類型單選按鈕后，在Label1控件顯示選擇的相關(guān)信息和車票價格。 票 價目 的 地高 鐵動 車快 車南京1409347北京555410179　 提示：Command1_Click事件采用一個雙分支（目的地）結(jié)構(gòu)分別嵌套一個多分支（車速類型）來實現(xiàn)；顯示的內(nèi)容通過各單選按鈕的Caption屬性來獲得。Private Sub Command1_Click()If = True ThenIf = True Then = 從上海到南京 高鐵價格 140元ElseIf = True Then = 從上海到南京 動車價格 93元Else = 從上海到南京 快車價格 47元End IfElseIf = True Then = 從上海到北京 高鐵價格 555元ElseIf = True Then = 從上海到北京 動車價格 410元Else = 從上海到北京 快車價格 179元End IfEnd IfEnd Sub實驗311編寫一個“個人簡歷表”程序。該程序運(yùn)行后，用戶在文本框中輸入姓名和年齡，選擇性別、職業(yè)、學(xué)歷和個人興趣等個人信息。單擊“遞交”按鈕運(yùn)行后，在右側(cè)Label1控件顯示具體個人