對象的三個基本要素

對象的三個基本要素封裝、繼承和多態(tài)。

成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供新民網(wǎng)站建設(shè)、新民做網(wǎng)站、新民網(wǎng)站設(shè)計、新民網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、新民企業(yè)網(wǎng)站模板建站服務(wù)，10年新民做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

1. 封裝： 封裝是把過程和數(shù)據(jù)包圍起來，對數(shù)據(jù)的訪問只能通過已定義的界面。面向?qū)ο笥嬎闶加谶@個基本概念，即現(xiàn)實世界可以被描繪成一系列完全自治、封裝的對象，這些對象通過一個受保護的接口訪問其他對象。

2. 繼承： 繼承是一種聯(lián)結(jié)類的層次模型，并且允許和鼓勵類的重用，它提供了一種明確表述共性的方法。對象的一個新類可以從現(xiàn)有的類中派生，這個過程稱為類繼承。新類繼承了原始類的特性，新類稱為原始類的派生類（子類），而原始類稱為新類的基類（父類）。派生類可以從它的基類那里繼承方法和實例變量，并且類可以修改或增加新的方法使之更適合特殊的需要。

3. 多態(tài)： 多態(tài)性是指允許不同類的對象對同一消息作出響應(yīng)。多態(tài)性包括參數(shù)化多態(tài)性和包含多態(tài)性。多態(tài)性語言具有靈活、抽象、行為共享、代碼共享的優(yōu)勢，很好的解決了應(yīng)用程序函數(shù)同名問題。

學(xué)習(xí)，是指通過閱讀、聽講、思考、研究、實踐等途徑獲得知識和技能的過程。學(xué)習(xí)分為狹義與廣義兩種:

狹義:通過閱讀、聽講、研究、觀察、理解、探索、實驗、實踐等手段獲得知識或技能的過程，是一種使個體可以得到持續(xù)變化(知識和技能，方法與過程，情感與價值的改善和升華)的行為方式。例如通過學(xué)校教育獲得知識的過程。

廣義:是人在生活過程中，通過獲得經(jīng)驗而產(chǎn)生的行為或行為潛能的相對持久為方式。

社會上總會出現(xiàn)一種很奇怪的現(xiàn)象，一些人嘴上埋怨著老板對他不好，工資待遇太低什么的，卻忽略了自己本身就是懶懶散散，毫無價值。

自古以來，人們就會說著“因果循環(huán)”，這話真不假，你種什么因，就會得到什么果。這就是不好好學(xué)習(xí)釀成的后果，那么學(xué)習(xí)有什么重要性呢？

物以類聚人以群分，什么樣水平的人，就會處在什么樣的環(huán)境中。更會漸漸明白自己是什么樣的能力。了解自己的能力，交到同水平的朋友，自己個人能力越高，自然朋友質(zhì)量也越高。

在大多數(shù)情況下，學(xué)習(xí)越好，自身修養(yǎng)也會隨著其提升。同樣都是有錢人，暴發(fā)戶擺弄錢財只會讓人覺得俗，而真正有知識的人，氣質(zhì)就會很不一樣。

高端大氣的公司以及產(chǎn)品是萬萬離不了知識的，只有在知識上不輸給別人，才可以在別的地方不輸別人。

孩子的教育要從小抓起，家長什么樣孩子很大幾率會變成什么樣。只有將自己的水平提升，才會教育出更好的孩子。而不是一個目光短淺的人。

因為有文化的父母會給孩子帶去更多的在成長方面的的幫助，而如果孩子有一個有文化的父母，通常會在未來的道路上，生活得更好，更順暢。

學(xué)習(xí)是非常的重要，學(xué)習(xí)的好壞最終決定朋友的質(zhì)量、自身修養(yǎng)和后代教育等方面，所以平時在學(xué)習(xí)中要努力。

vb中設(shè)置對象的屬性有幾種方法

用屬性窗口修改（在編程的時候修改），用代碼修改兩種方法，操作方法如下：

1、首先，在工程菜單按鈕下，找到并點擊工程屬性按鈕。

