vb程序設計教程課后答案與實驗題答案(第三版)

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

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

3、又 t 象名稱，在程序中引用。Caption 屬性：標題該屬性決定了對象上顯示的內容。(3) Height、Width、Top 和 Left 屬性決定對象的大小和位置。(4) Enabled 屬性：對象是否允許操作(5) Visible 屬性：對象是否可見(6) Font 屬性組：文本的外觀FontName 字體、FontSize 大小FontBold 粗體、FontItalic 斜體FontStrikethru 刪除線FontUnderline 下劃線ForeColor 屬性：前景顏色(8)BackColor 屬性：背景顏色MousePointer 屬性：鼠標指針類型，設置值范圍 015,由

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

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

6、正文，同時具有文字處理器的自動換行功能，按 Enter 鍵可插入一空行。ScrollBars 滾動條屬性0-None 無滾動條1-Horizontal 水平滾動條2-Vertical 垂直滾動條3-Both 同時加水平和垂直滾動條注意：當 MultiLine 為 True 時，ScrollBars 才有效(5) PassWordChar 設置顯示文本的替代符。例如，當設置為“：”則在文本框輸入的內容均以“顯示，而存儲的值是用戶輸入的原文。一般用于設置口令的輸入。當 MultiLine 為 True 時，該屬性不起作用，密碼不允許多行。(6) Locked 指定文本控件是否可被編輯， 默認值為

7、False(可編輯)， 當設置為 True 時，文本控件相當于標簽控件的作用。注意：Locked 與 Enabled 的區(qū)別。(7)文本內容進行選擇操作的三個屬性SelStart 選定的正文開始位置SelLength 選定的正文長度SelText 選定的正文內容這 3 個屬性互相關聯(lián)，例如設置 SelStart、SelLength 后，SelText 自動存放指定的文本。注意：屬性窗口中沒有這三個屬性，只能在程序代碼中使用。6.文本框的事件：(1)Change 事件：當 Text 屬性值發(fā)生改變時引發(fā)該事件(2)KeyPress 事件：按下并且釋放鍵盤上的一個鍵時，引發(fā)焦點所在控件的 KeyP

8、ress事件，所按鍵的值存放在參數 KeyAscii 中。對回車的判斷 KeyAscii=137 .文本框最有用的方法是 SetFocus,把光標移到指定的文本框中。8 .命令按鈕 Picture 屬性：按鈕可顯示圖片文件(.bmp 和.Ico),當 Style 為 1 時有效。10 .啟動窗體時將命令按鈕定位在窗體中央的代碼PrivateSubForm_Load()Command1.Left=Form1.ScaleWidth/2-Command1.Width/2Command1.Top=Form1.ScaleHeight/2-Command1.Height/2EndSub11 .vb 圖片文

9、件在 C:ProgramFilesMicrosoftVisualStudioCommonGraphics 文件夾。安裝 VB 時可選擇是否安裝這些圖片文件。習題三1.合法常量:Double錯誤Double(4)Double(5)錯誤(6)IntegerString(8)StringDate(10) Double(11)錯誤(漢字字符)(12)Integer(八進制)(13)錯誤(八進制無數碼 8)(14) Integer(15) Boolean(16)錯誤(17)錯誤(十六進制無數碼 g)(18)Single說明：浮點型變量默認為 Double 類型而非 Single2.合法變量名：v(3)誤

