VB課本習(xí)題答案

1、第3章 程序流程控制31 填空題1設(shè)變量r 表示圓的半徑，則計算圓的面積并賦給變量s使用的賦值語句為（ s=3.14159*r*r ）。2 給命令按鈕Command2的Caption屬性賦予字符串“退出”使用的賦值語句為（ Command2.Caption=退出 ）。3為了求n的階乘，要求用戶輸入n的值。程序使用InputBox函數(shù)輸入，要求對話框提示信息為“請輸入一個求階乘的數(shù)：”，標(biāo)題為“求數(shù)的階乘”，并且正確地把輸入的信息轉(zhuǎn)換為數(shù)值存放到變量n中，則使用的賦值語句為（ n=val（InputBox（請輸入一個求階乘的數(shù)：，求數(shù)的階乘） ）。如果使用MsgBox對話框顯示提示信息“退出本系

2、統(tǒng)？”，并顯示“是（Yes）”和“否（No）”兩個按鈕，顯示圖標(biāo)“？”號，指定第一個按鈕為默認(rèn)值以及標(biāo)題為“提示信息”，則調(diào)用MsgBox函數(shù)的形式為（ MsgBox（退出本系統(tǒng)? ，4+32+0，提示信息） ）。如果使用MsgBox對話框顯示提示信息“文件未找到！”，并顯示“確定”按鈕、圖標(biāo)“！”號和標(biāo)題“文件查找”，則使用的MsgBox語句為（ MsgBox文件未找到，0+48+0，文件查找 ）。要在當(dāng)前窗體Form和立即窗口輸出字符串“Visual BASIC 6.0”使用的Print方法分別是( Print “Visual BASIC 6.0” )和( Debug.Print “Vis

3、ual BASIC 6.0” )。使用Print方法時，若用逗號分隔， 則按( 標(biāo)準(zhǔn) )格式輸出各表達(dá)式的值，若用分號分隔，則按( 緊湊 )格式輸出各表達(dá)式的值。注釋語句是一個（ 非執(zhí)行 ）語句，VB不對它們進(jìn)行編譯，對程序的執(zhí)行結(jié)果沒有任何影響。判別變量i是否為偶數(shù)，若為偶數(shù)就把它顯示出來。使用單行結(jié)構(gòu)條件語句為（ If i Mod 2=0 Then print x ）。10判別變量x是否大于0，若大于0，則累加到變量s1中，否則，累加到變量s2中，使用的單行結(jié)構(gòu)條件語句為（ If x>0 Then s1=s1+x Else s2=s2+x ）。11給定分段函數(shù)，求y的值，使用的單行結(jié)

4、構(gòu)條件語句為（ If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。12判別a是否等于b，若a=b，則輸出字符串 “a is equal to b”的塊結(jié)構(gòu)條件語句為（ ）。答案： If a=b Then Print “a is equal to b”End13判別ch是否為小寫字母，若是，輸出“yes”；否則，輸出“No”的塊結(jié)構(gòu)條件語句為（ ）。答案： If Asc(ch)>=97 And Asc(ch)<=122 ThenPrint “Yes”Else Print “No”End If14若一個case子句中的

5、表達(dá)式表由逗號分隔的若干個常數(shù)組成，則它的含義是：當(dāng)測試表達(dá)式的值等于（ 這些常數(shù)中的某一個 ）時，執(zhí)行該case子句相應(yīng)的程序塊。15若case子句中的表達(dá)式表列具有形式：<表達(dá)式1> To <表達(dá)式2>，則它的含義是：當(dāng)測試表達(dá)式的值等于（ 這個范圍內(nèi)的值 ）時，執(zhí)行該case子句相應(yīng)的程序塊。16若case子句中的表達(dá)式表列具有形式：Is <關(guān)系運算符> <表達(dá)式>，則它的含義是：當(dāng)測試表達(dá)式的值滿足（ Is后的關(guān)系 ）時，執(zhí)行該case子句相應(yīng)的程序塊。17在循環(huán)語句中，反復(fù)執(zhí)行的程序段稱為（ 循環(huán)體 ）；進(jìn)入循環(huán)體的條件稱為（ 循環(huán)條件

