VB程序設(shè)計(jì)教程第1-12章習(xí)題答案.doc

2020年3月11日星期三Visual Basic程序設(shè)計(jì)教程邱李華郭全編著人民郵電出版社 習(xí)題答案 by Dr.Wang DechaoVisual Basic程序設(shè)計(jì)教程習(xí)題答案邱李華郭全編著人民郵電出版社2009年3月第1版第1章 Visual Basic簡(jiǎn)介1. 要使計(jì)算機(jī)能夠按人的要求完成一系列的操作，就要求計(jì)算機(jī)能夠理解并執(zhí)行人們給出的各種命令，因此就需要在人和計(jì)算機(jī)之間制定一種二者都能識(shí)別的特定的語(yǔ)言，這種特定的語(yǔ)言就是程序設(shè)計(jì)語(yǔ)言。使用程序設(shè)計(jì)語(yǔ)言編寫(xiě)的、用來(lái)使計(jì)算機(jī)完成一定任務(wù)的、一系列命令的集合構(gòu)成程序，編寫(xiě)程序的工作則稱為程序設(shè)計(jì)2. 機(jī)器語(yǔ)言可以在計(jì)算機(jī)上直接運(yùn)行。3. 翻譯程序的作用是將源程序翻譯成計(jì)算機(jī)能夠理解并直接執(zhí)行的目標(biāo)程序；對(duì)高級(jí)語(yǔ)言源程序進(jìn)行翻譯可以有解釋方式和編譯方式。解釋方式不生成可執(zhí)行程序。4. 算法是指計(jì)算機(jī)解題的方法和步驟。5. 可視化界面設(shè)計(jì)指的是：把設(shè)計(jì)界面的復(fù)雜性向編程人員隱蔽起來(lái)，編程人員不需要編寫(xiě)大量的代碼來(lái)描述界面，只需要使用系統(tǒng)提供的工具在界面上直接把各種對(duì)象“畫(huà)”出來(lái)，并設(shè)置這些對(duì)象的一些屬性就可以了；事件驅(qū)動(dòng)的編程機(jī)制指的是：編寫(xiě)程序時(shí)，針對(duì)不同對(duì)象的不同事件編寫(xiě)相應(yīng)的代碼段，每一個(gè)代碼段只有當(dāng)運(yùn)行時(shí)在相應(yīng)對(duì)象上發(fā)生相應(yīng)的事件才被執(zhí)行。6. Visual Basic的3種工作模式是：設(shè)計(jì)模式、運(yùn)行模式、中斷模式。7. Visual Basic中的控件可以分為3大類：內(nèi)部控件、ActiveX控件、可插入對(duì)象。8. ActiveX控件文件的擴(kuò)展名是OCX。9. 工程組文件的擴(kuò)展名是vbg；工程文件的擴(kuò)展名vbp；窗體文件的擴(kuò)展名frm；標(biāo)準(zhǔn)模塊文件的擴(kuò)展名bas；類模塊文件的擴(kuò)展名cls。10. 在代碼窗口的對(duì)象下拉列表中，窗體的名稱總是顯示為Form。11. 在Visual Baisc中，要獲取上下文相關(guān)幫助，只需要在上下文相關(guān)位置按F1鍵。第2章 Visual Basic簡(jiǎn)單工程的設(shè)計(jì)一、填空題1. 對(duì)象名.屬性名 = 屬性值2. Myform.BackColor = vbBlue3. 發(fā)生某一事件時(shí)要執(zhí)行的代碼；cmd1；Click；Form_Load4. 對(duì)象名.方法名；Form1.Show；Picture1.Cls5. 中央6. Ctrl7. Ctrl;Shift8. Shift+“方向箭頭”; Ctrl+“方向箭頭”9. vbp10. 窗體11. F512. 工程；工程1屬性 （“工程1”為當(dāng)前工程名）13. Top；Left；Width；Height二、選擇題1C2C3B4C5C6D7B8A；D9B10B11C12B13A14B15D16A17A18A19D;AD 20B21A22B23B24A25C26D27D28C29C30C31D注：第13題無(wú)正確答案，要將選擇A改為：visible第21題將題目的“運(yùn)行時(shí)”改寫(xiě)為“設(shè)計(jì)時(shí)”第3章 Visual Basic程序設(shè)計(jì)代碼基礎(chǔ)一、選擇題1A2D3C4D5A6B7C8B9B；C；D；G；H；J；L；N；O；P10C11C12B13A；B14A；B15B16B；E17A18D19D二、求表達(dá)式的值1. 02. -173. -0.24. 105. how6. jing7. HAI8. 69. 12344510. BASIC11. 312. 12.313. 3 77.714. 115. 0.516. 617. 118. 419.（1）5,459.40（2）335（3）0.67（4）.67（5）hello（6）THIS IS IT20. 1234；1234；1234；46；46；123421. True22. True三、寫(xiě)出下列代數(shù)式對(duì)應(yīng)的Visual Basic表達(dá)式。1. (-a) 2 / (b + c / d)2. 2 * Sin(a) * Cos(2 * 3.1416 - a)3. Sqr(a 2 + b 2 - a * a * b * Cos(a)4. (x + y) 3 * (t + u) 2 / (t * (x - y)5. a (b * c) + c (a * b)6. 5 (1 / 3) * Cos(60 * 3.14 / 180)7. Cos(w) 3 - 3 * Cos(w) * Sin(w) 38. (Log(50) / Log(10) - Log(20) / (9 * Exp(5)9. X1 - Abs(a) + Log(10) + Sin(X2 + 2 * 3.1416) / Cos(57 * 3.1416 / 180)10. Sin(3.1416 - t) (2 / 3) / (a * b)四、寫(xiě)出下列條件對(duì)應(yīng)的Visual Basic關(guān)系表達(dá)式或布爾表達(dá)式。1. T 1.7 And W C And B + C A And C + A B3. (A = 0 Or B = 0) And (A * B 0)4. X = 55. X = -5 And X = B And A C7. X = 08. (Y Mod 4 = 0 And Y Mod 100 0) Or Y Mod 400 = 09. A 0 And B 2 - 4 * A * C = 010. Y Mod 5 = 0 And Y Mod 2 = 0五、簡(jiǎn)答題1. Dim X1 As Single, X2 As Single, I1 As Integer, I2 As Integer, S1 As String, S2 As String, B As Boolean2. Type Salary ENo As String Ename As String ESalary As SingleEnd TypeDim Department1 As Salary第4章 Visual Basic的控制結(jié)構(gòu)一、選擇題（除了特別注明“多選”外，其余均為單選題）1A；D；E；F2B3C4C5D6B7C8B9A；B10B11D12D13C14C二、判斷程序執(zhí)行結(jié)果1. 32. 2 23. 1 2 3 54. 3 35. A( 17.4 )6. -17. he is ang8. 1 2 False9. 12332110. 44411. -3 312. 30 1013. False14. I= 215. I= 116. A17. *0*18. 7 2219. 2 3 520. 1 621. 1 22 333 4444 55555 666666 777777722. 123. 10 524. I= 7 A= 1125. M1= 120 M2= 626. 3 2127. 2 4 -3 328. 1129. 14 6 330. * * * * * *31. * * * * *32. 633. 1034. 0 9 3 18 6 27 9 36 9 36第5章 數(shù)組一、選擇題1C2A3B4B5C6C7B；D8B二、填空題1. Dim A(1 To 5, -2 To 6) As String2. A(-1,-1) A(-1,0) A(-1,1)A(0,-1) A(0,0) A(0,1)A(1,-1) A(1,0) A(1,1)A(2,-1) A(2,0) A(2,1)3. 過(guò)程級(jí)；ReDim4. Dim StdAddress(1 To 100) As address5. Dim StdAddress(1 To 100) As addressStdAddress(1).Name = 李軍StdAddress(1).telno = 66112233StdAddress(1).email = lijun 三、判斷程序或程序段的執(zhí)行結(jié)果1. 12 202. bdf3. 14. 0 2 2 35. 1 2 1 4 46. 0 0 0 0 0 12 14 16 18 207. 1 2 3 4 5 12 14 16 18 208. 159. 4210. 1 2 3 2 4 611. 1 0 1 0 1 0 1 0 112. 1 2 3 4 3 4 5 6 5 6 7 813. 20 25 30 35 40第6章 常用算法及應(yīng)用程序舉例程序填空（在程序中的劃線位置填上適當(dāng)內(nèi)容，完成題目所要求的功能）1. （1）Max（2）Min（3）c Max（4）c Min2. （1）N Mod 2 0（2）C * (-1)（3）I + 1（4）I N Or P1（3）P+1 （4）D8. （1）YO A(10) Or X A(1) （2）X=A(I)（3）9 （4）數(shù)據(jù)沒(méi)找到10. （1）a()（2）a(n, n) （3）j - i + 1（4）i - j + 1 （5）Picture1.Print （6）1 To n （7）1 To i （8）1 To n （9）i To n （10）1 To n （11）n + 1 - i To n (12) 1 To n （13）1 To n + 1 i第7章 過(guò) 程一、選擇題（除了特別注明“多選”外，其余均為單選題）1C2B；C；D3C4C；D；E5A、C6C7C8B9A10A11C12D13C14B；A15D16D17A18D19D二、判斷程序或程序段的執(zhí)行結(jié)果1. 702. 3 34 73. 3 5 7 9 11 13 15 17 19 214. Tom5. 3 16. 3 207. 218. 23 479. 1 1 1 1 2 3 2 2 2 1 2 3 3 3 3 1 2 310. 35；20第8章 常用控件選擇題（除了特別注明“多選”外，其余均為單選題）1C2C3D4B5C6A7C8B9C、D10B11A、D12G；I；C；B；E13B、D14A15B、D16C17B；C；A18C；D19B20A21C22F；B；H；D23B24A25D26A第9章 界面設(shè)計(jì)一、填空題1. 下拉式；彈出式；窗體；菜單編輯器2. 標(biāo)題；-3. 文件(&F)4. 頂5. Caption；Name；Index；Checked；Enabled；Visible6. Click7. Load；Unload8. 菜單編輯器；頂9. MouseDown；PopupMenu10. 快捷菜單的頂級(jí)菜單名稱 彈出式菜單的上框中央位于鼠標(biāo)的單擊位置 彈出式菜單的菜單項(xiàng)可以響應(yīng)鼠標(biāo)左、右鍵單擊彈出式菜單中要顯示為黑體的菜單項(xiàng)控件的名稱為PMENU311. ToolTipText12. Microsoft Windows Common Controls 6.0；ToolBar13. Align14. ImageList15. Toolbar1.Buttons(4).Enabled = False16. 樣式17. Toolbar1.Buttons(2).ButtonMenus(3).Enabled = False18. 1 Fixed Single19. 模式；無(wú)模式20. Show21. 將窗體Form2做為無(wú)模式對(duì)話框顯示；將窗體Form3做為模式對(duì)話框顯示22. Form2.Show vbModeless, Form323. Microsoft Common Dialog Controls 6.024. C1.ShowColor；C1.ShowFont二、選擇題（除了特別注明“多選”外，其余均為單選題）1B、D、F2C3D4B、C5D第10章 圖形操作填空題1. 左上角；右；下；緹2. ScaleMode；Picture1.ScaleMode = vbInches3. Picture1.ScaleLeft = -10Picture1.ScaleTop = 104. 205. （1，1）；（3，-1）6. Form1.Scale (0, 4)-(4, 0)7. Form1.CurrentX = 2Form1.CurrentY = 28. Picture1.BackColor = RGB(50, 100, 25)9. Shape10. BorderStyle11. x1,y1,x2,y212. (200, 300)13. (200, 200)；(400, 400)14. Line (100, 100)-(500, 500), vbRed, BLine (100, 100)-(500, 500), vbRed, BF15. Circle (0, 0), 0.5, vbRedCircle (0, 0), 0.5, vbRed, 0, 3.1415926 / 2Circle (0, 0), 0.5, vbRed, -0.00001, -3.1415926 / 2Circle (0, 0), 0.5, vbRed, , , 2 : Circle (0, 0), 0.5, vbRed, , , 0.516. Form1.FillStyle = 0Form1.FillColor = vbYellow17. ForeColor18. DrawWidth19. DrawStyle20. AutoRedraw21. Paint22. Resize23. 綠色；紅色；藍(lán)色24. 最下25. Label1.ZOrder 026. SavePicture Picture1.Image, d:MyPicture.bmp第11章 文件一、填空題1. 順序文件；隨機(jī)文件；二進(jìn)制文件2. Open C:StuData.dat For Output As #13. Open C:StuData.dat For Input As #14. Open C:StuData.dat For Append As #15. Close #1, #3, #56. Write #2, A; B; C7. Print #2, A; B; C8. Open d:aa.txt For Input As #1Input #1, A, B, C9. Open d:B.dat For Random As #1 Len = 2010. Put；Get11. Open d:C.DAT For Binary As #3Put #3, 6, AGet #3, 10, B12. 返回某驅(qū)動(dòng)器的當(dāng)前路徑13. ChDrive E14. MkDir E:STUD15. Kill D:*.DAT16. 文件長(zhǎng)度；字節(jié)17. 復(fù)制文件；產(chǎn)生錯(cuò)誤18. Drive19. Change20. Path21. FileName二、程序填空（在程序中的劃線位置填上適當(dāng)內(nèi)容，以完成題目所要求的功能）1（1）Open C:StuData.txt For Output As #1 （2）Write #1, StuNo, StuName, StuEng（3）Close #12（1）Open C:StuData.txt For Input As #1 （2）While Not EOF(1) （3）Input #1, StuNo, Stu