Visual Basic程序設(shè)計教程(第4版)實驗答案

1、Last week, our economic work Conference held today, held the Countys rural areas for work and five water treatment, three to split Conference, which this year was a matter of Thirteen-Five important meeting of our Countys economic and social development. The main task of the meeting was, on rural wo

2、rk and conscientiously implement the Central, provincial and municipal five water treatment, three to split series of important conferences, learn from the past, study deployment priority tasks this year. Just now, the XXX Deputy head and Deputy County magistrate, respectively, on the work of the XX

3、 was fully deployed, and put forward specific measures and requirements about is in place. County Environmental Protection Bureau, the XX town, town of XX 3 units for a position statement, resounding, demonstrated determination and confidence. Conference also recognition has advanced representative,

4、 this, I also representative County, and County Government, to by recognition of advanced said warm of congratulated! to rural, and water and three modified a split front General cadres workers extend sincere of greeting! following, I again told five points views: a, and deepening awareness, further

5、 enhanced work of sense and urgency since party of 18 session v plenary proposed has innovation, and coordination, and green, and open, and shared five big development concept Hou, rural and environment governance work can said was upgrade to has more high of strategy level, is Thirteen-Five build w

6、ell-off a top priority task. XX, County besides lingxi, Longgang, jinxiang, the Treasury, the hills, several industrial town outside the city centre, is basically belong to other rural areas, area, the vast rural population. Same time, the current and coming period, is the County into a crucial peri

7、od of the South Gate of XX beautiful, environmental regulation directly affects the effectiveness of the strategic objectives can not be achieved. Therefore, the focus on rural work and five water treatment, three to split, the XX economic and social development has an important role. Last year, thr

8、ough the joint efforts of the County, reform of the agricultural and rural development has made great progress in our County, environmental remediation and achieved initial results. Three agriculture agricultural modernization level continues to increase, new 4-level modern agriculture Park, release

9、d 20 agricultural leading enterprises above the county level, the County area of 200 acres of land more than eco-leisure, investments of more than 5 million Yuan reached more than more than 100 agricultural projects. Rural development has improved continuously, boutique line 1 completed the beautifu

10、l countryside, fine village 17, beautiful rural development conference was held in lingxi peach Lake in the city. Promote comprehensive rural reform, included in the provinces building three in one system of farmers cooperative economic organization first promoting the County. Improvement of farmers

11、聲明：1. 實驗所屬課本原件為Visual Basic程序設(shè)計教程（第4版） （主編 龔沛曾 編者 楊志強 陸慰民 謝步瀛） ；2. 實驗答案代碼采用紅色字體突出 ；3. 僅提供課本前七個實驗的代碼，之后的實驗上課考試均不涉及故不作 ；4. 教學平臺上機實驗、課本篇后實驗，兩者題目操作略有差異，作業(yè)以前者要求為準，故以下答案代碼為前者代碼，如對后者代碼有所需求請私信 ；5. 本文為作者原創(chuàng)，復(fù)制轉(zhuǎn)載請注明出處 ；6. 如果對代碼有所疑問，或者略感繁瑣想直接要已完成實驗，請私信 ；7. 瀏覽、復(fù)制、下載后請給作者一個合理的評價，感激不盡 。實驗1-1編制簡單的歡迎界面程序。 要求：在屏幕上顯示“

12、歡迎學習Visual Basic”；在文本框Text1中輸入姓名；單擊命令按鈕“你輸入的姓名是”，在Label3標簽顯示在文本框中輸入的姓名。 程序運行效果如圖2.1.1所示。程序以“學號-1-1.frm”和“學號-1-1.vbp”文件名保存。以后每個實驗項目的命名規(guī)則都是如此，即“學號-實驗號-實驗題目”。（如某同學的學號為A10414001，所完成的是實驗2的第3題，那么程序文件名為“A10414001-2-3.frm”和“A10414001-2-3.vbp”） 圖2.1.1 實驗1.1運行界面提示： (1) 實驗所用到的控件及屬性設(shè)置見表2.1.1。表2.1.1 屬 性 設(shè) 置控件名屬