6、 ）；中止循環(huán)體執(zhí)行的條件稱為（ 結(jié)束循環(huán)條件 ）。32 選擇題下列賦值語句中，( d )是正確的。)x！abcb)a10ec)xd)s1002下列選項中，( d )不能交換變量a和b的值。 a) t=b : b=a : a=t b) a=a+b : b=a-b : a=a-b c) t=a : a=b : b=t d) a=b : b=a 3若在消息框MsgBox中顯示“確定(Ok)”和“取消(Cancel)”兩個按鈕，則buttons參數(shù)的設(shè)置值是( b )。a) 0b) 1c) 2d)34若在消息框MsgBox中選擇第二個按鈕為默認(rèn)值，則buttons參數(shù)的設(shè)置值是( b )。a)0b)

7、256c)512d)7685若單擊了“終止（Abort）”按鈕，則MsgBox函數(shù)的返回值是（ c ）。a)1b)2c)3d)46以下不正確的單行結(jié)構(gòu)條件語句是（ d ）。a) If x>y Then Print “x>y”b) If x Then t = t * xc) If x Mod 3=2 Then ? xd) If x<0 Then y = 2*x-1 : Print x End If7給定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print "#&quo

8、t; Else Print "*"以上程序（ c ）。a) 沒有輸出 b) 有語法錯c) 輸出# d) 輸出*8把a, b之中的最大值存放于max，下面語句書寫正確的是（ d ）。a) If a>b Then max=a Else max=b End Ifb) If a>b Then max=aElse max=bEnd Ifc) If a>b Then max=a Else max=b d) If a>b Thenmax=a Elsemax=bEnd If9. 下列Case語句中正確的是（ c ）。a)Select Case xCase 1 Or

9、3 Or 5 y=x*x-1 Case Is >10 y=x+1 End Selectb) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x <=1 Y=2*x+1End Selectc) Select Case x Case Is <=0 y=x-1 Case Is >0 y=Sqr(x)+1 End Select d) Select Case xCase x>=1 And x<= 5y=x-1Case Is >10y=x*x+1End Select10執(zhí)行下列程序段后屏幕上（ c ）。i% = 10 : Su

10、m = 0While i > 1Sum = Sum + ii = i - 1WendPrint Suma) 無顯示b) 顯示10c) 顯示54d) 顯示5511執(zhí)行下列程序段輸出結(jié)果是（ c ）。x%=2Do while x<8Print “*”；x=x+2Loopa) *b) *c) *d) *12設(shè)有程序段Dim k% k=5Do until k=0k=k-1Loop則下面對循環(huán)語句描述正確的是（ c ）。a) 循環(huán)體1次也不執(zhí)行 b) 循環(huán)體執(zhí)行1次c) 循環(huán)體執(zhí)行5次 d) 循環(huán)體執(zhí)行無限次 13下面描述中錯誤的是（ a, c ）。a) 執(zhí)行Do until <條件&

11、gt;loop語句中，當(dāng)循環(huán)<條件>為false時，結(jié)束循環(huán)體的執(zhí)行。b) 執(zhí)行While <條件>Wend語句時，循環(huán)體可能一次也不執(zhí)行。c) Do loop While <條件>語句的循環(huán)體可能一次也不執(zhí)行。d) 執(zhí)行Do loop Until <條件>語句中，當(dāng)循環(huán)條件為true時，結(jié)束循環(huán)體的執(zhí)行。14下面程序段中循環(huán)語句的循環(huán)次數(shù)是（b ）。For x=10 To 1 Step -3Print xNext xa) 0b) 4c) 5d) 1015執(zhí)行語句For i=1 to 3: i=i+1 :Next i后變量i的值是（ c）。a)

12、3b) 4c) 5d) 616下面程序段執(zhí)行后輸出結(jié)果是（ b ）。For i=1 To 2 s=1For j=0 To i-1 s=s+s*jNext jPrint s,Next ia) 1 1b) 1 2c) 2 1d) 2 233 閱讀下列程序，寫出執(zhí)行結(jié)果1. Private Sub Form_Click Print 2*3/2 , “Visual ” & “BASIC”， Not 5>3， 0.75 Print 2*3/2 ; “Visual ” & “BASIC”; Not 5>3; 0.75x=12.34Print “x=”；Print xEnd Su

