vb程序設(shè)計教程龔沛曾版課后答案

1、1. 對象指現(xiàn)實世界中的實體。每個對象有自己的特征(屬性) 、行為 (方法)和發(fā)生在該對象上的活動 (事件)。類是對同一種對象的集合與抽象。類包含所創(chuàng)建對象的屬性數(shù)據(jù)，以及對這些數(shù)據(jù)進(jìn)行操作的方法。封裝 和隱藏是類的重要特性，將數(shù)據(jù)結(jié)構(gòu)和對數(shù)據(jù)的操作封裝在一起，類的內(nèi)部實現(xiàn)細(xì)節(jié)對用戶來說是透明 的。VB 工具箱中的可視圖標(biāo)是 VB 系統(tǒng)設(shè)計好的標(biāo)準(zhǔn)控件類。通過將控件類實例化，得到真正的控件對象。 在窗體上畫一個控件，就將類轉(zhuǎn)換為對象，創(chuàng)建了一個控件對象。VB 中常用的對象是控件。此外， VB 還提供了系統(tǒng)對象。窗體是個特例，它既是類也是對象。當(dāng)向一個工 程添加一個新窗體時，實質(zhì)就由窗體類創(chuàng)建了

2、一個窗體對象。對象的三要素：屬性、事件和方法。屬性：存放對象的數(shù)據(jù) ( 決定對象外觀及功能 ) 對象屬性的設(shè)置方法：在設(shè)計階段，利用屬性窗口直接設(shè)置 屬性值；程序運行時，通過語句對象名 .屬性名 =屬性值。若屬性只能在設(shè)計階段設(shè)置，在程序運行階段不可改變，稱為只讀屬性。事件：發(fā)生在對象上的事情。同一事件，對不同的對象，會引發(fā)不同的反應(yīng)。 事件過程：應(yīng)用程序處理事件的步驟。應(yīng)用程序設(shè)計的主要工作就是為對象編寫事件過程的代碼。 方法：面向?qū)ο蟮某绦蛟O(shè)計語言，為程序設(shè)計人員提供了一種特殊的過程和函數(shù)。方法是面向?qū)ο蟮?，調(diào) 用時一定要指明對象。2. 窗體和控件具有的基本屬性“(1) Name 屬性：名

3、稱 所創(chuàng)建的對象名稱 ,在程序中引用。(2) Caption 屬性：標(biāo)題 該屬性決定了對象上顯示的內(nèi)容。(3) Height、Width、Top 和 Left 屬性決定對象的大小和位置。(4) Enabled 屬性：對象是否允許操作(5) Visible 屬性：對象是否可見(6) Font 屬性組：文本的外觀FontName 字體、 FontSize 大小FontBold 粗體、 FontItalic 斜體FontStrikethru 刪除線FontUnderline 下劃線(7) ForeColor 屬性：前景顏色(8) BackColor 屬性：背景顏色(9) MousePointer屬性

4、：鼠標(biāo)指針類型，設(shè)置值范圍015,由系統(tǒng)指定。若為99,由用戶提供的圖形文件定義鼠標(biāo)指針形狀。(10) MouseIcon屬性：在 MousePointer屬性值為99時，存放自定義的鼠標(biāo)圖標(biāo)文件(.ico或.cur)。圖標(biāo)庫在 Graphics 目錄下。3. 窗體的事件： Load 事件是在窗體被裝入工作區(qū)時觸發(fā)的事件。當(dāng)應(yīng)用程序啟動,自動執(zhí)行該事件,該事 件通常用來在啟動應(yīng)用程序時對屬性和變量進(jìn)行初始化。窗體的方法 :(1 )Print 方法用來顯示文本內(nèi)容,格式：對象 .print 表達(dá)式( 2 ) Cls 方法 清除運行時在窗體或圖形框中產(chǎn)生的文本或圖形 ， Cls 方法不能清除窗體在

5、設(shè)計時的文本和圖形。 格式： 對象 .cls( 3)Move 方法可移動窗體或控件，并可改變其大小語法格式如下：對象 .Move 左邊距離 ,上邊距離 ,寬度 ,高度4. 標(biāo)簽作用：用于顯示文本 (輸出 )信息，不能作為輸入信息的界面。其內(nèi)容只能通過Caption 屬性設(shè)置或修改，不能直接編輯。5. 文本框是一個文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。在VB 中字符長度以字為單位，也就是一個西文字符與一個漢字都是一個字，長度為1。重要屬性 (1) Text 顯示或輸入的正文內(nèi)容。(2) Maxlength 設(shè)置文本框可輸入的文字最大長度。默認(rèn)值為0，表示可以輸入任意長字符串。

