VB1-4章_習(xí)題答案(課本習(xí)題

1、VB習(xí)題答案（1-3章）習(xí)題一一、選擇題1C 2.C 3.A 4.C 5.C 6.C 7.B二、填空題1.學(xué)習(xí)版、專業(yè)版、企業(yè)版 2.窗體界面 3.Alt+F4三、簡答題1 簡述Visual Basic語言的特點。Visual Basic是Windows操作平臺下的可視化編程語言，它繼承和發(fā)展了BASIC語言的基本功能，具有簡單易學(xué)、功能強大等特點。Visual Basic提供了可視化設(shè)計工具，以圖形用戶界面（GUI）為PC機用戶提供了一個直觀的工作環(huán)境。支持面向?qū)ο蟮某绦蛟O(shè)計（OOP），采用事件驅(qū)動方式，提供對象的鏈接與嵌入（OLE）和訪問數(shù)據(jù)庫等功能。2. Visual Basic 6.0

2、的集成開發(fā)環(huán)境由哪些部分組成，各部分的主要功能是什么？1. 標(biāo)題欄：用來顯示打開的工程名稱和系統(tǒng)的工作狀態(tài)。2. 菜單欄：菜單欄中包括“文件”、“編輯”、“視圖”、“工程”、“格式”、“調(diào)試”、“運行”、“查詢”、“圖表”、“工具”、“外接程序”、“窗口”和“幫助”共有13個菜單項。這是一組下拉式菜單，提供了設(shè)計、編輯、編譯和調(diào)試應(yīng)用程序所需要的絕大部分功能和命令。3. 工具欄： Visual Basic 6.0提供了“編輯”、“標(biāo)準(zhǔn)”、“窗體編輯器”和“調(diào)試”4種工具欄。工具欄上形象直觀的排列著一些最常用的命令按鈕，對應(yīng)特定的常用操作命令。4. 控件箱：控件箱提供了一組控件。設(shè)計界面時，用戶

3、可以用鼠標(biāo)雙擊控件箱中的控件，在窗體中畫出該控件，或用鼠標(biāo)單擊控件箱中的控件，然后在窗體中拖動鼠標(biāo)畫出所需的控件。5. 窗體設(shè)計器：窗體設(shè)計器是應(yīng)用程序最終面向用戶的窗口。各種控件、圖形、數(shù)據(jù)以及程序的運行結(jié)果都在窗體設(shè)計器窗體中顯示出來。6. 工程資源管理器：在工程資源管理器窗口中（圖1-2），列出了應(yīng)用程序的工程以及工程中的窗體和模塊。7. 屬性窗口：屬性窗口主要用來設(shè)置Visual Basic窗體及各控件的屬性特征，屬性窗口的主體部分分為左右兩列，左邊是控件的屬性名列表，右邊是控件的屬性值列表。8. 窗體布局窗口：窗體布局窗口用于觀察應(yīng)用程序中各窗體在屏幕上的位置?？梢栽诖绑w布局窗口用鼠

4、標(biāo)拖動窗體小圖像的方法來改變窗體布局。3. 什么是對象的屬性、事件和方法？屬性是一個對象的數(shù)據(jù)，用來表示對象的狀態(tài)。屬性具有屬性值，改變對象的屬性值就可以改變對象的狀態(tài)。對象常見的屬性有標(biāo)題（Caption）、名稱（Name）、顏色（Color）、字體大?。‵ontsize）、是否可見（Visible）等。事件（Event）是能被對象識別的動作，例如Click（單擊），DblClick（雙擊），Load（裝入），MouseMove（移動鼠標(biāo)），Change（改變）等。Visual Basic編程的核心就是為每一個要處理的事件編寫響應(yīng)事件的程序代碼。方法（Method）即是具有完成某種功能的過程

5、和函數(shù)，它決定了對象要執(zhí)行的動作。4. 簡述編寫并運行Visual Basic程序的一般步驟。（1）創(chuàng)建應(yīng)用程序界面。（2）設(shè)置界面上各個對象的屬性（3）編寫事件驅(qū)動代碼（4）單擊工具欄上的啟動按鈕，運行該程序。四、編程題 編寫程序，顯示“第一個Visual Basic程序”（1）創(chuàng)建應(yīng)用程序界面。見教材圖1-5（2）設(shè)置界面上各個對象的屬性見教材圖1-6（3）編寫事件驅(qū)動代碼Private Sub Command1_Click() Text1.Text = 第一個Visual Basic程序End SubPrivate Sub Command2_Click() EndEnd Sub（4）單擊

