vb.net對(duì)象的三要素,VB的三要素

對(duì)象的三個(gè)基本要素

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

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

1. 封裝： 封裝是把過(guò)程和數(shù)據(jù)包圍起來(lái)，對(duì)數(shù)據(jù)的訪問(wèn)只能通過(guò)已定義的界面。面向?qū)ο笥?jì)算始于這個(gè)基本概念，即現(xiàn)實(shí)世界可以被描繪成一系列完全自治、封裝的對(duì)象，這些對(duì)象通過(guò)一個(gè)受保護(hù)的接口訪問(wèn)其他對(duì)象。

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

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

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

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

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

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

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

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

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

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

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

因?yàn)橛形幕母改笗?huì)給孩子帶去更多的在成長(zhǎng)方面的的幫助，而如果孩子有一個(gè)有文化的父母，通常會(huì)在未來(lái)的道路上，生活得更好，更順暢。

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

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

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

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

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

3、然后在打開(kāi)的通用頁(yè)面中，在這里進(jìn)行設(shè)置啟動(dòng)對(duì)象。

4、然后鼠標(biāo)點(diǎn)擊這個(gè)下拉框，就能在這里Form1為啟動(dòng)對(duì)象。

5、最后，設(shè)置完成后，點(diǎn)擊確定按鈕，就完成了進(jìn)行啟動(dòng)對(duì)象的設(shè)置。

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

習(xí)題一

答案在教材上找。

習(xí)題二

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

類(lèi)是對(duì)同一種對(duì)象的集合與抽象。類(lèi)包含所創(chuàng)建對(duì)象的屬性數(shù)據(jù)，以及對(duì)這些數(shù)據(jù)進(jìn)行操作的方法。封裝和隱藏是類(lèi)的重要特性，將數(shù)據(jù)結(jié)構(gòu)和對(duì)數(shù)據(jù)的操作封裝在一起，類(lèi)的內(nèi)部實(shí)現(xiàn)細(xì)節(jié)對(duì)用戶(hù)來(lái)說(shuō)是透明的。

VB工具箱中的可視圖標(biāo)是VB系統(tǒng)設(shè)計(jì)好的標(biāo)準(zhǔn)控件類(lèi)。通過(guò)將控件類(lèi)實(shí)例化，得到真正的控件對(duì)象。在窗體上畫(huà)一個(gè)控件，就將類(lèi)轉(zhuǎn)換為對(duì)象，創(chuàng)建了一個(gè)控件對(duì)象。

VB中常用的對(duì)象是控件。此外，VB還提供了系統(tǒng)對(duì)象。窗體是個(gè)特例，它既是類(lèi)也是對(duì)象。當(dāng)向一個(gè)工程添加一個(gè)新窗體時(shí)，實(shí)質(zhì)就由窗體類(lèi)創(chuàng)建了一個(gè)窗體對(duì)象。

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

屬性：存放對(duì)象的數(shù)據(jù)(決定對(duì)象外觀及功能)對(duì)象屬性的設(shè)置方法：在設(shè)計(jì)階段，利用屬性窗口直接設(shè)置屬性值；程序運(yùn)行時(shí)，通過(guò)語(yǔ)句[對(duì)象名.]屬性名=屬性值。若屬性只能在設(shè)計(jì)階段設(shè)置，在程序運(yùn)行階段不可改變，稱(chēng)為只讀屬性。

事件：發(fā)生在對(duì)象上的事情。同一事件，對(duì)不同的對(duì)象，會(huì)引發(fā)不同的反應(yīng)。

事件過(guò)程：應(yīng)用程序處理事件的步驟。應(yīng)用程序設(shè)計(jì)的主要工作就是為對(duì)象編寫(xiě)事件過(guò)程的代碼。

方法：面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，為程序設(shè)計(jì)人員提供了一種特殊的過(guò)程和函數(shù)。方法是面向?qū)ο蟮?，調(diào)用時(shí)一定要指明對(duì)象。

2.窗體和控件具有的基本屬性“

(1) Name屬性：名稱(chēng)

所創(chuàng)建的對(duì)象名稱(chēng),在程序中引用。

(2) Caption屬性：標(biāo)題

該屬性決定了對(duì)象上顯示的內(nèi)容。

(3) Height、Width、Top和Left屬性