2、然后，就能在這里看到工程屬性的窗口。此時，就能在這里使用通用屬性設(shè)置啟動對象。

3、然后在打開的通用頁面中，在這里進行設(shè)置啟動對象。

4、然后鼠標(biāo)點擊這個下拉框，就能在這里Form1為啟動對象。

5、最后，設(shè)置完成后，點擊確定按鈕，就完成了進行啟動對象的設(shè)置。

第三版VB程序設(shè)計教程課后習(xí)題答案 龔沛曾主編的

習(xí)題一

答案在教材上找。

習(xí)題二

1.對象指現(xiàn)實世界中的實體。每個對象有自己的特征(屬性)、行為(方法)和發(fā)生在該對象上的活動(事件)。

類是對同一種對象的集合與抽象。類包含所創(chuàng)建對象的屬性數(shù)據(jù)，以及對這些數(shù)據(jù)進行操作的方法。封裝和隱藏是類的重要特性，將數(shù)據(jù)結(jié)構(gòu)和對數(shù)據(jù)的操作封裝在一起，類的內(nèi)部實現(xiàn)細節(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)建了一個窗體對象。

對象的三要素：屬性、事件和方法。

屬性：存放對象的數(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屬性：名稱

所創(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屬性：鼠標(biāo)指針類型, 設(shè)置值范圍0～15，由系統(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)用程序時對屬性和變量進行初始化。

窗體的方法:（1）Print方法

用來顯示文本內(nèi)容，格式：[對象.]print 表達式

（2）Cls方法

清除運行時在窗體或圖形框中產(chǎn)生的文本或圖形, Cls方法不能清除窗體在設(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è)置文本框可輸入的文字最大長度。默認值為0，表示可以輸入任意長字符串。

(3) MultiLine 多行屬性

設(shè)置為True時，文本框可以輸入或顯示多行正文，同時具有文字處理器的自動換行功能，按Enter鍵可插入一空行。

(4) ScrollBars 滾動條屬性

0-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時，該屬性不起作用，密碼不允許多行。

(6) Locked 指定文本控件是否可被編輯，默認值為False(可編輯)，當(dāng)設(shè)置為True時，文本控件相當(dāng)于標(biāo)簽控件的作用。

注意：Locked與Enabled的區(qū)別。

(7)文本內(nèi)容進行選擇操作的三個屬性

SelStart 選定的正文開始位置

SelLength 選定的正文長度

SelText 選定的正文內(nèi)容

這3個屬性互相關(guān)聯(lián),例如設(shè)置SelStart、SelLength后，SelText 自動存放指定的文本。

注意：屬性窗口中沒有這三個屬性，只能在程序代碼中使用。

6.文本框的事件：(1) Change事件：當(dāng)Text屬性值發(fā)生改變時引發(fā)該事件

(2) KeyPress事件：按下并且釋放鍵盤上的一個鍵時，引發(fā)焦點所在控件的KeyPress事件，所按鍵的值存放在參數(shù)KeyAscii中。對回車的判斷 KeyAscii=13

7.文本框最有用的方法是SetFocus，把光標(biāo)移到指定的文本框中。

8.命令按鈕 Picture屬性：按鈕可顯示圖片文件(.bmp和.Ico)，當(dāng)Style為1時有效。

10. 啟動窗體時將命令按鈕定位在窗體中央的代碼

Private Sub Form_Load()

Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2

Command1.Top = Form1.ScaleHeight / 2 - Command1.Height / 2

End Sub

11．vb圖片文件在 C:\Program Files\Microsoft Visual Studio\Common\Graphics 文件夾。

安裝VB時可選擇是否安裝這些圖片文件。

習(xí)題三

1. 合法常量：

(1) Double

(2) 錯誤

(3) Double

(4) Double

(5) 錯誤

(6) Integer

(7) String

(8) String

(9) Date

(10) Double

(11) 錯誤（漢字字符）

(12)Integer(八進制)

(13) 錯誤（八進制無數(shù)碼8）

(14) Integer

(15) Boolean

(16) 錯誤

(17) 錯誤（十六進制無數(shù)碼g）

(18) Single

說明：浮點型變量默認為Double類型而非Single。

2. 合法變量名：

(1) √

(2) √

(3) 誤：數(shù)字開頭

(4) 誤：含空格

(5) 誤：關(guān)鍵字

(6) √

(7) 誤：關(guān)鍵字

(8) 誤：有括號

(9) √

(10) √

(11) √

(12) √（漢字字符可作為變量名，但不常用，且此名稱易誤解）

變量命名規(guī)則見P.41-42。

字母（漢字）開頭，字母（漢字）、數(shù)字、下劃線組成，長度為1-255個字符；關(guān)鍵字不可作為變量名，但可在變量名中嵌入關(guān)鍵字；不區(qū)分大小寫。

常量、數(shù)組、類型、函數(shù)、過程、對象命名規(guī)則與此相同。常量名通常全用大寫。

3. 寫VB表達式

(1) Abs(x + y) + z ^ 5

(2) (1 + x * y) ^ 6

(3) (10 * x + Sqr(3 * y)) / (x * y)

(4) (-b + Sqr(b ^ 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ù)條件寫表達式

(1) 隨機產(chǎn)生大寫字母 Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))

(2) [100,200]內(nèi)的隨機數(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的第一個字符是字母

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≤x＜20 10 = x And x 20

(10) x，y至少有一個小于z x z Or y z

(11)x，y都大于z x z And y z

5. 寫表達式的值

(1) 188 ——注意運算的優(yōu)先級順序，以及整除運算“\”的計算

(2) 200100 —— 計算100 + "100"時，由于兩個操作數(shù)類型不同，在可能的情況下自動采用精度較高的類型，即把字符型轉(zhuǎn)換為數(shù)值型，100 +100 得到200；然后進行字符串連接運算200 100 ，再自動將兩個數(shù)值轉(zhuǎn)換為字符串，得200100。

(3) 68.56 ——在四舍五入函數(shù)產(chǎn)生之前，這就是四舍五入的計算方法

(4) 876554 ——先進行字符串的“+”運算，再轉(zhuǎn)換成數(shù)值。在變量名和函數(shù)名后可加上類型符，以強調(diào)其類型，但不是必須的。

(5) 2000-2-29

(6) 6

6．Shell函數(shù)調(diào)用

i = Shell("mspaint.exe", 1) '啟動畫圖

i = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", 1) '啟動Word

說明：“畫圖”是Windows本身提供的程序，可以省略路徑。

8. 答：單精度浮點型

第7，9題答案在教材中找。

習(xí)題四

第1，3，5，8題答案在教材中找。

2. 賦值語句的錯誤

（1）10x 不能做變量名。

上機驗證結(jié)果：VB將10識別為行號，x = Sin(x) + y是為變量x賦值。故無語法錯誤。

（2）Sqr函數(shù)的參數(shù)為負數(shù)。

上機驗證結(jié)果：“無效的過程調(diào)用或參數(shù)”

（3）賦值號左邊不是變量名。

上機驗證結(jié)果：“缺少子程序、函數(shù)或?qū)傩浴?/p>

（4）除數(shù)為0

上機驗證結(jié)果：“溢出”。

4. [答案略]

說明：小數(shù)位可以使用四舍五入函數(shù)Round或輸出格式函數(shù)Format。例如Round(x, 2)和Format(x, “0.00”)均可使結(jié)果只保留兩位小數(shù)。但如果四舍五入后要進行數(shù)值運算，則使用Round函數(shù)，例如z=Round(x,2)+Round(y,2)。而Format函數(shù)通常只用于輸出格式設(shè)置。

6．指出錯誤

（1）“≥”應(yīng)改為“=”，前者是中文字符，不具有運算功能。

（2）“10x20”應(yīng)改為“10x And x20”，否則運行結(jié)果錯誤。

7．寫條件語句

（1）

Dim c As String

c = InputBox("c=")

If Mid(c, 3, 1) = "C" Then

MsgBox "Yes"

Else

MsgBox "No"

End If

（2）

# 使用If語句

Dim x As Single, y As Single

x = Val(InputBox("x="))

If x 20 Then

y = x ^ 2 + 3 * x + 2

ElseIf x = 10 Then

y = Sqr(3 * x) - 2

ElseIf x 0 Then

y = 1 / x + Abs(x)

End If

Print "y="; y

# 使用Select Case語句

Dim x As Single, y As Single

x = Val(InputBox("x="))

Select Case x

Case Is 20

y = x ^ 2 + 3 * x + 2

Case Is = 10

y = Sqr(3 * x) - 2

Case Is 0

y = 1 / x + Abs(x)

End Select

Print "y="; y

（3）

# 使用If語句

Dim x As Single, y As Single, z As Single, Max As Single

x = Val(InputBox("x="))

y = Val(InputBox("y="))

z = Val(InputBox("z="))

Max = x

If y Max Then Max = y

If z Max Then Max = z

Print "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="; Max

9. 計算循環(huán)次數(shù)

（1） 6

（2）19

（3）0

（4）死循環(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, s As Integer

For i = 1 To 10

s = s + (i + 1) * (2 * i + 1)

Next i

Print "s="; s

（2）

Dim i As Integer, n3 As Integer, n7 As Integer

For i = 1 To 100

If i Mod 3 = 0 Then n3 = n3 + 1

If Int(i / 7) = i / 7 Then n7 = n7 + 1

Next i

Print "1-100中3的倍數(shù)有"; n3; "個"

Print "1-100中7的倍數(shù)有"; n7; "個"

（3）

Dim s1 As String, s2 As String, i As Integer

s1 = InputBox("Input String")

s2 = ""

For i = 1 To Len(s1)

s2 = Mid(s1, i, 1) + s2

Next i

Print "原序："; s1

Print "反序："; s2

或

For i = Len(s1) To 1 Step -1

s2 = s2 + Mid(s1, i, 1)

Next i

13. 輸出字符串“10100”。該程序功能是將十進制數(shù)轉(zhuǎn)化為二進制。

說明：要理解該程序需要了解數(shù)制轉(zhuǎn)換的計算方法（有興趣者參看百度百科）。48是字符"0"的ASCII碼。

14. 運行時輸出 22 484

該程序功能是求x和y最大公約數(shù)和最小公倍數(shù)。

說明：此算法稱為“輾轉(zhuǎn)相減法”。可對照例4.17的輾轉(zhuǎn)相除（輾轉(zhuǎn)求余）法。

15．[50，100]間的20個隨機數(shù)，求最大值、最小值、平均值。

Dim x As Integer, sum As Integer, aver As Single

Dim n%, i%, max%, min%

Randomize

max = 50: min = 100: n = 20

For i = 1 To n

x = Int(Rnd * 51 + 50)

List1.AddItem x

sum = sum + x

If x max Then max = x

If x min Then min = x

Next i

aver = sum / n

Print "最大值："; max, "最小值："; min, "平均值："; aver

習(xí)題五

1. 指定數(shù)組的默認下界 Option Base 1

2．合理的數(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）錯誤。非動態(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．?dāng)?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

For j = 0 To 3

Print a(i, j);

Next j

Print

Next 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 j

Print

Next i

6．一維字符數(shù)組

Dim a(1 To 20) As String

Private Sub Command1_Click() '(1)隨機產(chǎn)生字符串

Dim i As Integer, j As Integer, n As Integer, c As String * 1

Randomize

For i = 1 To 20

a(i) = "" '將第i個元素清空

n = Int(Rnd * 10 + 1) '產(chǎn)生[1,10]的隨機數(shù)

For j = 1 To n 'a(i)中有n個字符

c = Chr(Int(Rnd * 26 + 97)) '隨機產(chǎn)生字母97是字母a的ASCII碼

a(i) = a(i) + c

Next j

Next i

End Sub

Private Sub Command2_Click() '(2)輸出字符串

Dim i As Integer

For i = 1 To 20

Print Tab(((i - 1) Mod 5) * 11); a(i);

If i Mod 5 = 0 Then Print

Next i

End Sub

Private Sub Command3_Click() '(3)最長的字符串

Dim i As Integer, imax As Integer

imax = 1

For i = 2 To 20

If Len(a(i)) Len(a(imax)) Then

imax = i

End If

Next i

Print "最長的字符串："; a(imax)

End Sub

第7，8題答案在教材中找。

第9題“自定義變量”含義不明，暫時無法回答。

第5，10 題 [暫略]

習(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)的實參是表達式a+b，故計算結(jié)果無法傳遞給主調(diào)程序。

（4）類似于（1）和（2），形參sum所對應(yīng)的實參是表達式Sqr(c)，故計算結(jié)果無法傳遞給主調(diào)程序。另外srq(a)存在語法錯誤（拼寫錯）。

（5）與（2）相同，實參c與形參sum的類型不一致。

5．迭代法求平方根

（1）自定義函數(shù)的定義及調(diào)用

Function FSqr1(a As Single) As Single

Dim x0 As Single, x As Single

x = a

Do

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) 0.00001

FSqr1 = x

End Function

Private Sub Command1_Click()

Dim x!, y!

x = Val(InputBox("x="))

If x = 0 Then

y = FSqr1(x)

Print y

End If

End Sub

（2）自定義子過程的定義及調(diào)用

Sub FSqr2(a As Single, x As Single)

Dim x0 As Single

x = a

Do

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) 0.00001

End Sub

Private Sub Command2_Click()

Dim x!, y!

x = Val(InputBox("x="))

If x = 0 Then

Call FSqr2(x, y)

Print y

End If

End Sub

（3）遞歸函數(shù)及調(diào)用 [略]

習(xí)題七

第1-9題，答案在教材上找；第10，12-14題，略。

11．檢測Ctrl和F3同時按下的代碼：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 2 And KeyCode = 114 Then MsgBox "HAHA"

End Sub

習(xí)題八

第1，2，6，7，9題答案可閱讀教材找到。

3．寫Open語句

（1） Open "Seqnew.dat" For Output As #1 '重寫

或 Open "Seqnew.dat" For Append As #1 '添加

（2）Open "Seqold.dat" For Input As #2

（3）Open "Seqappend.dat" For Append As FreeFile

4．編程，將文件Text.dat 讀入變量strTest。

Dim strTest As String

Open "Text.dat" For Input As #2

Do While Not EOF(2)

strTest = strTest + Input(1, #2)

Loop

8．本課程不涉及二進制文件。故此處以順序文件讀寫方式編程。另外合并的結(jié)果可以是合并到其中某一個文件，也可以是合并到一個新的文件，此處代碼是合并到其中一個文件F1.txt。

'方法一，在2號文件一次讀一個字符并寫入1號文件

Dim strTemp As String * 1

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

Do While Not EOF(2)

strTemp = Input(1, #2)

Print #1, strTemp; '注意結(jié)尾有分號，否則每個字符一行

Loop

Close

'方法二，在2號文件一次讀一個字符并累加，最后將累加結(jié)果寫入1號文件

Dim strTemp As String '注意方法一變量定義的區(qū)別

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

strTemp = ""

Do While Not EOF(2)

strTemp = strTemp + Input(1, #2)

Loop

Print #1, strTemp

Close

習(xí)題九

答案在教材上找。

習(xí)題十

答案在教材上找

對象的三大要素是什么?

面向?qū)ο髈op三大要素

A 多態(tài) (就像你面對許多女孩一樣)

B 封裝 (在超市里不管買多少東西他們都會給你個口袋)

C 繼承 (你父親和你的關(guān)系當(dāng)然sex是private的~)

:)

vb中正常循環(huán)有哪三要素

vb中正常循環(huán)的三要素：

FOR：初值、步長、終值

WHILE循環(huán)：初值、循環(huán)控制條件、修改控制變量值的語句（或跳出循環(huán)的語句）

網(wǎng)站欄目：vb.net對象的三要素,VB的三要素
瀏覽路徑：http://chinadenli.net/article40/hcphho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、外貿(mào)建站、全網(wǎng)營銷推廣、云服務(wù)器、用戶體驗、網(wǎng)站導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)