6、工具欄上的啟動按鈕，運行該程序。單擊“開始”按鈕。習(xí)題二一、選擇題1.D 2.A 3.C 4.D 5.B 6.B 7.C 8.A 9.D 10.B 11.B 12.A 13.C 14.D 15.D 16.D二、填空題1. X=Int(Rnd*100) 2.-9 3.3 4.hello HELLO 5.1234 1234 1234 466. Val(Right(M, 1) & Left(M, 1)7. Abs(y) + Exp(1) - 3 * x * Log(3 * x)三、簡答題1 Visual Basic定義了幾種數(shù)據(jù)類型，變量有哪幾種數(shù)據(jù)類型，常量有哪幾種數(shù)據(jù)類型？Visual Basi

7、c基本數(shù)據(jù)類型：1. 字符串型（String）：字符串分為變長字符串和定長字符串兩種。2. 數(shù)值型：數(shù)值型數(shù)據(jù)分為整型數(shù)和浮點數(shù)兩類。3. 貨幣型（Currency）4. 變體型（Variant）5. 字節(jié)型（Byte）6. 布爾型（Boolean）7. 日期型（Date）8. 對象型（Object）Visual Basic中包含兩種常量，即文字常量和符號常量。變量的基本數(shù)據(jù)類型：Byte（字節(jié)型），Boolean（布爾型），Integer（整型），Long（長整型），Single（單精度型），Double（雙精度型），Currency（貨幣型），Date（日期型），Object（對象型），S

8、tring（變長字符串），String（定長字符串），Variant（變體型、數(shù)字），Variant（變體型、字符）2 符號常量和變量有什么不同點?符號常量一經(jīng)定義，就不能在程序中的其他位置改變其值。變量的值在程序中可以改變。3 指出下列正確的變量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi .ex3 j5h正確的變量名：ahi，j5h4 指出下列正確的數(shù)字形式：-1.25 3.88 45.2468E-6 77.876D-5 5.6D0.123 89E D2585 10(2.7) 35正確的數(shù)字形式：-1.25，45.2468E-6，77.876D-5，0.12

9、35下列表達式若有錯誤，請改正： (1) ts+cos(300) (2) (x+y)(25s)(3) (X1+X2)*(X1-3)-6*7 (4) (X-2)+sin(1.2+)改正：(1) ts+cos(30*3./180)(2) (x+y)(25/s)(3) (X1+X2)*(X1-3)-6)*7(4) (X/(-2)+sin(1.2+3.)6寫出下列數(shù)學(xué)式的Visual Basic表達式： (1) sin(a)cos(b)+1.5 (2) (X1+4)5(e2-a)(3) 36(X1+)(X13.3)-B(4) X-2+5.8sin(3.5)Visual Basic表達式：(1) sin

10、(a)*(cos(b)+1.5)(2) (X1+4)5*(exp(2)-a)(3) 36*(X1+3.)*(X1/3.3)-B)(4) X2+5.8*sin(3.5*3.)習(xí)題三一、選擇題1.B 2.D 3.B 4.C 5.B 6.A 7.C 8.B 9.C 10.C 11.D 12.C 13.B 14.D 15.A16.C 17.B三、簡答題3-1 下列語句是否有錯？若有，請改正： (1) Let = 17 (2) T1$ = XYZ(3) L*2 = K + E (4) 1A = 34 , 2A = 66改正：(1) Let x = 17 (2) T1$ = “XYZ”(3) L = (K

11、 + E)/2 (4) A1 = 34 : A2 = 66四、編程題1. 編一個對三種商品零售計價程序。商品數(shù)量由鍵盤輸入。 A鉛筆：每件1.50元 B筆記本：每件5.20元 C計算器：每件80.00元總計金額 SUM。答案 設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() Sum = 1.50 * Text1.Text + 5.20 * Text2.Text + 80.00 * Text3.Text Text4.Text = SumEnd Sub2. 試編寫打印下面三角形圖案的源程序。 * * * * * * * * * * * * * * * * * * *