13、b答案： -3 Visual BASIC False .75-3 Visual BASICFalse .75x=12.342 Private Sub Form_Click Print Tab(10); -100;Tab(20); 200;Tab(30); -300Print Spc(10); -100;Spc(10); 200;Spc(10); -300End Sub 答案：-100 200 -300 -100 200 -300 3 Private Sub Form_Click x=12.35Print Format ( x,”#.#” )Print Format ( x,”#.#” ) Pr

14、int Format ( x,”000.00” ) Print Format ( x,”00.0”)Print Format ( x,”0.00%” )Print Format ( x,”$#.#” )Print Format ( x,”+#.#” )Print Format ( x,”00.00E+00” )End Sub答案：1235 1235 01235 124 123500% $12.35 +12.3512.35e+004 Private Sub Command1_Click()Dim a%, b%, c%, s%, w%, t%a = -1: b = 3: c = 3s = 0: w

15、 = 0: t = 0If c > 0 Then s = a + bIf a <= 0 Then If c <= 0 Then w = a - b End IfElse If c > 0 Then w = a - b Else t = cEnd Ifc = a + bPrint a, b, cPrint s, w, tEnd Sub答案： -1 3 2 2 0 05 Private Sub Command1_Click()Dim x%, y%x = InputBox("請輸入x的值：")Select Case xCase 1, 3, 5y = x -

16、 1Case 6 To 10y = x + 1Case 2, 4y = 2 * xCase Is > 10y = x * x + 1End SelectPrint "x=" x, "y=" yEnd Sub （x 的輸入值為2.5、8、4和15）答案： x=2 y=4x=8 y=9x=4 y=8x=15 y=2266 Private Sub Command1_Click()Dim i%, t!t = 1: i = 1While i < 10t = t * ii = i + 2WendPrint "t=" tEnd Sub答

17、案：t=9457 Private Sub Command1_Click()Dim i%, x%, y%x = 1: y = 1:i = 1Do Until i > 8If i Mod 2 = 1 Thenx = x * iElsey = y * iEnd Ifi = i + 1LoopPrint "x=" x, "y=" yEnd Sub答案：x=105 y=3848 Private Sub Command1_Click()Dim p%, s%p = 1: s = 1Do p=p+2:s=s+pLoop While p<10Print &qu

18、ot;s=" sEnd Sub答案：s=369 Private Sub Command1_Click()Dim m%, n%For m=1 to 3 n=0 While n<=m-1 Print m,n n=n+1 WendNext mEnd Sub答案: 1 0 2 0 2 13 03 13 234 編程題1. 輸入一個學(xué)生成績，若成績在85分以上，則輸出“very good”；若成績在60分到80分之間，則輸出“good”；若成績低于60分，則輸出“no good”。解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個標(biāo)簽、兩個文本框和兩個命令按鈕。窗體和窗體上控件的主要屬性設(shè)

19、置如表3-3-1所示。表3-3-1 第1題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption根據(jù)分?jǐn)?shù)給定評語 Label1 Caption 分?jǐn)?shù) Label2Caption 評語 Text1 Text 空串 Text2 Text 空串 Command1Caption 開始 Command2 Caption 結(jié)束(2) 程序代碼Private Sub Command1_Click() Dim score! score = Val(Text1.Text) If score >= 85 Then Text2.Text = "Very good!" ElseIf

20、 score >= 60 Then Text2.Text = "Good!" Else Text2.Text = "No good!" End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運行情況運行程序后，屏幕出現(xiàn)用戶界面。把鼠標(biāo)移到Text1文本框并單擊，輸入分?jǐn)?shù)。然后，單擊“開始”命令按鈕，系統(tǒng)執(zhí)行Command1_Click事件過程。執(zhí)行結(jié)果如圖所示。單擊標(biāo)題為“結(jié)束”的命令按鈕，執(zhí)行Command2_Click事件過程，結(jié)束程序的執(zhí)行。圖3.3.1 第1題的執(zhí)行結(jié)果2. 求一元二