13、性Label1Caption=歡迎學習Visual Basic；Font屬性：字號為二號，字體為隸書，Aligment=2(居中)Label2Caption=請輸入你的姓名；Font屬性：字體為楷體，有下劃線Label3Caption=，BorderStyle=1Text1Text=Command1Caption=你輸入的姓名是(2) “歡迎學習Visual Basic”要在兩行顯示，只要將Label1控件的寬度縮小一些。Private Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub實驗1-2模仿教學篇例1.1，將事件過程中的自上而

14、下移動改為自右向左移動，同時考慮文字超出窗體邊界的情況。各個控件及屬性窗口的設(shè)置見表2.1.2，背景圖形文件可以選擇自己喜歡的，按鈕上的圖標可通過Windows搜索功能查找。以“學號-1-2”為項目名保存。表2.1.2 屬 性 設(shè) 置控件名屬 性Form1Caption=實驗1.2；Picture：選擇自己喜歡的圖片Label1Caption=我開始學習程序設(shè)計；FontSize=36；BackStyle=0Command1Caption=；Style=1；Picture=clock02.ico；ToolTipText自動Command2Caption=；Style=1；Picture=key

15、04.ico；ToolTipText手動Timer1Interval=0注：因為印刷錯誤，例題1.1中兩個命令按鈕的圖形與事件過程代碼不一致，需要調(diào)整。提示： 自定義事件過程MyMove代碼應(yīng)調(diào)整為，可實現(xiàn)文字移動方向的改變Sub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left 0 Then Label1.Left = Form1.WidthEnd SubSub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left 要求：(1) Command1

16、：使得Text1的字體和字號根據(jù)命令按鈕顯示的要求改變(2) Command2：要求將Text1選中的內(nèi)容及其格式復(fù)制到Text2。選中的內(nèi)容通過Text1的SelText屬性獲得提示：為使Text2文本框保持Text1中的字符格式，通過Text2.FontSize=Text1.FontSize和Text2.FontName=Text1.FontName實現(xiàn)Private Sub Command1_Click()Text1.FontName = 隸書Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2 = Text1.SelTe

17、xtText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd Sub實驗1-6圖片縮小、還原的設(shè)置。窗體上放置一個Image圖像控件和兩個命令按鈕。Image圖像控件裝入自己喜歡的圖片，設(shè)置Stretch屬性為True，使得圖片隨著圖像控件的大小而變，如圖2.1.4所示。以“學號-1-6”為項目名保存。圖2.1.4 實驗1.6運行界面要求：（1）單擊“縮小一半”按鈕，圖片縱、橫均縮小一半。（2）單擊“還原”按鈕，圖片與初始裝入時同大。提示：為了實現(xiàn)還原效果，要做以下3件事。（1）必須在事件過程外，即程序代碼最上方聲明窗體

18、級變量：Dim h%,w% 用戶輸入的變量聲明語句（2）在Form1_Load事件中保存圖像控件的初始值：w=Image1.Widthh=Image1.Height（3）在Command2_Click事件中還原為初始值：Image1.Width=wImage1.Height=h縮小一半Command1_Click事件請讀者自行完成。思考：若要設(shè)置圖片放大效果，如何修改代碼？Dim h%, w%Private Sub Command1_Click()Image1.Width = Image1.Width * 0.5Image1.Height = Image1.Height * 0.5End Su