12、 * * * * * * 答案設(shè)計界面如圖程序代碼如下Private Sub Form_Click() Form1.Print Tab(15); * Form1.Print Tab(14); * Form1.Print Tab(13); * Form1.Print Tab(12); * Form1.Print Tab(11); *End SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 顯示星號三角形,單擊窗體開始End Sub3. 編寫程序，將攝氏溫度轉(zhuǎn)換為華氏溫度。二者之間的關(guān)系是：F = 32 + 1.8C其中F

13、是華氏溫度，C是攝氏溫度。答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() C = Text1.Text Text2.Text = 32 + 1.8 * CEnd Sub4. 編寫程序，在文本框中輸入英文字符，單擊“大寫”按鈕把英文字符轉(zhuǎn)換為大寫，單擊“小寫”按鈕把英文字符轉(zhuǎn)換為小寫。答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() Text1.Text = UCase$(Text1.Text)End SubPrivate Sub Command2_Click() Text1.Text = LCase$(Text1.Tex

14、t)End Sub 附加（可參照練習(xí)）1. 小王有存款A(yù)元，年利率P，存儲時間T年。試編程求本利合計。答案設(shè)計界面如圖存款按單利計算，程序代碼如下Private Sub Command1_Click() a = Text1.Text p = Text2.Text t = Text3.Text a = a + a * p * t Text4.Text = aEnd Sub2. 試編寫打印下面圖案的源程序。 * * * * * * * * * * * * * * * * * * * * * * * * 答案設(shè)計界面如圖程序代碼如下Private Sub Form_Click() Form1.Pri

15、nt Tab(5); * Form1.Print Tab(6); *; Tab(13); * Form1.Print Tab(7); *; Tab(14); * Form1.Print Tab(8); *; Tab(15); * Form1.Print Tab(9); *; Tab(16); * Form1.Print Tab(10); *End SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 顯示星號四邊形,單擊窗體開始End Sub 3. 請編寫求以10為底，求10000的對數(shù)值的源程序。答案設(shè)計界面如圖 程序代

16、碼如下Private Sub Form_Click() Form1.Print Log(10000) / Log(10)End SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 計算以10為底，10000的對數(shù) Form1.Print 單擊窗體開始End Sub4. 請編寫求任意數(shù)的平方根的源程序，數(shù)由鍵盤輸入。答案設(shè)計界面如圖程序代碼如下Private Sub Form_Click() x = Val(InputBox$(輸入數(shù)據(jù)) Form1.Print 輸入數(shù)據(jù)為; x Form1.Print 平方根為; Sqr

17、(x)End SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 求任意數(shù)的平方根 Form1.Print 單擊窗體開始End Sub5. 求任意半徑和高的圓柱的表面積。答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() r = Text1.Text h = Text2.Text s = 2 * 3.14159 * r * h + 2 * 3.14159 * r * r Text3.Text = sEnd Sub習(xí)題四(控制結(jié)構(gòu))一、選擇題1C 2.A 3.B 4.D 5.C 6.A 7

18、.B 8.B 9.A二、填空題40三、簡答題1. 寫出數(shù)學(xué)式|x|2.510-2對應(yīng)的Visual Basic表達式。答案： x-2.5e-22. 邏輯運算符And、Or和Not的優(yōu)先級最高的是哪一個。答案：Not3. 已知 W=10 X=9 Y=8 Z=7 ，求下列表達式的結(jié)果： (1) WX And YY (2) XZ Or W=Y AND YY And X=Z)(4) Not (YX Or W*3Z)答案(1) True (2) True (3) True(4) False4. 寫出下列十進制整數(shù)邏輯運算的結(jié)果： (1) X = 23 And 14 (2) X = 23 Or 14 (3

19、) X = -1 And 19 (4) X = -1 Or 10(5) X = Not -1答案(1) 6 (2) 31 (3) 19 (4) -1(5) 0四、編程題1. 已知變量X和Y的值分別為5、6，編寫程序，交換變量X和Y的值。答案設(shè)計界面如圖程序代碼如下Private Sub Form_Click() x = 5: y = 6 t = x: x = y: y = t Form1.Print x=; x, y=; yEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print x = 5, y = 6 Form1.