21、次方程ax+bx+c=0的根。解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-2所示。表3-3-2 第2題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption求一元二次方程的根 Command1Caption 開始 Command2 Caption 結(jié)束(2) 程序代碼由中學(xué)數(shù)學(xué)知識知道，求一元二次方程的根的公式為：，編程時要考慮如下各種情況： 當(dāng)a=0 時，方程不是二次方程； 當(dāng) b2-4ac=0 時,有兩個相同的實根： ； 當(dāng) b2-4ac>0 時,有兩個不同的實根： ； 當(dāng) b2-4ac<0 時,有兩個共軛復(fù)根：

22、。Private Sub Command1_Click() Cls Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = InputBox("請輸入方程的系數(shù)a：") b = InputBox("請輸入方程的系數(shù)b：") c = InputBox("請輸入方程的系數(shù)c：") Print: Print Print Tab(10); "輸入方程的系數(shù)為：" "a=" a; "b=" b; "c="

23、c Print If Abs(a) <= 0.000001 Then Print Tab(15); "方程不是一個二次方程！" Else disc = b 2 - 4 * a * c If Abs(disc) <= 0.000001 Then Print Tab(10); "方程有兩個相同的實根：" "x1=x2=" -b / (2 * a) ElseIf disc > 0.000001 Then x1 = (-b + Sqr(disc) / (2 * a) x2 = (-b - Sqr(disc) / (2 * a

24、) Print Tab(5); "方程有兩個實根：" Print Tab(18); "x1=" x1 Print Tab(18); "x2=" x2 ElseIf disc < 0.000001 Then realpart = -b / (2 * a): imagpart = Sqr(-disc) / (2 * a) Print Tab(5); "方程有兩個虛根：" Print Tab(18); "x1=" realpart; "+" imagpart; "i

25、" Print Tab(18); "x2=" realpart; "-" imagpart; "i" End If End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub注意，程序中的條件“fabs(a)<=0.000001”和“fabs(disc)<=0.000001”分別用來判斷a和disc的值是否為0。因為實數(shù)在計算機計算和存儲時會有微小的誤差，若用“a=0”和“disc=0”來判斷a和disc是否為0，則會由于誤差導(dǎo)致條件不成立，無法得到正確的運行結(jié)果。(

26、3)運行情況運行程序后，單擊“開始”命令按鈕，執(zhí)行Command1_Click事件過程。執(zhí)行時，在InputBox框中輸入 a、b和c三個系數(shù)。圖圖顯示了不同系數(shù)輸入的執(zhí)行結(jié)果。 圖3.3.2 執(zhí)行結(jié)果(a) 圖3.3.3 執(zhí)行結(jié)果(b) 圖3.3.4 執(zhí)行結(jié)果(c) 圖3.3.5 執(zhí)行結(jié)果(d)3. 給定函數(shù)y = ,從鍵盤上輸入x的值，求y的值。(要求使用Case語句)解答：(1) 界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-3所示。表3-3-3 第3題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption求給定分段函數(shù)的值 Command

27、1Caption 開始 Command2 Caption 結(jié)束(2) 程序代碼Private Sub Command1_Click() Cls Dim x!, y! x = InputBox("請輸入x的值：") If x >= 1 And x <= 5 Then Select Case x Case Is < 2 y = 3 * x - 5 Case Is < 4 y = 2 * Cos(x) + 1 Case Is <= 5 y = Sqr(1 + x * x) End Select Else y = x * x - 4 * x + 5 E

28、nd If Print Tab(10); "x=" x, "y=" yEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運行情況運行程序后，單擊“開始”命令按鈕，執(zhí)行事件過程Command1_Click。執(zhí)行時，按InputBox對話框提示，輸入x的值。計算結(jié)果在窗體上顯示。4. 輸入圓的半徑R和運算標(biāo)志，按照運算標(biāo)志進(jìn)行指定運算。給定的運算標(biāo)志及其表示的運算如下：C（Circle） 表示計算周長A（Area） 表示計算面積B（Both） 表示周長和面積都計算(要求使用Case語句)解答：(1)界面設(shè)計和

29、屬性設(shè)置在窗體上放置兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-4所示。表3-3-4 第4題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption計算圓周長或圓面積或兩者都計算 Command1Caption 開始 Command2 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Cls Dim r!, f As String * 1 Const pi! = 3.14159265 r = InputBox("請輸入圓的半徑 r ：") If r >= 0 Then f = UCase(InputBox(&

30、quot;輸入運算標(biāo)志：" + Chr(13) & _ "C_(計算周長)" + Chr(13) & _ "A_(計算面積)" + Chr(13) & _ "B_(兩者都計算)") '提示信息分多行顯示 Select Case f Case "C" Print Tab(10); "半徑r=" r; "圓周長=" r * 2 * pi Case "A" Print Tab(10); "半徑r="

31、r; "圓面積=" r 2 * pi Case "B" Print Tab(10); "半徑r=" r; "圓周長=" r * 2 * pi Print Tab(10); "半徑r=" r; "圓面積=" r 2 * pi Case Else Print Tab(18); "輸入的運算標(biāo)志錯！" End Select Else Print Tab(18); "半徑不能是負(fù)數(shù)！" End IfEnd SubPrivate Sub Comm

32、and2_Click() EndEnd Sub(3)運行情況運行程序后，單擊標(biāo)題為“開始”的命令按鈕，執(zhí)行Command1_Click事件過程。按InputBox對話框的提示輸入半徑r和運算標(biāo)志。計算結(jié)果在窗體上顯示。5. 求滿足12+22+n2>1000的最小n值。(要求使用WhileWEnd語句)解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-5所示。表3-3-5 第5題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption求滿足12+22+n2>1000的最小n值 Command1Caption 開始 Command2

33、 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Dim n%, s& n = 0: s = 0 While s <= 1000 n = n + 1 s = s + n 2 Wend Print: Print: Print Print Tab(8); "滿足12+22+n2>1000的最小n值為：" nEnd SubPrivate Sub Command2_Click() EndEnd Sub6輸入若干個正實數(shù)，個數(shù)預(yù)先不能確定，求這些正實數(shù)之和。(要求分別使用Do WhileLoop語句和Do Until L

34、oop語句)解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立三個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-6所示。表3-3-6 第6題的屬性設(shè)置 控件名稱 屬性名屬性值 Form1 Caption求正實數(shù)之和 Command1CaptionDo WhileLoop Command2 CaptionDo UntilLoop Command3 Caption結(jié)束(2)程序代碼Private Sub Command1_Click() Cls Dim a!, s! a = InputBox("輸入一個實數(shù)：") Do While a >= 0 s = s + a a = I

35、nputBox("輸入一個實數(shù)：") Loop Print: Print Print Tab(15); "輸入的正實數(shù)之和為：" sEnd SubPrivate Sub Command2_Click() Cls Dim a!, s! a = InputBox("輸入一個實數(shù)：") Do Until a < 0 s = s + a a = InputBox("輸入一個實數(shù)：") Loop Print: Print: Print Print Tab(15); "輸入的正實數(shù)之和為：" sEnd

36、 SubPrivate Sub Command3_Click() EndEnd Sub(3) 運行情況運行程序后，屏幕出現(xiàn)用戶界面如圖所示。單擊標(biāo)題為“Do WhileLoop”或標(biāo)題為“Do WhileLoop”的命令按鈕，系統(tǒng)執(zhí)行相應(yīng)的Click事件過程。用戶可以輸入一系列數(shù)據(jù)，以輸入-1作結(jié)束。窗體顯示運算結(jié)果。單擊“結(jié)束”按鈕，結(jié)束程序執(zhí)行。圖3.3.6 第6題的執(zhí)行結(jié)果7 使用公式 來求的近似值，直到最后一項的值小于10-8為止。(要求使用DoLoop While語句)解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-7所示。表3-3-7

37、 第7題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption求圓周率的近似值 Command1Caption 開始 Command2 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Dim i&, s#, term# i = 1 s = 0 Do term = 1 / (i * i) s = s + term i = i + 1 Loop While term >= 0.00000001 Print: Print: Print Print Tab(8); "圓周率的近似值為：" Sqr(6 * s)End

38、 SubPrivate Sub Command2_Click() EndEnd Sub(3)運行情況運行程序后，單擊標(biāo)題為“開始”的命令按鈕，執(zhí)行Command1_Click事件過程。計算結(jié)果在窗體上顯示。8. 由數(shù)值計算方法可知，用牛頓迭代法解方程f(x)=0的迭代公式為：試用牛頓迭代法求解方程x53x2 2x1=0 在x0=0附近的根。(要求使用DoLoop Until語句)解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-8所示。表3-3-8 第8題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption用牛頓法求方程的根 Comma

39、nd1Caption 開始 Command2 Caption 結(jié)束(2)程序代碼根據(jù)迭代公式，牛頓迭代法的計算過程為：令n=0 ，由迭代公式得 ，然后判別x1x0是否小于(給定精度)。若是，則迭代結(jié)束，x1作為方程的近似根；否則，進(jìn)行下一步。令n=1 ，由迭代公式得 ， 然后判別 x2x1是否小。若是，則迭代結(jié)束，x2 作為方程的近似根；否則，由x2求x3的值，判斷x3x2。 按這樣迭代下去，一直到xi1xi< (i=0，1，2，)為止。根據(jù)上述計算過程可以編寫程序為：Private Sub Command1_Click() Dim x0!, x1! x1 = 0 Do x0 = x1

40、x1 = x0 - (x0 5 - 3 * x0 2 + 2 * x0 + 1) / (5 * x0 4 - 6 * x0 + 2) Loop Until Abs(x1 - x0) < 0.00001 Print Tab(10); "方程的根為：" x1End SubPrivate Sub Command2_Click() EndEnd Sub(3)運行情況運行程序后，單擊標(biāo)題為“開始”的命令按鈕，執(zhí)行Command1_Click事件過程。在窗體上顯示計算結(jié)果。9求S = 的值。解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3

41、-3-9所示。表3-3-9 第9題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption求s=1-1/2+1/3-1/4+1/99-1/100的值 Command1Caption 開始 Command2 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Dim i%, s!, sign% sign = 1: s = 0 For i = 1 To 100 s = s + sign * 1 / i sign = -sign Next i Print: Print: Print Print Tab(18); "s的值為：" sE

42、nd SubPrivate Sub Command2_Click() EndEnd Sub(3)運行情況運行程序后，單擊標(biāo)題為“開始”的命令按鈕，執(zhí)行Command1_Click事件過程。窗體顯示計算結(jié)果。10求100到999中的水仙花數(shù)。所謂水仙花數(shù)是指一個三位數(shù)，它的各位數(shù)字的立方之和等于該數(shù)。例如，因為153 = 13 + 53 + 33 ，所以153是水仙花數(shù)。解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-10所示。表3-3-10 第10題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption求水仙花數(shù) Command1Cap

43、tion 開始 Command2 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Dim i%, a%, b%, c% Print Print Tab(5); "100-999之間的水仙花數(shù)為：" For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i - a * 100 - b * 10 If i = a 3 + b 3 + c 3 Then Print Tab(10); i End If Next iEnd SubPrivate Sub Command2_Click()

44、EndEnd Sub (3)運行情況執(zhí)行結(jié)果如圖所示。圖3.3.7 第10題的執(zhí)行結(jié)果11. 求1000之內(nèi)的所有完數(shù)。所謂完數(shù)是指一個數(shù)恰好等于它的所有因子之和。例如，因為6=1+2+3，所以6為完數(shù)。解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-11所示。表3-3-11 第11題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption 求完數(shù) Command1Caption 開始 Command2 Caption 結(jié)束(2)程序代碼Private Sub Command1_Click() Dim i%, j%, s% Print P

45、rint Tab(5); "1-1000之內(nèi)的完數(shù)為：" For i = 1 To 1000 s = 0 For j = 1 To i - 1 If i Mod j = 0 Then s = s + j Next j If i = s Then Print Tab(5); i Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運行情況 程序執(zhí)行結(jié)果如圖所示。圖3.3.8 第11題的執(zhí)行結(jié)果12. 在窗體上輸出形如以下圖形，其中第一行的起始字母和終止字母由用戶從鍵盤上輸入。 A B C D E B C D E A C D E A B D E A B CE A B C D解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-12所示。表3-3-12 第12題的屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption輸出由字母構(gòu)成的圖形