決定對(duì)象的大小和位置。

(4) Enabled 屬性：對(duì)象是否允許操作

(5) Visible 屬性：對(duì)象是否可見(jiàn)

(6) Font 屬性組：文本的外觀

FontName字體、FontSize大小

FontBold粗體、FontItalic斜體

FontStrikethru 刪除線

FontUnderline 下劃線

(7) ForeColor屬性：前景顏色

(8) BackColor屬性：背景顏色

(9) MousePointer屬性：鼠標(biāo)指針類(lèi)型, 設(shè)置值范圍0～15，由系統(tǒng)指定 。若為99，由用戶(hù)提供的圖形文件定義鼠標(biāo)指針形狀。

(10) MouseIcon屬性：在MousePointer屬性值為99時(shí)，存放自定義的鼠標(biāo)圖標(biāo)文件（.ico或.cur）。圖標(biāo)庫(kù)在Graphics目錄下。

3.窗體的事件：Load事件是在窗體被裝入工作區(qū)時(shí)觸發(fā)的事件。當(dāng)應(yīng)用程序啟動(dòng)，自動(dòng)執(zhí)行該事件，該事件通常用來(lái)在啟動(dòng)應(yīng)用程序時(shí)對(duì)屬性和變量進(jìn)行初始化。

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

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

（2）Cls方法

清除運(yùn)行時(shí)在窗體或圖形框中產(chǎn)生的文本或圖形, Cls方法不能清除窗體在設(shè)計(jì)時(shí)的文本和圖形。

格式：[對(duì)象.]cls

（3）Move方法

可移動(dòng)窗體或控件，并可改變其大小。

語(yǔ)法格式如下：

[對(duì)象.]Move 左邊距離[,上邊距離[,寬度[,高度]]]

4.標(biāo)簽作用：用于顯示文本(輸出)信息，不能作為輸入信息的界面。其內(nèi)容只能通過(guò)Caption屬性設(shè)置或修改，不能直接編輯。

5.文本框是一個(gè)文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。在VB中字符長(zhǎng)度以字為單位，也就是一個(gè)西文字符與一個(gè)漢字都是一個(gè)字，長(zhǎng)度為1。

重要屬性(1) Text 顯示或輸入的正文內(nèi)容。

(2) Maxlength 設(shè)置文本框可輸入的文字最大長(zhǎng)度。默認(rèn)值為0，表示可以輸入任意長(zhǎng)字符串。

(3) MultiLine 多行屬性

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

(4) ScrollBars 滾動(dòng)條屬性

0-None 無(wú)滾動(dòng)條

1-Horizontal 水平滾動(dòng)條

2-Vertical 垂直滾動(dòng)條

3-Both 同時(shí)加水平和垂直滾動(dòng)條

注意：當(dāng)MultiLine為T(mén)rue時(shí)，ScrollBars才有效

(5) PassWordChar 設(shè)置顯示文本的替代符。例如，當(dāng)設(shè)置為“*”，則在文本框輸入的內(nèi)容均以“*”顯示，而存儲(chǔ)的值是用戶(hù)輸入的原文。一般用于設(shè)置口令的輸入。

當(dāng)MultiLine為T(mén)rue時(shí)，該屬性不起作用，密碼不允許多行。

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

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

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

SelStart 選定的正文開(kāi)始位置

SelLength 選定的正文長(zhǎng)度

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

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

注意：屬性窗口中沒(méi)有這三個(gè)屬性，只能在程序代碼中使用。

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

(2) KeyPress事件：按下并且釋放鍵盤(pán)上的一個(gè)鍵時(shí)，引發(fā)焦點(diǎn)所在控件的KeyPress事件，所按鍵的值存放在參數(shù)KeyAscii中。對(duì)回車(chē)的判斷 KeyAscii=13

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

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

10. 啟動(dòng)窗體時(shí)將命令按鈕定位在窗體中央的代碼

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時(shí)可選擇是否安裝這些圖片文件。

習(xí)題三

1. 合法常量：

(1) Double

(2) 錯(cuò)誤

(3) Double

(4) Double

(5) 錯(cuò)誤

(6) Integer

(7) String

(8) String

(9) Date

(10) Double

(11) 錯(cuò)誤（漢字字符）

(12)Integer(八進(jìn)制)