20、Print 單擊窗體交換x,y的值End Sub2. 征兵的條件是：男性1820歲，1.65米以上；女性1618歲，1.60米以上。編寫程序，從鍵盤輸入一個人的數(shù)據(jù)時，判斷是否符合征兵的條件。答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() age = Val(Text1.Text) h = Val(Text2.Text) If Option1.Value = True Then If age = 18 And age = 1.65 Then Label4.Caption = 合格 Else Label4.Caption = 不合格 End If Else

21、If age = 16 And age = 1.6 Then Label4.Caption = 合格 Else Label4.Caption = 不合格 End If End If End Sub3編寫程序，計算下面表達式的值（1）1+13+135+13(2N+1)答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() n = Val(InputBox(請輸入N值) Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step 2 term = term * k Sum = Sum + term Next k Form1.Print 1

22、+13+135+13(2N+1)=; SumEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 計算1+13+135+13(2N+1)End Sub計算表達式補充：(2)-(5)（2）1!+3!+5!+(2N+1)!答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() n = Val(InputBox(請輸入N值) Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step 2 term = term * (k - 1) * k Sum = Sum +

23、 term Next k Form1.Print 1!+3!+5!+(2N+1)!=; SumEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 計算1!+3!+5!+(2N+1)!End Sub（3）1+X/2!+X2/4!+X3/6!+XN/(2N)!答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() x = Val(InputBox(請輸入x值) n = Val(InputBox(請輸入N值) Sum = 1 t1 = 1 t2 = 1 For k = 2 To 2 * n

24、 Step 2 t1 = t1 * x t2 = t2 * (k - 1) * k Sum = Sum + t1 / t2 Next k Form1.Print 1+X/2!+X2/4!+XN/(2N)!=; SumEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 計算1+X/2!+X2/4!+XN/(2N)!End Sub（4）x-x3/3!+x5/5!-x7/7!+答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() x = Val(InputBox(請輸入x值) Sum =

25、 x t1 = x t2 = 1 f = 1 k = 1 While (t1 / t2 0.0001) k = k + 2 t1 = t1 * x * x t2 = t2 * (k - 1) * k f = f * (-1) Sum = Sum + f * t1 / t2 Wend Form1.Print x-x3/3!+x5/5!-x7/7!+=; SumEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 計算x-x3/3!+x5/5!-x7/7!+End Sub（5）1+1/2+1/3+1/N （1/N 0.

26、0001) Sum = Sum + 1 / k k = k + 1 Wend Form1.Print 1+1/2+1/3+1/N=; SumEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 計算1+1/2+1/3+1/N Form1.Print 單擊窗體開始End Sub4由隨機函數(shù)產(chǎn)生10道一位整數(shù)與兩位整數(shù)相加的加法題，產(chǎn)生的加法題依次顯示在屏幕上，每產(chǎn)生一道題后，由用戶輸入答案，如果答案正確，記10分；如果答案錯誤，允許第二次輸入答案，第二次輸入答案正確，記5分，錯誤記0分。最后給出總得分。答案設(shè)計界面如

27、圖程序代碼如下Private Sub Form_Click() s = 0 For i = 1 To 10 a = Int(10 * Rnd) b = Int(10 + 10 * Rnd) str1$ = 第 & i & 題 & a & + & b c = Val(InputBox(str1$ & 第一次回答) If a + b = c Then s = s + 10 str2$ = str1$ & 10分 Else c = Val(InputBox(str1$ & 第二次回答) If a + b = c Then s = s + 5 str2$ = str1$ & 5分 Else str2$

28、 = str1$ & 0分 End If End If Form1.Print str2$ Next i Form1.Print 總分; sEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 加法題，第一次回答正確10分， Form1.Print 第二次回答正確5分 Form1.Print 單擊窗體開始End Sub5. 編寫程序把一個分?jǐn)?shù)化為最簡分?jǐn)?shù)。對一個分?jǐn)?shù)化簡，實際是要尋找分子N與分母M的最大公因子。答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() Dim m As I