19、bPrivate Sub Command2_Click()Image1.Width = wImage1.Height = hEnd SubPrivate Sub Form_Load()w = Image1.Widthh = Image1.HeightEnd Sub實驗2-1隨機生成3個正整數(shù)，其中一個1位數(shù)，1個2位數(shù)，1個3位數(shù)，計算它們的平均值，保留兩位小數(shù)，運行界面如圖2.2.1所示。圖2.2.1 實驗2.1運行界面提示：（1）隨機數(shù)生成某范圍內(nèi)的正整數(shù)公式為Int(Rnd*范圍+基數(shù))其中范圍=數(shù)的上限-下限+1，基數(shù)=數(shù)的下限。例如，要生成2位數(shù)，語句為Int(Rnd*(99-10+

20、1)+10)=Int(Rnd*90+10)（2）保留兩位小數(shù)，利用Format函數(shù)，形式為Format(要顯示的數(shù)值, 0.00 )。Private Sub Command1_Click()Text1.Text = Int(Rnd * 9 + 1)Text2.Text = Int(Rnd * 90 + 10)Text3.Text = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Text4.Text = Format(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3,

21、0.00)End SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub實驗2-2我國有13億人口，假定按人口年增長0.8%計算，多少年后我國人口超過26億。提示：（1）已知年增長率r=0.8%，求人數(shù)超過26億的年數(shù)n公式為：其中：Log(x)為對數(shù)函數(shù)，Log（2）緣由Log（13/26）,0.8%需寫成0.008（2）該題目的界面設(shè)計 由讀者自行設(shè)計。Private Sub Command1_Click()n = Int(Log(2) / Log(1 + 0.00

22、8) + 1)Text1 = n & 年后人口超過26億End Sub實驗2-3輸入一個合法的3位正整數(shù)，測試其數(shù)值合法性后，逆序輸出并顯示。例如，輸入“734”，輸出是“437”，如圖2.2.2所示。提示：（1）利用Text1_LostFocus事件，輸入數(shù)據(jù)合法性檢查調(diào)用IsNumeric函數(shù)，參閱教學篇例2.5；若有錯利用MsgBox顯示出錯信息，如圖2.2.3所示；清除文本框內(nèi)輸入的非法數(shù)據(jù)，通過SetFocus定位于文本框處，重新輸入。（2）利用“MOD”和“”運算符將一個3位數(shù)分離出3個1位數(shù)，然后利用乘法和加法運算將3個1位數(shù)連接成一個逆序的3位數(shù)。圖2.2.2 實驗2.3運行界

23、面 圖2.2.3 出錯信息Private Sub Command1_Click()Dim x%, x1%, x2%, x3%x = Val(Text1)x1 = x Mod 10x2 = (x Mod 100) 10x3 = x 100Label2 = x1 * 100 + x2 * 10 + x3End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Not IsNumeric(Text1.Text) ThenText1.Text = End IfEnd IfEnd SubPrivate Su

24、b Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox 輸入非數(shù)值數(shù)據(jù)，請重新輸入, , 數(shù)據(jù)檢驗Text1.Text = Text1.SetFocusEnd IfEnd Sub實驗2-4輸入一個字符串，分別調(diào)用UCase、Len、Mid、Left、Right函數(shù)，顯示如圖2.2.4所示的效果。圖2.2.4 實驗2.4運行界面提示：事件過程可以在Form_Click中編碼，輸出控件可以使用標簽控件。Private Sub Form_click()Label1 = UCase(Text1.Text)Label2 = Len(Text1

25、.Text)Label3 = Left(Text1, 11)Label4 = Mid(Text1, 12, 6)Label5 = Right(Text1, 5)End Sub實驗2-5效仿實驗2.4，驗證轉(zhuǎn)換函數(shù)的使用，Text1文本框輸入字符串，Text2文本框顯示調(diào)用所選函數(shù)的結(jié)果，4個命令按鈕為轉(zhuǎn)換函數(shù)，Label2顯示對應(yīng)的函數(shù)名，運行效果如圖2.2.5所示。圖2.2.5 實驗2.5運行界面Private Sub Command1_Click()Label2 = Val函數(shù)的結(jié)果Text2 = Val(Text1.Text)End SubPrivate Sub Command2_Cli