6、(3) MultiLine 多行屬性設(shè)置為 True 時，文本框可以輸入或顯示多行正文，同時具有文字處理器的自動換行功能，按Enter 鍵可插入一空行。(4) ScrollBars0-None滾動條屬性無滾動條1-Horizontal水平滾動條2-Vertical垂直滾動條3-Both同時加水平和垂直滾動條注意：當(dāng) MultiLine 為 True 時， ScrollBars 才有效(5) PassWordChar 設(shè)置顯示文本的替代符。例如，當(dāng)設(shè)置為“*”，則在文本框輸入的內(nèi)容均以“* ”顯示，而存儲的值是用戶輸入的原文。一般用于設(shè)置口令的輸入。當(dāng) MultiLine 為 True 時，該屬

7、性不起作用，密碼不允許多行。(6) Locked 指定文本控件是否可被編輯，默認(rèn)值為False(可編輯)，當(dāng)設(shè)置為True時，文本控件相當(dāng)于標(biāo)簽控件的作用。注意： Locked 與 Enabled 的區(qū)別。(7) 文本內(nèi)容進(jìn)行選擇操作的三個屬性SelStart選定的正文開始位置SelLength選定的正文長度SelText選定的正文內(nèi)容這3個屬性互相關(guān)聯(lián)，例如設(shè)置SelStart、SelLength后，SelText自動存放指定的文本。 注意：屬性窗口中沒有這三個屬性，只能在程序代碼中使用。6. 文本框的事件： Change事件：當(dāng)Text屬性值發(fā)生改變時引發(fā)該事件(2) KeyPress事件

8、：按下并且釋放鍵盤上的一個鍵時，引發(fā)焦點所在控件的KeyPress事件，所按鍵的值存放在參數(shù) KeyAscii 中。對回車的判斷 KeyAscii=137文本框最有用的方法是 SetFocus，把光標(biāo)移到指定的文本框中。8. 命令按鈕Picture屬性：按鈕可顯示圖片文件 (.bmp和co)，當(dāng)Style為1時有效。10. 啟動窗體時將命令按鈕定位在窗體中央的代碼Private Sub Form_Load()Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2Command1.Top = Form1.ScaleHeight / 2

9、- Command1.Height / 2 End Sub11 vb 圖片文件在 C:Program FilesMicrosoft Visual StudioCommonGraphics 文件夾 安裝 VB 時可選擇是否安裝這些圖片文件。習(xí)題三1. 合法常量：(1) Double(2) 錯誤(3) Double(4) Double(5) 錯誤(6) Integer(7) String(8) String(9) Date(10) Double(11) 錯誤(漢字字符)(12) Integer( 八進(jìn)制 )(13) 錯誤(八進(jìn)制無數(shù)碼 8)(14) Integer(15) Boolean(16)

10、錯誤(17) 錯誤(十六進(jìn)制無數(shù)碼 g)(18) Single 說明：浮點型變量默認(rèn)為 Double 類型而非 Single。2. 合法變量名：vv(3) 誤：數(shù)字開頭(4) 誤：含空格(5) 誤：關(guān)鍵字(6) v(7) 誤：關(guān)鍵字(8) 誤：有括號(9) v(10) v(11) v(12) V (漢字字符可作為變量名，但不常用，且此名稱易誤解)變量命名規(guī)則見 P.4 1 -42 。字母(漢字)開頭，字母(漢字)、數(shù)字、下劃線組成，長度為1-255 個字符；關(guān)鍵字不可作為變量名，但可在變量名中嵌入關(guān)鍵字；不區(qū)分大小寫。常量、數(shù)組、類型、函數(shù)、過程、對象命名規(guī)則與此相同。常量名通常全用大寫。3.