29、nteger, n As Integer, u As Integer, v As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m n Then u = m: v = n Else v = m: u = n End If Do r = u Mod v u = v: v = r Loop Until r = 0 m = m / u: n = n / u Label2.Caption = 化簡后分子 & m & , 分母 & nEnd Sub6 幼兒園的小朋友分吃一堆糖果。第一天吃了一半，又吃了一顆；第二天，同樣吃了剩下的一半，又多吃了一顆。

30、到第十天一看，只剩一顆糖果。問原來共有多少顆糖果。答案程序代碼如下Private Sub Form_Click() num = 1 For k = 9 To 1 Step -1 num = (num + 1) * 2 Next k Form1.Print 糖果數(shù)為; numEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 計算糖果數(shù) Form1.Print 單擊窗體開始End Sub7. 求解方程X3+Y3-Z3=3，其中X、Y、Z均為正整數(shù)，且1Z6。答案程序代碼如下Private Sub Form_Clic

31、k() For x = 1 To 6 For y = 1 To 6 For z = 1 To 6 If x 3 + y 3 - z 3 = 3 Then Form1.Print x; y; z End If Next z Next y Next x End SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 解方程X3+Y3-Z3=3 Form1.Print 單擊窗體開始End Sub8. 驗證哥德巴赫猜想：“任何一個大于6的偶數(shù)，均可以表示為兩個素數(shù)之和”，從鍵盤輸入一個大于6的偶數(shù)后，打印出所有的分解結(jié)果。答案程序代

32、碼如下Private Sub Form_Click() n = Val(InputBox(輸入一個大于6的偶數(shù)) If n = 6 Or n Mod 2 0 Then Form1.Print 數(shù)據(jù)錯誤 Else For m1 = 2 To n / 2 m2 = n - m1 f = 0 For i = 2 To m1 - 1 If m1 Mod i = 0 Then f = 1: Exit For Next i For i = 2 To m2 - 1 If m2 Mod i = 0 Or f = 1 Then f = 1: Exit For Next i If f = 0 Then Print

33、 m1; m2 Next m1 End IfEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 打印兩個素數(shù)之和 Form1.Print 單擊窗體開始End Sub另：補充 4-1 從鍵盤輸入一個學(xué)生的三科成績，計算總分，并找出最高分。答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() g1 = Val(Text1.Text) g2 = Val(Text2.Text) g3 = Val(Text3.Text) Var = (g1 + g2 + g3) / 3 g = g1 If

34、g g2 Then g = g2 If g g3 Then g = g3 Text4.Text = Var Text5.Text = gEnd Sub4-2 空調(diào)機基本單價為2500元。購買空調(diào)機的價格隨季節(jié)而異。冬季購買，優(yōu)惠15，春、秋季購買，優(yōu)惠8，夏季購買，不優(yōu)惠。編寫一個程序，打印出顧客隨季節(jié)購買空調(diào)機的單價，數(shù)量和總價。數(shù)據(jù)由鍵盤輸入。答案設(shè)計界面如圖程序代碼如下Private Sub Command1_Click() num = Val(Text1.Text) If Option1.Value = True Or Option3.Value = True Then price =

35、 2500 * 0.92 Label3.Caption = 優(yōu)惠 8% Str1$ = 價格 & price Label4.Caption = Str1$ cost = num * price Str2$ = 總價 & cost Label5.Caption = Str2$ End If If Option2.Value = True Then price = 2500 Label3.Caption = 優(yōu)惠 0 Str1$ = 價格 & price Label4.Caption = Str1$ cost = num * price Str2$ = 總價 & cost Label5.Capti

36、on = Str2$ End If If Option4.Value = True Then price = 2500 * 0.85 Label3.Caption = 優(yōu)惠 15% Str1$ = 價格 & price Label4.Caption = Str1$ cost = num * price Str2$ = 總價 & cost Label5.Caption = Str2$ End IfEnd Sub4-3 利用InputBox函數(shù)輸入三角形三條邊A，B，C，求三角形的面積。(程序中應(yīng)考慮A，B，C三條邊能否構(gòu)成三角形)。答案設(shè)計界面如圖程序代碼如下Private Sub Form_Click() x = Val(InputBox(輸入第一條邊長) y = Val(InputBox(輸入第二條邊長) z = Val(InputBox(輸入第三條邊長) Form1.Print 輸入的三條邊為; x; y; z If x + y = z Or y + z = x Or z + x = y