(13) 錯(cuò)誤（八進(jìn)制無(wú)數(shù)碼8）

(14) Integer

(15) Boolean

(16) 錯(cuò)誤

(17) 錯(cuò)誤（十六進(jìn)制無(wú)數(shù)碼g）

(18) Single

說(shuō)明：浮點(diǎn)型變量默認(rèn)為Double類(lèi)型而非Single。

2. 合法變量名：

(1) √

(2) √

(3) 誤：數(shù)字開(kāi)頭

(4) 誤：含空格

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

(6) √

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

(8) 誤：有括號(hào)

(9) √

(10) √

(11) √

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

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

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

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

3. 寫(xiě)VB表達(dá)式

(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ù)條件寫(xiě)表達(dá)式

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

(2) [100,200]內(nèi)的隨機(jī)數(shù) Int(Rnd * 101) + 100

(3) 點(diǎn)(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的個(gè)位與十位對(duì)換 x \ 10 + (x Mod 10) * 10

(6) 四舍五入取兩位小數(shù) Round(x, 2)

(7) 字符變量C是字母字符（不區(qū)分大小寫(xiě)）——準(zhǔn)確地說(shuō)是：字符變量C的第一個(gè)字符是字母

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個(gè)字符起取6個(gè)字符 Mid(S, 5, 6)

(9) 10≤x＜20 10 = x And x 20

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

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

5. 寫(xiě)表達(dá)式的值

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

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

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

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

(5) 2000-2-29

(6) 6

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

i = Shell("mspaint.exe", 1) '啟動(dòng)畫(huà)圖

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

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

8. 答：?jiǎn)尉雀↑c(diǎn)型

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

習(xí)題四

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

2. 賦值語(yǔ)句的錯(cuò)誤

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

上機(jī)驗(yàn)證結(jié)果：VB將10識(shí)別為行號(hào)，x = Sin(x) + y是為變量x賦值。故無(wú)語(yǔ)法錯(cuò)誤。

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

上機(jī)驗(yàn)證結(jié)果：“無(wú)效的過(guò)程調(diào)用或參數(shù)”

（3）賦值號(hào)左邊不是變量名。

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

（4）除數(shù)為0

上機(jī)驗(yàn)證結(jié)果：“溢出”。

4. [答案略]

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

6．指出錯(cuò)誤

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

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

7．寫(xiě)條件語(yǔ)句

（1）

Dim c As String

c = InputBox("c=")

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

MsgBox "Yes"

Else

MsgBox "No"

End If

（2）

# 使用If語(yǔ)句

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語(yǔ)句

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語(yǔ)句

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. 計(jì)算循環(huán)次數(shù)

（1） 6

（2）19

（3）0

（4）死循環(huán)直至溢出

10. 40號(hào)語(yǔ)句執(zhí)行 4次；第50 號(hào)語(yǔ)句執(zhí)行12次；

執(zhí)行第90號(hào)語(yǔ)句輸出的結(jié)果是： 13，0，2

說(shuō)明：該程序?yàn)榍短籽h(huán)，其中外循環(huán)由j值變化（1，4，7，10）控制執(zhí)行4次，當(dāng)j值為13時(shí)結(jié)束循環(huán)；內(nèi)循環(huán)由k值變化（6，4，2）控制執(zhí)行3次，當(dāng)k值為0時(shí)結(jié)束循環(huán)。第40 行是外循環(huán)的循環(huán)體，故執(zhí)行4次；第50 行是內(nèi)循環(huán)的循環(huán)體，故執(zhí)行4*3=12次。