11、 寫 VB 表達(dá)式(1) Abs(x + y) + z A 5(1 + x * y) A 6(3) (10 * x + Sqr(3 * y) / (x * y)(4) (-b + Sqr(b A 2 - 4 * a * c) / (2 * a)(5) 1 / (1 / r1 + 1 / r2 + 1 / r3)(6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10) / Sqr(x + y + 1)4. 根據(jù)條件寫表達(dá)式(1) 隨機(jī)產(chǎn)生大寫字母 Chr(Int(Rnd * (Asc("L") - Asc("C")

12、+ 1) + Asc("C")(2) 100,200 內(nèi)的隨機(jī)數(shù) Int(Rnd * 101) + 100(3) 點(x,y)位于第一或第三象限 x > 0 And y > 0 Or x < 0 And y < 0或 x * y > 0(4) x 是 5或 7的整數(shù)倍 x Mod 5 = 0 Or Int(x / 7) = x / 7(5) 將兩位整數(shù) x 的個位與十位對換 x 10 + (x Mod 10) * 10(6) 四舍五入取兩位小數(shù) Round(x, 2)(7) 字符變量 C 是字母字符(不區(qū)分大小寫)準(zhǔn)確地說是：字符變量 C 的第

13、一個字符是字母C >= "A" And C <= "Z" Or C >= "a" And C < "z"或 UCase(C) >= "A" And UCase(C) <= "Z"或 LCase(C) >= "a" And LCase(C) <= "z"(8) 字符變量S第5個字符起取6個字符Mid(S, 5, 6)(9) 10 < xv 2010 <= x And x <

14、 20(10) x , y至少有一個小于 zx < z Or y < z(11) x， y 都大于 zx > z And y > z5. 寫表達(dá)式的值(1) 188 注意運算的優(yōu)先級順序，以及整除運算“ ”的計算(2) 200100 計算 100 + "100" 時，由于兩個操作數(shù)類型不同，在可能的情況下自動采用精度較高的類型，即把字符型轉(zhuǎn)換為數(shù)值型， 100 +100 得到 200；然后進(jìn)行字符串連接運算200 & 100 ，再自動將兩個數(shù)值轉(zhuǎn)換為字符串，得 200100。(3) 68.56 在四舍五入函數(shù)產(chǎn)生之前，這就是四舍五入的計算方法

15、(4) 876554 先進(jìn)行字符串的“ +”運算，再轉(zhuǎn)換成數(shù)值。在變量名和函數(shù)名后可加上類型符，以強(qiáng) 調(diào)其類型，但不是必須的。(5) 2000-2-29(6) 66 Shell 函數(shù)調(diào)用i = Shell("mspaint.exe", 1)'啟動畫圖i = Shell("C:Program FilesMicrosoft OfficeOFFICE11winword.exe", 1)'啟動 Word說明：“畫圖”是 Windows 本身提供的程序，可以省略路徑。8. 答：單精度浮點型第 7 ， 9 題答案在教材中找。習(xí)題四第 1 ， 3， 5

16、， 8 題答案在教材中找。2. 賦值語句的錯誤(1 )10x 不能做變量名。上機(jī)驗證結(jié)果： VB 將 10 識別為行號， x = Sin(x) + y 是為變量 x 賦值。故無語法錯誤。(2) Sqr 函數(shù)的參數(shù)為負(fù)數(shù)。 上機(jī)驗證結(jié)果：“無效的過程調(diào)用或參數(shù)”(3) 賦值號左邊不是變量名。上機(jī)驗證結(jié)果：“缺少子程序、函數(shù)或?qū)傩浴? 4 )除數(shù)為 0 上機(jī)驗證結(jié)果：“溢出”。4. 答案略 說明：小數(shù)位可以使用四舍五入函數(shù)Round或輸出格式函數(shù)Format。例如 Round(x, 2)和Format(x,“0.00”)均可使結(jié)果只保留兩位小數(shù)。但如果四舍五入后要進(jìn)行數(shù)值運算，則使用Round 函

17、數(shù)，例如z=Round(x,2)+Round(y,2) 。而 Format 函數(shù)通常只用于輸出格式設(shè)置。6指出錯誤(1 )“”應(yīng)改為“ >=”，前者是中文字符，不具有運算功能。( 2)“ 10<x<20 ”應(yīng)改為“ 10<x And x<20 ”，否則運行結(jié)果錯誤 7寫條件語句(1)Dim c As Stringc = InputBox("c=")If Mid(c, 3, 1) = "C" ThenMsgBox "Yes"ElseMsgBox "No"End If( 2 )# 使用 I

18、f 語句Dim x As Single, y As Singlex = Val(InputBox("x=")If x > 20 Theny = x 人 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "y=" y# 使用 Select Case 語句Dim x As Single, y As Singlex = Val(InputBox("x=")Select Case x

19、Case Is > 20y = x 人 2 + 3 * x + 2Case Is >= 10y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "y=" y( 3)# 使用 If 語句Dim x As Single, y As Single, z As Single, Max As Singlex = Val(InputBox("x=")y = Val(InputBox("y=")z = Val(InputBox("z=")

20、Max = xIf y > Max Then Max = yIf z > Max Then Max = zPrint "Max=" Max# 使用 IIF 函數(shù)x = Val(InputBox("x=")y = Val(InputBox("y=")z = Val(InputBox("z=")Max = IIf(x > y, x, y)Max = IIf(z > Max, z, Max)Print "Max=" Max9. 計算循環(huán)次數(shù)(1) 6(2) 19(3) 0(4)

21、 死循環(huán)直至溢出10. 40 號語句執(zhí)行 4 次；第 50 號語句執(zhí)行 12 次；執(zhí)行第 90 號語句輸出的結(jié)果是：13，0，2說明：該程序為嵌套循環(huán)，其中外循環(huán)由 j值變化(1 , 4, 7, 10)控制執(zhí)行4次，當(dāng)j值為13時結(jié)束循環(huán); 內(nèi)循環(huán)由k值變化(6，4，2)控制執(zhí)行3次，當(dāng)k值為0時結(jié)束循環(huán)。第40行是外循環(huán)的循環(huán)體，故執(zhí) 行4次;第 50 行是內(nèi)循環(huán)的循環(huán)體，故執(zhí)行 4*3=12次。11. 可以定一個較大的循環(huán)次數(shù)，在循環(huán)體中根據(jù)條件用 Exit For 退出。但這種情況通常用 Do While 循環(huán)控制。12. 編程(并非唯一正確答案)(1)Dim i As Integer,

22、 s As IntegerFor i = 1 To 10s = s + (i + 1) * (2 * i + 1)Next iPrint "s=" s( 2)Dim i As Integer, n3 As Integer, n7 As IntegerFor i = 1 To 100If i Mod 3 = 0 Then n3 = n3 + 1If Int(i / 7) = i / 7 Then n7 = n7 + 1Next iPrint "1-100 中 3 的倍數(shù)有 " n3; "個"Print "1-100 中 7 的

23、倍數(shù)有 " n7; "個"( 3)Dim s1 As String, s2 As String, i As Integers1 = InputBox("Input String")s2 = ""For i = 1 To Len(s1)s2 = Mid(s1, i, 1) + s2Next iPrint "原序： " s1Print "反序： " s2或For i = Len（s1） To 1 Step -1s2 = s2 + Mid（s1, i, 1）Next i13. 輸出字符串“

24、10100”。該程序功能是將十進(jìn)制數(shù)轉(zhuǎn)化為二進(jìn)制。14. 運行時輸出 22 484該程序功能是求 x 和 y 最大公約數(shù)和最小公倍數(shù)。說明：此算法稱為“輾轉(zhuǎn)相減法”?？蓪φ绽?4.17 的輾轉(zhuǎn)相除（輾轉(zhuǎn)求余）法。 1550，100間的 20 個隨機(jī)數(shù)，求最大值、最小值、平均值。Dim x As Integer, sum As Integer, aver As SingleDim n%, i%, max%, min%Randomizemax = 50: min = 100: n = 20For i = 1 To nx = Int（Rnd * 51 + 50）List1.AddItem xsum

25、= sum + xIf x > max Then max = xIf x < min Then min = xNext iaver = sum / nPrint " 最大值： " max, " 最小值： " min, " 平均值： " aver 習(xí)題五1. 指定數(shù)組的默認(rèn)下界 Option Base 12合理的數(shù)組聲明（1）錯。定義數(shù)組不可用變量（教材 99 頁）。（2）正確。該數(shù)組下標(biāo)為 0-11。（3）錯。VB中數(shù)組下標(biāo)用圓括號。（4）正確。三維數(shù)組三個下標(biāo)分別為 0-1，0-1，0-2，共 12 個元素。（ 5 ）錯

26、誤。非動態(tài)數(shù)組，不可重定義。（ 6 ）錯誤。動態(tài)數(shù)組重定義時不可改變數(shù)據(jù)類型。（7）正確。二維數(shù)組兩個下標(biāo)分別為 0-2，0-3，共 12 個元素。（8）語法錯誤，二維數(shù)組定義中漏寫逗號可能是印刷錯誤，加上此逗號則正確。3當(dāng)引用數(shù)組元素時下標(biāo)值小于定義的最小下標(biāo)，或大于最大下標(biāo)時，會發(fā)生“下標(biāo)越界”錯誤 4數(shù)組名：a ；數(shù)組類型：Single （單精度浮點型）；維數(shù)：二維； 各維的上下界：第一維下界（最小下標(biāo)）為-1，上界（最大下標(biāo)）為 2，第二維下界（最小下標(biāo)）為 0，上界（最大下標(biāo)）為 3；數(shù)組的大?。?4 行 4 列共 16 個元素以矩陣的格式輸出二維數(shù)組：For i = -1 To 2

27、For j = 0 To 3Print a（i, j）;Next jPrintNext i或?qū)懗筛油ㄓ玫拇a形式：For i = LBound(a, 1) To UBound(a, 1)For j = LBound(a, 2) To UBound(a, 2)Print Tab(j * 8); a(i, j);Next jPrintNext i6一維字符數(shù)組Dim a(1 To 20) As StringPrivate Sub Command1_Click()'(1) 隨機(jī)產(chǎn)生字符串Dim i As Integer, j As Integer, n As Integer, c As S

28、tring * 1 RandomizeFor i = 1 To 20a(i)=""將第i個元素清空n = Int(Rnd * 10 + 1) '產(chǎn)生1,10的隨機(jī)數(shù)For j = 1 To n'a(i) 中有 n 個字符c = Chr(lnt(Rnd * 26 + 97)'隨機(jī)產(chǎn)生字母 97是字母a的ASCII碼a(i) = a(i) + cNext jNext iEnd SubPrivate Sub Command2_Click() '(2)輸出字符串Dim i As IntegerFor i = 1 To 20Print Tab(i -

29、1) Mod 5) * 11); a(i);If i Mod 5 = 0 Then PrintNext iEnd SubPrivate Sub Command3_Click()'(3)最長的字符串Dim i As Integer, imax As Integerimax = 1For i = 2 To 20If Len(a(i) > Len(a(imax) Then imax = iEnd IfNext iPrint "最長的字符串： " a(imax)End Sub第 7，8 題答案在教材中找。 第9題“自定義變量”含義不明，暫時無法回答。第 5，10 題

30、暫略習(xí)題六第 1， 2，6-8 題答案可在教材中找到。 3指出過程說明中的錯誤(1) Sub 子過程不應(yīng)該定義類型(2) 函數(shù)與形式參數(shù)不應(yīng)該同名( 3 )數(shù)組作為形式參數(shù)時，應(yīng)使用傳地址方式，不可使用傳值(ByVal )(4) 形式參數(shù)應(yīng)該是變量或數(shù)組名，不可以是一個數(shù)組元素4指出調(diào)用過程語句的錯誤(1) 無語法錯誤，但因形參sum 所對應(yīng)的實參是常量 3，故計算結(jié)果無法傳遞給主調(diào)程序。( 2 )實參變量 c 與形參 sum 的類型不一致。(3) 類似于(1),形參sum所對應(yīng)的實參是表達(dá)式a+b，故計算結(jié)果無法傳遞給主調(diào)程序。(4) 類似于(1)和(2)，形參sum所對應(yīng)的實參是表達(dá)式 S

31、qr(c)，故計算結(jié)果無法傳遞給主調(diào)程序。另 外srq(a)存在語法錯誤(拼寫錯)。(5) 與( 2)相同，實參 c 與形參 sum 的類型不一致。5迭代法求平方根( 1 )自定義函數(shù)的定義及調(diào)用Function FSqr1(a As Single) As SingleDim x0 As Single, x As Singlex = aDox0 = xx = (x0 + a / x0) / 2Loop While Abs(x - x0) > 0.00001FSqr1 = xEnd FunctionPrivate Sub Command1_Click()Dim x!, y!x = Val(

32、InputBox("x=")If x >= 0 Theny = FSqr1(x)Print yEnd IfEnd Sub(2) 自定義子過程的定義及調(diào)用Sub FSqr2(a As Single, x As Single)Dim x0 As Singlex = aDox0 = xx = (x0 + a / x0) / 2Loop While Abs(x - x0) > 0.00001End SubPrivate Sub Command2_Click()Dim x!, y!x = Val(InputBox("x=")If x >= 0 ThenCall FSqr2(x, y)Print yEnd IfEnd Sub(3) 遞歸函數(shù)及調(diào)用 略 習(xí)題七 第 1-9 題，答案在教材上找；第 10， 12-14 題，略。11檢測 Ctrl 和 F3 同時按下的代碼：Private Sub Text1_KeyDown(KeyCode As Integer,