26、ck()Label2 = Str函數(shù)的結(jié)果Text2 = Str(Text1.Text)End SubPrivate Sub Command3_Click()Label2 = Chr函數(shù)的結(jié)果Text2 = Chr(Text1.Text)End SubPrivate Sub Command4_Click()Label2 = Asc函數(shù)的結(jié)果Text2 = Asc(Text1.Text)End Sub實驗2-6Print方法練習，顯示字符圖形。參考教學篇例4.4輸出簡單圖形，如圖2.2.6所示。要求窗體不可改變大小，當單擊“清屏”按鈕后，清除窗體所顯示的圖形。提示：利用循環(huán)語句和String函數(shù)

27、。讀者也可以發(fā)揮自己的想像力，設(shè)計更美觀的圖形。進一步要求：若要顯示如圖2.2.7所示的圖形，程序要如何修改？圖2.2.6 實驗2.6運行界面 圖2.2.7 進一步要求運行界面Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(15 - i * 2); String(2 * i - 1, ); String(10 - (2 * i - 1), ); String(2 * i - 1, )Next iEnd SubPrivate Sub Command2_Click()ClsEnd Sub實驗2-7用InputBox輸入一個正實數(shù)，用

28、Print方法在一行上顯示出它的平方和平方根、立方和立方根，每個數(shù)保留三位小數(shù)，其間有間隔。Private Sub command1_Click()x = Val(InputBox(輸入一個正實數(shù), 計算, 0)pf = Format(x * x, 0.000)pfg = Format(Sqr(x), 0.000)lf = Format(x * x * x, 0.000)lfg = Format(x (1 / 3), 0.000)Print 平方為:; pf; Space(3); 平方根為:; pfg; Space(3); 立方為:; lf; Space(3); 立方根為:; lfgEnd S

29、ub實驗3-1在購買某物品時，若所標明的價錢x在下述范圍內(nèi)，所付錢y按對應(yīng)折扣支付：提示:此例用多分支結(jié)構(gòu)實現(xiàn),注意計算公式和條件表達式的正確書寫。Private Sub Form_Click()Dim x!, y!x = Val(InputBox(輸入x的值)If x 1000 Theny = xElseIf x 2000 Theny = 0.9 * xElseIf x 3000 Theny = 0.8 * xElsey = 0.7 * xEnd IfPrint yEnd Sub實驗3-2編一個程序輸入上網(wǎng)的時間并計算上網(wǎng)費用，計算方法如下：同時為了鼓勵多上網(wǎng)，每月收費最多不超過150元。提

30、示：首先利用多分支If語句根據(jù)3個時間段算出費用，然后再用單分支If語句對超過150元的費用設(shè)置為150元。Private Sub Form_Click()Dim x!, y!x = Val(InputBox(輸入上網(wǎng)時間)If x 10 Theny = 30ElseIf x 150 Theny = 150End IfPrint yEnd Sub實驗3-3輸入x,y,z三個數(shù)，按從大到小的次序顯示，如圖2.3.1所示。圖2.3.1 實驗3.3運行界面提示：利用InputBox函數(shù)輸入3個數(shù)，存放到數(shù)值型變量中，然后對其進行比較；若放在字符串變量中，有時會得到不正確的結(jié)果（因為字符串是從左到右的

31、規(guī)則比較，例如會出現(xiàn)“34”“2345”“126789”的情況）。對三個數(shù)進行排序，只能通過兩兩比較，一般可用三條單分支if語句來實現(xiàn)。方法如下：先將x與y比較，使得xy；然后將x與z比較，使得xz，此時x最大；最后將y與z比較，使得yz。要顯示多個數(shù)據(jù)，可以用“;”逐一顯示，也可利用“&”字符串連接符將多個變量連接顯示。例如要輸出x、y、z：Print ”排序后”;x;” ”;y;” ”;z 用分號將多個變量顯示也可Print ”排序后”& x &” ” & y &” ” &z 用”&”字符串連接符思考：若要按從小到大的次序顯示，程序?qū)⑷绾涡薷?？Private Sub Command1_Cl

32、ick()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實驗3-4編一模擬袖珍計算器的完整程序，界面如圖2.3.2所示。要求：輸入兩個操作數(shù)和一個操作符，根據(jù)操作符決定所做的運算。圖

33、2.3.2 實驗3.4運行界面提示：對于存放操作符的文本框Text3，利用Select Case語句實現(xiàn)相應(yīng)的運算。Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = 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) * Va

34、l(Text2)Case /If Val(Text2) = 0 ThenMsgBox 分母為零，重新輸入Text2 = Text2.SetFocusElseText4 = Val(Text1) / Val(Text2)End IfEnd SelectEnd Sub實驗3-5利用計算機解決古代數(shù)學問題”雞兔同籠問題”。即已知在同一個籠子里有總數(shù)為M只雞和兔，雞和兔的總腳數(shù)為N只，求雞和兔各有多少只？提示：雞、兔的只數(shù)通過已知輸入的M,N列出方程可解， 設(shè)雞為x只，兔為y只，則計算公式為:但不要求出荒唐的解（如3.5只雞、4.5只兔，或者求得的只數(shù)為負數(shù)）。因此，在Text2_LostFocus事

35、件中要考慮下面兩個條件：輸入的總腳數(shù)N必須是偶數(shù)，否則提示數(shù)據(jù)錯誤的原因，要求重新輸入數(shù)據(jù)。（使用求余方法判斷，即N Mod 20）圖2.3.3 實驗3.5運行界面 若求出的只數(shù)為負數(shù)，提示數(shù)據(jù)錯誤的原因，如圖2.3.3所示，重新輸入數(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 = Text2.SetFocusElsey = N / 2 - MIf N 4 *

36、 M Or N =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, 0.00)Text5 = Format(-b / t, 0.00)ElseIf de 0 ThenText4 = Format(-b + Sqr(de) / t, 0.00)Text5 = Format(-b - Sqr(de) / t, 0.00)ElseText4 =

37、Format(-b / t, 0.00) & + & Format(Sqr(Abs(de) / t, 0.00) & iText5 = Format(-b / t, 0.00) & - & Format(Sqr(Abs(de) / t, 0.00) & iEnd IfEnd SubPrivate Sub Command2_Click()Text1 = Text2 = Text3 = Text4 = Text5 = End Sub實驗3-7檢查表達式輸入中圓括號配對問題。要求對文本框輸入的算術(shù)表達式，檢驗其圓括號配對情況，并給出相應(yīng)信息，如圖2.3.5所示。當單擊“重置”按鈕，清除文本框輸入的內(nèi)

38、容、窗體顯示的信息和計算，并對窗體級變量賦初值零，便于再次輸入和統(tǒng)計。提示：在過程外最上方聲明一個窗體級變量n，存放統(tǒng)計括號配對的情況；在Text1_KeyPress(KeyAscii As integer)事件過程中進行如下處理：If Chr(KeyAscii)不是等號 Then若是左括號”(”則n=n+1;若是右括號”)”則n=n-1;Else結(jié)束表達式輸入，對n的3種情況：=n、0、0用Print方法顯示相應(yīng)的信息End If用一個嵌套的雙分支和內(nèi)嵌兩個多分支結(jié)構(gòu)來實現(xiàn)。Dim n!Private Sub Command1_Click()Text1.Text = n = 0ClsEnd

39、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 左括號多于右括號 & n & 個，按“重置”按鈕，重新輸入End IfIf n 7, Is 7 Or Text1 1 ThenMsgBox 數(shù)字為17，重新輸入Text1 = Text1.Se

40、tFocusElseLabel3 = Choose(Text1, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday)End IfEnd Sub實驗3-9設(shè)計如圖2.3.6所示的計算程序。當輸入?yún)?shù)，選擇“函數(shù)”和“字形”后單擊“計算”按鈕，在Label3以選擇的字形顯示計算的結(jié)果。提示：關(guān)于“字形”復(fù)選框的選用采用逐個判斷選擇，進行屬性值的對應(yīng)設(shè)置。字形的屬性見表2.3.1，設(shè)置屬性值為True時其屬性起作用。字 形 屬 性意義FontBold粗體FontItalic斜體FontStrikethru刪除線FontUnd

41、erline下劃線圖2.3.6 實驗3.9運行界面Private Sub Command1_Click()If Option1.Value ThenLabel3.Caption = Sin( & Text1.Text & )= & Sin(Val(Text1.Text)ElseIf Option2.Value ThenLabel3.Caption = Exp( & Text1.Text & )= & Exp(Val(Text1.Text)ElseLabel3.Caption = Sqr( & Text1.Text & )= & Sqr(Val(Text1.Text)End IfIf Check

42、1.Value ThenLabel3.FontBold = TrueElseLabel3.FontBold = FalseEnd IfIf Check2.Value ThenLabel3.FontItalic = TrueElseLabel3.FontItalic = FalseEnd IfIf Check3.Value ThenLabel3.FontUnderline = TrueElseLabel3.FontUnderline = FalseEnd IfEnd Sub實驗3-10利用單選按鈕，選擇目的地和車速類型，顯示從上海出發(fā)到目的地座票的票價，如圖2.3.7所示。從上海到南京、北京乘火

43、車有3種車速類型：高鐵（二等）、動車、快車，座位票的票價見表2.3.2。當選擇了目的地、車速類型單選按鈕后，在Label1控件顯示選擇的相關(guān)信息和車票價格。表2.3.2 票 價目 的 地高 鐵動 車快 車南京1409347北京555410179圖2.3.7 實驗3.10運行界面提示：Command1_Click事件采用一個雙分支（目的地）結(jié)構(gòu)分別嵌套一個多分支（車速類型）來實現(xiàn)；顯示的內(nèi)容通過各單選按鈕的Caption屬性來獲得。Private Sub Command1_Click()If Option1.Value = True ThenIf Option3.Value = True The

44、nLabel1.Caption = 從上海到南京 高鐵價格 140元ElseIf Option4.Value = True ThenLabel1.Caption = 從上海到南京 動車價格 93元ElseLabel1.Caption = 從上海到南京 快車價格 47元End IfElseIf Option3.Value = True ThenLabel1.Caption = 從上海到北京 高鐵價格 555元ElseIf Option4.Value = True ThenLabel1.Caption = 從上海到北京 動車價格 410元ElseLabel1.Caption = 從上海到北京 快車

45、價格 179元End IfEnd IfEnd Sub實驗3-11編寫一個“個人簡歷表”程序。該程序運行后，用戶在文本框中輸入姓名和年齡，選擇性別、職業(yè)、學歷和個人興趣等個人信息。單擊“遞交”按鈕運行后，在右側(cè)Label1控件顯示具體個人信息；單擊“重置”按鈕則清除輸入的信息和所做的選擇。運行界面如圖2.3.8所示。圖2.3.8 個人簡歷表提示：利用xb，xl，zy，ah字符串變量分別保存性別、學歷、職業(yè)和愛好的選擇信息。Dim xm, xb, xl, zy, ah As StringPrivate Sub command1_Click()If Text1.Text = ThenText1.Se

46、tFocusMsgBox 姓名未填, , 提示Elsexm = Text1.TextEnd IfIf Not IsNumeric(Text2.Text) Or Val(Text2.Text) = 60 ThenText2.Text = Text2.SetFocusMsgBox 年齡輸入錯誤, , 提示Elsenl = Val(Text2.Text)End IfIf Option1.Value Thenxb = Label4.CaptionElseIf Option2.Value Thenxb = Label5.CaptionElseMsgBox 性別未選, , 提示End IfIf Option3.Value Thenxl = Label6.CaptionElseIf Option4.Value Thenxl = Label7.CaptionElseIf Option5.Value Thenxl = Label8.CaptionElseMsgBox 學歷未選, , 提示End IfIf Option6.Value Thenzy = Label9.CaptionElseIf Option7.Value Thenz