11. 可以定一個(gè)較大的循環(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; "個(gè)"

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

（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”。該程序功能是將十進(jìn)制數(shù)轉(zhuǎn)化為二進(jìn)制。

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

14. 運(yùn)行時(shí)輸出 22 484

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

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

15．[50，100]間的20個(gè)隨機(jī)數(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ù)組的默認(rèn)下界 Option Base 1

2．合理的數(shù)組聲明

（1）錯(cuò)。定義數(shù)組不可用變量（教材99頁(yè)）。

（2）正確。該數(shù)組下標(biāo)為0-11。

（3）錯(cuò)。VB中數(shù)組下標(biāo)用圓括號(hào)。

（4）正確。三維數(shù)組三個(gè)下標(biāo)分別為0-1，0-1，0-2，共12個(gè)元素。

（5）錯(cuò)誤。非動(dòng)態(tài)數(shù)組，不可重定義。

（6）錯(cuò)誤。動(dòng)態(tài)數(shù)組重定義時(shí)不可改變數(shù)據(jù)類(lèi)型。

（7）正確。二維數(shù)組兩個(gè)下標(biāo)分別為0-2，0-3，共12個(gè)元素。

（8）語(yǔ)法錯(cuò)誤，二維數(shù)組定義中漏寫(xiě)逗號(hào)——可能是印刷錯(cuò)誤，加上此逗號(hào)則正確。

3．當(dāng)引用數(shù)組元素時(shí)下標(biāo)值小于定義的最小下標(biāo)，或大于最大下標(biāo)時(shí)，會(huì)發(fā)生“下標(biāo)越界”錯(cuò)誤。

4．?dāng)?shù)組名：a ；數(shù)組類(lèi)型：Single（單精度浮點(diǎn)型）；維數(shù)：二維；

各維的上下界：第一維下界（最小下標(biāo)）為 -1，上界（最大下標(biāo)）為2，

第二維下界（最小下標(biāo)）為 0，上界（最大下標(biāo)）為3；

數(shù)組的大?。?行4列共16個(gè)元素

以矩陣的格式輸出二維數(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)隨機(jī)產(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個(gè)元素清空

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

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

c = Chr(Int(Rnd * 26 + 97)) '隨機(jī)產(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)最長(zhǎng)的字符串

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 "最長(zhǎng)的字符串："; a(imax)

End Sub

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

第9題“自定義變量”含義不明，暫時(shí)無(wú)法回答。

第5，10 題 [暫略]

習(xí)題六

第1，2，6-8題答案可在教材中找到。

3．指出過(guò)程說(shuō)明中的錯(cuò)誤

（1）Sub子過(guò)程不應(yīng)該定義類(lèi)型

（2）函數(shù)與形式參數(shù)不應(yīng)該同名

（3）數(shù)組作為形式參數(shù)時(shí)，應(yīng)使用傳地址方式，不可使用傳值（ByVal）

（4）形式參數(shù)應(yīng)該是變量或數(shù)組名，不可以是一個(gè)數(shù)組元素

4．指出調(diào)用過(guò)程語(yǔ)句的錯(cuò)誤

（1）無(wú)語(yǔ)法錯(cuò)誤，但因形參sum所對(duì)應(yīng)的實(shí)參是常量3，故計(jì)算結(jié)果無(wú)法傳遞給主調(diào)程序。

（2）實(shí)參變量c與形參sum的類(lèi)型不一致。

（3）類(lèi)似于（1），形參sum所對(duì)應(yīng)的實(shí)參是表達(dá)式a+b，故計(jì)算結(jié)果無(wú)法傳遞給主調(diào)程序。

（4）類(lèi)似于（1）和（2），形參sum所對(duì)應(yīng)的實(shí)參是表達(dá)式Sqr(c)，故計(jì)算結(jié)果無(wú)法傳遞給主調(diào)程序。另外srq(a)存在語(yǔ)法錯(cuò)誤（拼寫(xiě)錯(cuò)）。

（5）與（2）相同，實(shí)參c與形參sum的類(lèi)型不一致。

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）自定義子過(guò)程的定義及調(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．檢測(cè)Ctrl和F3同時(shí)按下的代碼：

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．寫(xiě)Open語(yǔ)句

（1） Open "Seqnew.dat" For Output As #1 '重寫(xiě)

或 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．本課程不涉及二進(jìn)制文件。故此處以順序文件讀寫(xiě)方式編程。另外合并的結(jié)果可以是合并到其中某一個(gè)文件，也可以是合并到一個(gè)新的文件，此處代碼是合并到其中一個(gè)文件F1.txt。

'方法一，在2號(hào)文件一次讀一個(gè)字符并寫(xiě)入1號(hào)文件

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é)尾有分號(hào)，否則每個(gè)字符一行

Loop

Close

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

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í)題十

答案在教材上找

對(duì)象的三大要素是什么?

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

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

B 封裝 (在超市里不管買(mǎi)多少東西他們都會(huì)給你個(gè)口袋)

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

:)

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

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

FOR：初值、步長(zhǎng)、終值

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

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

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

廣告

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