10、：數字開頭(4)誤：含空格(5)誤：關鍵字(6)V誤：關鍵字(8)誤：有括號V(10)V(11)V(12)”漢字字符可作為變量名，但不常用，且此名稱易誤解)變量命名規(guī)則見 P.41-420字母(漢字)開頭，字母(漢字)、數字、下劃線組成，長度為 1-255 個字符;關鍵字不可作為變量名，但可在變量名中嵌入關鍵字；不區(qū)分大小寫。常量、數組、類型、函數、過程、對象命名規(guī)則與此相同。常量名通常全用大寫。3.寫 VB 表達式(1)Abs(x+y)+zA5(1+x*y)A6(3)(10*x+Sqr(3*y)/(x*y)(-b+Sqr(bA2-4*a*c)/(2*a)(5) 1/(1/r1+1/r2+1/

11、r3)(6) Sin(45*3.14159/180)+(Exp(10)+Log(10)/Sqr(x+y+1)4.根據條件寫表達式(1)隨機產生大寫字母 Chr(Int(Rnd*(Asc(L)-Asc(C)+1)+Asc(C)(2)100,200內的隨機數 Int(Rnd*101)+100(3)點(x,y)位于第一或第三象限 x0Andy0Orx0Andy0(4)x 是 5 或 7 的整數倍 xMod5=0OrInt(x/7)=x/7(5)將兩位整數 x 的個位與十位對換 x10+(xMod10)*10(6)四舍五入取兩位小數 Round(x,2)(7)字符變量 C 是字母字符(不區(qū)分大小寫)一

12、一準確地說是：字符變量 C 的第一個字符是字母C=AAndC=aAndC=AAndUCase(C)=aAndLCase(C)=z(8)字符變量 S 第 5 個字符起取 6 個字符 Mid(S,5,6)10y2010=xAndx20(10)x,y 至少有一個小于 zxzOryzAndyz5.寫表達式的值(1)188注意運算的優(yōu)先級順序，以及整除運算“的計算(2)200100計算 100+100”時，由于兩個操作數類型不同，在可能的情況下自動采用精度較高的類型，即把字符型轉換為數值型，100+100 得到200;然后進行字符串連接運算200&100,再自動將兩個數值轉換為字符串， 得200

13、100。876554先進行字符串的“轉算，再轉換成數值。在變量名和函數名后可加上類型符，以強調其類型，但不是必須的。(5) 2000-2-29(6) 6(7) Shell 函數調用i=Shell(mspaint.exe,1)啟動畫圖i=Shell(C:ProgramFilesMicrosoftOfficeOFFICE11winword.exe”,1)啟動 Word說明：畫圖”是 Windows 本身提供的程序，可以省略路徑。8.答：單精度浮點型第 7,9 題答案在教材中找。習題四第 1,3,5,8 題答案在教材中找。2.賦值語句的錯誤(1)10 x 不能做變量名。上機驗證結果：VB 將 10

14、識別為行號，x=Sin(x)+y 是為變量 x 賦值。故無語法錯誤。68.56在四舍五入函數產生之前，這就是四舍五入的計算方法(2)Sqr 函數的參數為負數。上機驗證結果：無效的過程調用或參數(3)賦值號左邊不是變量名。上機驗證結果：缺少子程序、函數或屬性(4)除數為 0上機驗證結果：溢出”。4.答案略說明：小數位可以使用四舍五入函數 Round 或輸出格式函數 Format0例如Round(x,2)和 Format(x,0.00 何使結果只保留兩位小數。但如果四舍五入后要進行數值運算，則使血 Round 函數，例如 z=Round(x,2)+Round(y,2)。而Format 函數通常只用

15、于輸出格式設置。6.指出錯誤(1)“國改為”=；前者是中文字符，不具有運算功能。(2)10 x2O 改為10 xAndx20Theny=xA2+3*x+2Elselfx=10Theny=Sqr(3*x)-2Elselfx0Theny=1/x+Abs(x)EndIfPrinty=;y#使用 SelectCase 語句DimxAsSingle,yAsSinglex=Val(InputBox(x=)SelectCasexCaseIs20y=xA2+3*x+2CaseIs=10y=Sqr(3*x)-2CaseIs0y=1/x+Abs(x)EndSelectPrinty=;y(3)#使用 If 語句Di

16、mxAsSingle,yAsSingle,zAsSingle,MaxAsSinglex=Val(InputBox(x=)y=Val(InputBox(y=)z=Val(InputBox(z=)Max=xIfyMaxThenMax=yIfzMaxThenMax=zPrintMax=;Max#使用 IIF 函數x=Val(InputBox(x=)y=Val(InputBox(y=)z=Val(InputBox(z=)Max=IIf(xy,x,y)Max=IIf(zMax,乙 Max)PrintMax=;Max9.計算循環(huán)次數(1)6(2)19(3)0(4)死循環(huán)直至溢出10 .40 號語句執(zhí)行 4

17、 次；第 50 號語句執(zhí)行 12 次；執(zhí)行第 90 號語句輸出的結果是：13,0,2說明：該程序為嵌套循環(huán)，其中外循環(huán)由 j 值變化(1,4,7,10)控制執(zhí)行 4 次，當 j 值為13 時結束循環(huán)；內循環(huán)由 k 括:變化(6,4,2)控制執(zhí)行 3 次，當 k 值為 0 時結束循環(huán)。第 40 行是外循環(huán)的循環(huán)體， 故執(zhí)行 4 次； 第 50 行是內循環(huán)的循環(huán)體， 故執(zhí)行 4*3=12次。11 .可以定一個較大的循環(huán)次數，在循環(huán)體中根據條件用 ExitFor 退出但這種情況通常用 DoWhile 循環(huán)控制。12 .編程(并非唯一正確答案)(1)DimiAsInteger,sAsIntegerFo

18、ri=1To10s=s+(i+1)*(2*i+1)NextiPrints=;s(2)DimiAsInteger,n3AsInteger,n7AsIntegerFori=1To100IfiMod3=0Thenn3=n3+1IfInt(i/7)=i/7Thenn7=n7+1NextiPrint1-100 中 3 的倍數有;n3;個Print1-100 中 7 的倍數有;n7;個(3)Dims1AsString,s2AsString,iAsIntegers1=InputBox(InputString)s2=Fori=1ToLen(s1)s2=Mid(s1,i,1)+s2NextiPrint原序：;s

19、1Print反序：；s2 或Fori=Len(s1)To1Step-1s2=s2+Mid(s1,i,1)Nexti13.輸出字符串“10100：該程序功能是將十進制數轉化為二進制。說明：要理解該程序需要了解數制轉換的計算方法（有興趣者參看百度百科http:/ 是字符0的 ASCII 碼。14.運行時輸出 22484該程序功能是求 x 和 y 最大公約數和最小公倍數。說明：此算法稱為輾轉相減法可對照例 4.17 的輾轉相除（輾轉求余）法。15.50,100間的 20 個隨機數，求最大值、最小值、平均值。DimxAsInteger,sumAsInteger,averAsSingleDimn%,i%

20、,max%,min%Randomizemax=50:min=100:n=20Fori=1Tonx=Int(Rnd*51+50)Listl.AddItemxsum=sum+xIfxmaxThenmax=xIfxLen(a(imax)Thenimax=iEndIfNextiPrint最長的字符串：;a(imax)EndSub第 7,8 題答案在教材中找第 9 題自定義變量”含義不明，暫時無法回答第 5,10 題暫略習題六第 1,2,6-8 題答案可在教材中找到。4a 的 ASCII3 .指出過程說明中的錯誤(1)Sub 子過程不應該定義類型(2)函數與形式參數不應該同名(3)數組作為形式參數時，應

21、使用傳地址方式，不可使用傳值(ByVal)(4)形式參數應該是變量或數組名，不可以是一個數組元素4 .指出調用過程語句的錯誤(1)無語法錯誤，但因形參 sum 所對應的實參是常量 3,故計算結果無法傳遞給主調程序。(2)實參變量 c 與形參 sum 的類型不一致。(3)類似于(1),形參 sum 所對應的實參是表達式 a+b,故計算結果無法傳遞給主調程序。(4)類似于(1)和(2),形參 sum 所對應的實參是表達式 Sqr(c),故計算結果無法傳遞給主調程序。另外 srq(a)存在語法錯誤(拼寫錯)。(5)與(2)相同，實參 c 與形參 sum 的類型不一致。5 .迭代法求平方根(1)自定義

22、函數的定義及調用FunctionFSqr1(aAsSingle)AsSingleDimx0AsSingle,xAsSinglex=aDox0=xx=(x0+a/x0)/2LoopWhileAbs(x-x0)0.00001FSqr1=xEndFunctionPrivateSubCommand1_Click()Dimx!,y!x=Val(InputBox(x=)Ifx=0Theny=FSqr1(x)PrintyEndIfEndSub(2)自定義子過程的定義及調用SubFSqr2(aAsSingle,xAsSingle)Dimx0AsSinglex=aDox0=xx=(x0+a/x0)/2LoopW

23、hileAbs(x-x0)0.00001EndSubPrivateSubCommand2_Click()Dimx!,y!x=Val(InputBox(x=)Ifx=0ThenCallFSqr2(x,y)PrintyEndIfEndSub(3)遞歸函數及調用略習題七第 1-9 題，答案在教材上找；第 10,12-14 題，略。11.檢測 Ctrl 和 F3 同時按下的代碼：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfShift=2AndKeyCode=114ThenMsgBoxHAHAEndSub習題八第 1,2,6,7,9

24、 題答案可閱讀教材找到。3 .寫 Open 語句(1)OpenSeqnew.datForOutputAs#1重寫或 OpenSeqnew.datForAppendAs#1添力口(2)OpenSeqold.datForInputAs#2(3)OpenSeqappend.datForAppendAsFreeFile4 .編程，將文件 Text.dat 讀入變量 strTest。DimstrTestAsStringOpenText.datForInputAs#2DoWhileNotEOF(2)strTest=strTest+Input(1,#2)Loop8.本課程不涉及二進制文件。故此處以順序文件讀

25、寫方式編程。另外合并的結果可以是合并到其中某一個文件，也可以是合并到一個新的文件，此處代碼是合并到其中一個文件 F1.txto方法一，在 2 號文件一次讀一個字符并寫入 1 號文件DimstrTempAsString*1Opend:F1.txtForAppendAs#1Opend:F2.txtForInputAs#2DoWhileNotEOF(2)strTemp=Input(1,#2)Print#1,strTemp;注意結尾有分號，否則每個字符一行LoopClose方法二，在 2 號文件一次讀一個字符并累加，最后將累加結果寫入 1 號文件DimstrTempAsString注意方法一變量定義的

26、區(qū)別Opend:F1.txtForAppendAs#1Opend:F2.txtForInputAs#2strTemp=DoWhileNotEOF(2)strTemp=strTemp+Input(1,#2)LoopPrint#1,strTempClose習題九答案在教材上找。習題十答案在教材上找A.1PrivateSubCommand1_Click()Label3=Text1EndSubA.2PrivateSubForm_Load()Timer1.Interval=0EndSubPrivateSubCommand1_Click()自動Timer1.Interval=200EndSubPrivat

27、eSubCommand2_Click()手動Timer1.Interval=0CallMyMoveEndSubPrivateSubTimer1_Timer()CallMyMoveEndSubSubMyMove()Label1.MoveLabel1.Left-50IfLabel1.Left0ThenLabel1.Left=Form1.WidthEndSubA.3PrivateSubForm_Click()Text1=Val(Text1)+1EndSubPrivateSubForm_Load()Text1=0EndSubA.4PrivateSubForm_Click()Caption=單擊窗體，改

28、變圖片Picture=LoadPicture(App.Path+n_015.bmp)Print”歡迎使用 VB”EndSubPrivateSubForm_DblClick()ClsCaption=雙擊窗體，卸去圖片”Picture=LoadPicture()EndSubPrivateSubForm_Load()Caption=裝入窗體Picture=LoadPicture(App.Path+n_016.bmp)Print裝入圖EndSubPrivateSubForm_Resize()該事件的作用窗體始終與圖一樣大Caption=窗體大小不變Form1.Width=260*16260 是 Ton

29、gji-2.bmp 圖的寬度，象素單位Form1.Height=260*16+200260 是圖的高度，象素單位，200 是窗體的標題欄高度EndSubA.5SubCommand1_Click()Text1.FontName=隸書Text1.FontSize=25EndSubSubCommand2_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSubB.1PrivateSubCommand1_Click()Text2=Format(5/9*(Val(Text

30、l)-32),0.00)EndSubPrivateSubCommand2_Click()Textl=Format(9/5*Val(Text2)+32,0.00)EndSub或PrivateSubCommand1_Click()Dimf!,c!聲明兩個變量f=Val(Textl)c=5/9*(f-32)Text2=Format(c,0.00)保留兩位小數EndSubPrivateSubCommand2_Click()Dimff!,cc!聲明兩個變量cc=Val(Text2)ff=9/5*cc+32Textl=Format(ff,0.00)保留兩位小數EndSubPrivateSubCommand

31、1_Click()Label2=Format(Val(Text1)*Val(Textl)*3.14,0.00)EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,0.00)EndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1.Text)ThenMsgBox輸入有非數字字符，請重新輸入“一Text1.Text=Text1.SetFocusEndIfEndSub或PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val

32、(Text1)*3.14,0.00)EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,0.00)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text1.Text)ThenText1.Text=EndIfEndIfEndSubB.3PrivateSubCommand1_Click()n=Int(Log(2)/Log(1.008)+1)Label1=n&年后人數超過 26 億EndSubB.4Pr

33、ivateSubCommand1_Click()Dimx,dx,cdx=Text1.Textdx=UCase(x)cd=Len(x)Print大寫字母為：”;dxPrint字符串長度為：”;cdEndSubPrivateSubCommand1_Click()Textl=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()Dimx%,x1%,x2%,x3%x=Val(Textl)x1=xMod10 x2=(xMod100)10 x3=x100Label1=x1*100+x2*10+x3EndSubB. 6PrivateSubForm_Click()La

34、bel1=Left(Text1,11)Label2=Mid(Text1,12,6)Label3=Right(Text1,5)EndSubB.7PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,);Spc(18-4*(i-1);String(2*i-1,)NextiEndSubPrivateSubCommand2_Click()ClsEndSub進一步要求：PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,);String(10-(2*i-1),);String(2*i-1,)NextiEndSubPrivateSubCommand2_Click()ClsEndSubB.8PrivateSubForm_Click(),分離出的個位數分離出的十位數分離出的百位數x=Val(InputBox(輸入一正實數，計算,0