電大VisualBasic程序設(shè)計(jì)作業(yè)答案

1、Visual Basic程序設(shè)計(jì)作業(yè)1、選擇題1. D 2. B 3. C 4. C 5. B 6. D 7. A8. B 9. A 10. C 11. C12. C13. B 14. D 15. A二、填空題1 .視圖工具箱2. 對(duì)象事件3. .vbp.frm4 .窗體 控件 菜單5. 完成某種特定的功能對(duì)象名 方法名Form1.Show6. Multili ne True7. 40008 . AutoSize True9.窗體布局窗口10 . txtshow.text="GOOD WORK !"11 . Click()、frm1.show多響應(yīng)某個(gè)事件后所執(zhí)行的程序代瑪

2、對(duì)象名.方法名 Form1.Show自動(dòng)語法檢測(cè)cmd1 Click12 .單擊 雙擊 裝載13 .完成某種特定的功能14 .工具 選項(xiàng) 選項(xiàng)15 . Timer In terval ms三、問答題1. 參考答案答：可視化編程是目前最直觀的一種編程方法，人們一般用Visual 一詞表示它。之所以叫做“可視”，是指你無需編程，僅通過直觀的操作方式即可完成界面的設(shè)計(jì)工作。因此，可 視化語言是目前最好的 Windows應(yīng)用程序開發(fā)工具。在這種語言中引入了控件的概念，每個(gè)控件都有若干方法和事件，并通過一系列的屬性 來控制控件的外觀。利用這些控件，編程過程就如同畫畫，隨意點(diǎn)幾下鼠標(biāo)，一個(gè)按鈕就完 成了，

3、這些工作在使用傳統(tǒng)編程語言的情況下，需要編寫大量復(fù)雜的程序代碼才能實(shí)現(xiàn)?？梢暬幊讨饕玫搅耸录?qū)動(dòng)機(jī)制，其原理是：當(dāng)應(yīng)用程序運(yùn)行后，程序處于等待狀 態(tài)，當(dāng)某個(gè)事件發(fā)生后，程序就去執(zhí)行此事件的事件過程，當(dāng)這個(gè)事件過程執(zhí)行完后，應(yīng)用 程序又處于等待另一個(gè)事件發(fā)生的狀態(tài)。2. 參考答案答：對(duì)象是代碼和數(shù)據(jù)的封裝體，在VB中，“數(shù)據(jù)”表現(xiàn)為屬性，“代碼”則表現(xiàn)為事件和方法。建立一個(gè)對(duì)象后，其操作通過與該對(duì)象的有關(guān)屬性、事件和方法來描述。屬性是一個(gè)對(duì)象的基本特性，每個(gè)對(duì)象都有它自己的屬性。通過修改對(duì)象的屬性，可以 改變對(duì)象的外觀和功能。方法就是要對(duì)象執(zhí)行的動(dòng)作，一般可以將它理解為VB提供的一種特殊的過

4、程和函數(shù)。其特殊性在于，這些過程和函數(shù)是封裝在對(duì)象內(nèi)部的，是在對(duì)象上實(shí)施的某種操作功能。事件就是在對(duì)象上所發(fā)生的事情。對(duì)象的事件是由VB預(yù)先設(shè)置好的、能被對(duì)象識(shí)別的動(dòng)作。用戶不能建立新的事件，但可以根據(jù)需要對(duì)事件進(jìn)行編程。從非嚴(yán)格意義上講，可以將 事件理解為一種特殊的方法。3 參考答案答：傳統(tǒng)的面向過程的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順 序執(zhí)行代碼，程序從第一行代碼開始執(zhí)行并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，用戶無法改變程 序的執(zhí)行流程。在事件驅(qū)動(dòng)的應(yīng)用程序中，程序的執(zhí)行發(fā)生了根本的變化，代碼不是按照預(yù)定的路徑執(zhí) 行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。每個(gè)對(duì)象都有一個(gè)

5、相應(yīng)的事件集，每個(gè) 事件發(fā)生都要執(zhí)行一段程序代碼。事件可以由用戶操作觸發(fā)，也可以由操作系統(tǒng)或其它應(yīng)用 程序的消息觸發(fā)，甚至可由應(yīng)用程序本身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順 序，因此，應(yīng)用程序每次運(yùn)行所經(jīng)過的代碼路徑是不確定的，它的執(zhí)行流程由用戶來決定。 在程序設(shè)計(jì)時(shí)，不需要指出先執(zhí)行哪部分代碼，或按什么順序執(zhí)行代碼，只需編寫針對(duì)某個(gè) 事件的程序代碼即可。4參考答案答：事件驅(qū)動(dòng)是 VB應(yīng)用程序的基本機(jī)制，其基本過程是：(1) 啟動(dòng)應(yīng)用程序，裝載和顯示窗體。(2 )窗體或窗體上的控件等待事件的發(fā)生。事件可由用戶引發(fā)(例如鍵盤操作或鼠標(biāo)點(diǎn) 擊)、可由系統(tǒng)引發(fā)(例如定時(shí)器控件)、也可由代碼

6、間接引發(fā)(例如當(dāng)代碼裝載其他窗體時(shí)產(chǎn)生的Load事件)。(3) 當(dāng)某個(gè)事件發(fā)生后，執(zhí)行其對(duì)應(yīng)的事件過程代碼。(4) 重復(fù)執(zhí)行第2和第3步。直到遇到End語句或單擊“結(jié)束”按鈕停止程序的運(yùn)行。四、程序設(shè)計(jì)題1 Private Sub Form_Load() Textl.Text = "VB 程序設(shè)計(jì)" Text1.Fo ntSize = 16End SubPrivate Sub Comma nd1_Click()Text1.Visible = FalseEnd SubPrivate Sub Comma nd2_Click()Text1.Visible = TrueEnd Su

7、b2 Private Sub Comma nd1_Click()Text1.Text =""Text2. Text =""Text3.Text =""End SubPrivate Sub Comma nd2_Click()If Text1 Text = " " Or Text2.Text = "" Or Text3.Text = " " The nMsgBox "成績(jī)輸入不全！”ElseText4.Text = (V al(Text1.Text) + Val(Tex

8、t2.Text) + Val(Text3.Text) /3End IfSub EndPrivate Sub Comma nd3_Click()Un load MeEnd Sub3.Private Sub Comma nd1_Click()If Text1.Text = "" The nMsgBox "至少要輸出單價(jià)！”Text1.SetFocusExit SubEnd IfIf Text2.Text = "" The n Text2.Text = 1If Text3.Text = "" The n Text3.Text =

9、1Text4.Text = Text1.Text * Text2.Text * Text3.TextEnd Sub電大天堂【Visual Basic程序設(shè)計(jì)】 作業(yè)2、選擇題1 . B2. C12. B 13. D3. D 4. B 5. D 6. A 7. B 8. C 9. A 10. D 11 . C14. C 15. A16. B 17. C18. B 19. D 20. B二、填空題1.下拉式菜單彈出式菜單2打開另存為顏色字體 打印3. 文本框列表框4. Option Base 15. Call語句6. 工程工程屬性通用 Form1.Show7. 08. Sub過程的過程名不能返回值

10、，而Function過程能通過過程名返回值9 窗體模塊標(biāo)準(zhǔn)模塊類模塊10移出內(nèi)存無效狀態(tài)11. (1) 2*Cos :*Sin ： /(2* ：)(2) Sqr(s*(s-a)*(s-b)*(s-c)(3) Si n(45*3.14/180)12. (1) x>=1 And x<12(2) A+B>=C Or a-c<=c(3) a>0 And b>0 Or(a<0 And b<0)13. False14. For While Do15. 35050。三、閱讀下列程序，給出程序運(yùn)行結(jié)果。1. 程序運(yùn)行后，單擊窗體，輸出結(jié)果為:2.4.3.435.

11、*四、程序設(shè)計(jì)題1.Private Sub Comma nd1_Click()Dim x As Sin gle, y As Sin glex = Val(Text1.Text)If x < 100 The ny = xElseIf x < 200 Theny = 9.5 * xElseIf x < 300 Theny = 0.9 * xElseIf x < 500 Theny = 0.8 * xElsey = 0.7 * x End IfEnd IfEnd IfEnd IfText2.Text = yEnd Sub2.Private Sub Form_Load()Dim

12、 x As In tegerx = 100Do Un til x > 200If x Mod 3 <> 0 The nTextl.Text = Textl.Text & Str(x) & Chr(13) & Chr(10)End Ifx = x + 1LoopEnd Sub3.Private Sub Form_Click()Prin t "*"Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12PrintFor I=15 to 18Print I;For j=3 to 12 Step 3Print Tab(

13、3*j);j*l;Next jPrintNext IEnd subPrivate Sub Comma nd1_Click()Un load MeEnd SubPrivate Sub Optio n1_Click()Text1.Text = 10 * 2End SubPrivate Sub Optio n2_Click()Textl.Text = 10 / 2End SubPrivate Sub Optio n3_Click()Textl.Text = 10 + 2End SubPrivate Sub Optio n4_Click()Textl.Text = 10 - 2End Sub5.Pri

14、vate Fun cti on Day(n As In teger)Select Case nCase 0Day ="星期日"& Chr(13) & "(Sunday)"Case 1Day ="星期一 "& Chr(13) & "(Monday)"Case 2Day ="星期二"& Chr(13) & "(Tuesday)"Case 3Day ="星期三"& Chr(13) & "(

15、Wednesday)"Case 4Day ="星期四"& Chr(13) & "(Thursday)"Case 5Day ="星期五"& Chr(13) & "(Friday)"Case 6Day ="星期六"& Chr(13) & "(Saturday)"End SelectEnd FunctionPrivate Sub Text1_KeyPress(KeyAscii As In teger)Dim n As In

16、tegern = Val(Textl.Text)If KeyAscii = 13 ThenIf n >= 0 And n < 7 The nLabell.Caption = Day( n)ElseMsgBox "請(qǐng)輸入06之間的整數(shù)！”End IfEnd IfTextl.SelStart = 0Textl.SelLe ngth = Len (Textl.Text)End Sub6.新建一個(gè)工程，在默認(rèn)的窗體Forml上放置一個(gè)Picture控件，然后編寫如下代碼。Private Sub Picture1_MouseDown(Button As Integer, Shift

17、 As Integer, X As Single, Y As Sin gle)If Button = 2 The nMsgBox "You pressed right Butt on"Picturel.MousePoi nter = vbArrowEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y AsSin gle)Picturel.MousePo in ter = vbUpArrowEnd Sub7.Private Sub Form

18、_Load()Listl.AddItem "李敏"Listl.AddItem "張華"Listl.AddItem "呂曉燁"Listl.AddItem "趙巍"Listl.AddItem "袁莉"Listl.AddItem "王津"Listl.AddItem "何小渴"Listl.AddItem "崔寧"Listl.AddItem "陳曦"Listl.AddItem "劉偉楠"End SubPri

19、vate Sub Comma nd1_Click()If Textl.Text <> "" The nListl.AddItem Textl.TextTextl.Text =""ElseMsgBox "請(qǐng)?jiān)谖谋究蛑休斎胄畔?！”End IfEnd SubPrivate Sub Comma nd2_Click()Listl.Removeltem List1.ListIndexEnd SubPrivate Sub Comma nd3_Click()If Command3.Caption ="修改"ThenText1.T

20、ext = List1.TextText1.SetFocusComma nd1.E nabled = FalseComma nd2.E nabled = FalseCommand3.Caption = ” 修改確認(rèn)”ElseList1.List(List1. ListI ndex) = Text1.TextComma nd1.E nabled = TrueComma nd2.E nabled = TrueText1.Text =""Command3.Caption = ” 修改”End IfEnd SubPrivate Sub List1_Click()If List1.L

21、ist In dex <> -1 The nComma nd2.E nabled = TrueComma nd3.E nabled = TrueEnd IfEnd Sub電大天堂【Visual Basic程序設(shè)計(jì)】 作業(yè)3一、選擇題1 . B 2. B 3. B 4. A 5. C 6. C 7. D 8 C 9. C 10. C 11. B12. B 13. A 14. B 15. C 16. C 17. B 18. A 19. C 20. B 21 . A二、填空題1 . Output2. FileCopy ” ”，” ”3. Kill ” cfcem.tmp ”4. Open

22、” SEQNEW.DAT” For Oiiput As # 15. Ope n” SEOLD.DAT” For In put As # 26 .右上7. False8. Picturel.Line(500,500)-(1000,1000),RGB(255,0,0),BF9. 52010. ActiveConnection11外部數(shù)據(jù)庫、遠(yuǎn)程數(shù)據(jù)庫12. ADOrs(” 學(xué)號(hào)")13. 增加、刪除、修改(或者Select、Delete、Update)14. Select * from Table1 Where 學(xué)號(hào)='001'15. 本地?cái)?shù)據(jù)庫、遠(yuǎn)程數(shù)據(jù)庫三、程序設(shè)計(jì)題

23、1 .Private Sub Form_Load()Drive1.Drive = "c:"File1 .P attern = "*.bmp;*.gif;*.jpg"End SubPrivate Sub Drive1_cha nge()Dir1. Path = Drive1.DriveEnd SubPrivate Sub Dir1_Cha nge()File1. Path = Dir1 .P athEnd SubPrivate Sub File1_click()If Right(File1.Path, 1) = "" The nf$ =

24、 Form1.File1.Path + Form1.File1.FileNameElsef$ = Form1.File1.Path + "" + Form1.File1.FileName End IfPicture1.Picture = LoadPicture(f$)Picture1.AutoSize = TrueEnd Sub2.Private Sub Form_Click()'求pi'設(shè)置點(diǎn)的大小'設(shè)置坐標(biāo)系'畫x軸標(biāo)x軸Dim i As Single, twopie As Singletwopie = 8 * Atn (1)DrawWi

25、dth = 2Scale (-twopie, 1)-(twopie, -1)For i = -twopie To twopie Step twopie / 360PSet (i, 0)Next iCurre ntY = 0Curre ntX = -twopiePrin t "-2pi"Curre ntX = -twopie / 2Prin t "-pi"Curre ntX = twopie / 2Prin t "pi"Curre ntX = twopie - 0.6Prin t "2pi"Prin t "

26、p"For i = -1 To 1 Step 0.01PSet (0, i)Next iCurre ntX = 0For i = -1 To 1 Step 0.5Curre ntY = iPrint iNext iFor i = -twopie To twopie Step 0.1PSet (i, Cos(i)Next iEnd Sub3.Private Sub Check1_Click()If Check1.Value = 1 The nLin e1.BorderWidth = 4ElseLin e1.BorderWidth = 1End IfEnd Sub'畫y軸'

27、;標(biāo)y軸刻度'畫余弦曲線Private Sub Optio n1_Click(l ndex As In teger)Lin e1.BorderWidth = 1Check1.Value = 0Select Case In dexCase 1Li ne1.BorderStyle = 1Case 2Li ne1.BorderStyle = 2Case 3Li ne1.BorderStyle = 3End SelectEnd SubPrivate Sub Optio n1_Click(l ndex As In teger)Select Case In dexCase 0Shape1.Shap

28、e = 0Case 1Shape1.Shape =1Case 2Shape1.Shape = 3Case 3Shape1.Shape = 4End SelectEnd SubPrivate Sub Optio n2_Click(I ndex As In teger) Select Case In dexCase 0Shape1.FillStyle = 1Case 1Shape1.FillStyle = 3Case 2Shape1.FillStyle = 2Case 3Shape1.FillStyle = 6End SelectEnd SubPrivate Sub Optio n3_Click(

29、l ndex As In teger)Shape1.BorderWidth = 1Select Case In dexCase 0Shape1.BorderStyle = 0Case 1Shape1.BorderStyle = 1Case 2Shape1.BorderStyle = 4Case 3Shape1.BorderStyle = 2Case 4Shape1.BorderStyle = 3End SelectEnd Sub5.（以SQL Server數(shù)據(jù)庫為例）'聲明對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADOc n As Conn ectionPrivate

30、 Sub ReadFromTable（）Dim strtmp As Stri ngDim ADOrs As New RecordsetADOrs.ActiveC onn ectio n = ADOc nADOrs.Open "select * from students order by 學(xué)號(hào)"MSFIexGrid1.ClearMSFIexGrid1.Rows = 0MSFlexGrid1.Cols = 3strtmp ="學(xué)號(hào)"+ vbTab + "姓名"+ vbTab + "專業(yè)"MSFIexGrid1.Add

31、ltem strtmpDo While Not ADOrs.EOFstrtmp = ADOrs（"學(xué)號(hào)"）+ vbTab + ADOrs（"姓名"）+ vbTab + ADOrs（"專業(yè)"）MSFlexGrid1.AddItem strtmpADOrs.MoveNextLoopMSFlexGrid1.FixedCols = 0MSFlexGrid1.FixedRows = 1End SubPrivate Sub Comma nd1_Click（）Un load MeEnd SubPrivate Sub Form_Load（）'

32、定義數(shù)據(jù)庫連接字符串Dim strDB As Stri ng用于連接SQL Server數(shù)據(jù)庫，其中：'Server為服務(wù)器名稱'User ID為登錄賬號(hào)'Password為登錄口令'Database為具體的數(shù)據(jù)庫名strDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 學(xué)生”'如果還沒有建立與數(shù)據(jù)庫的連接，貝U用以下代碼創(chuàng)建。If ADOcn Is Nothing ThenSet ADOc n = New Conn ectio nADOcn.Open strDB'連

33、接 SQL Server 數(shù)據(jù)庫End IfReadFromTable調(diào)用過程顯示 stude nts表中的記錄End Sub行結(jié)果及代碼請(qǐng)參考主教材和實(shí)驗(yàn)教材相關(guān)內(nèi)容。電大天堂【Visual Basic程序設(shè)計(jì)】 作業(yè)4一、選擇題1 . A 2. B 3. A 4. D 5. B 6. C 7. A 8. B二、填空題1. A . DataArrival 事件、SendData 方法2. TCP/IP （或者回答TCP協(xié)議）3. EXE4. 用戶自定義接口、標(biāo)準(zhǔn)接口5 . Locallp 方法6 . GetData 方法7.使用服務(wù)程序處于偵聽狀態(tài)；8 . Win sock9.實(shí)時(shí)錯(cuò)誤、邏輯

34、錯(cuò)誤10 . On Error Goto 0三、問答題1. 參考答案答：Socket是TCP/IP網(wǎng)絡(luò)中最為通用的 API （應(yīng)用程序接口），也是在In ternet上進(jìn)行應(yīng) 用程序開發(fā)最為通用的API。它為網(wǎng)絡(luò)中的每臺(tái)計(jì)算機(jī)中提供了一個(gè)通信端口，通過這個(gè)端口，任何兩臺(tái)具有Socket接口應(yīng)用程序就可進(jìn)行信息收發(fā)通信了。程序員只需要對(duì)Socket接口進(jìn)行數(shù)據(jù)的讀寫操作，根本不必關(guān)心兩臺(tái)計(jì)算機(jī)間的通信細(xì)節(jié)就能夠完成數(shù)據(jù)的發(fā)送和接收工作?；赟ocket的通信過程如圖1所示。應(yīng)用程序A圖1應(yīng)用程序艮2. 參考答案答：VB中一般可按下列步驟設(shè)計(jì)錯(cuò)誤處理程序：第1步：捕獲錯(cuò)誤，并強(qiáng)制程序跳轉(zhuǎn)即在錯(cuò)誤發(fā)

35、生時(shí)，捕獲并告知應(yīng)用轉(zhuǎn)向哪段代碼進(jìn)行錯(cuò)誤處理。VB中通?？刹捎肙n ErrorGoTo語句啟用錯(cuò)誤捕獲機(jī)制。第2步：編寫錯(cuò)誤處理程序，對(duì)所有可預(yù)見的錯(cuò)誤做出反應(yīng)編寫錯(cuò)誤處理程序的第一步是添加一個(gè)行標(biāo)識(shí)符，比如“CheckError: ”，以標(biāo)志錯(cuò)誤處理程序的開始。行標(biāo)識(shí)符的名稱最好具有良好的可讀性，并且后面必須跟一個(gè)冒號(hào)。常規(guī)錯(cuò)誤處理程序通常放在過程的結(jié)束處，緊跟Exit Sub或Exit Function的行標(biāo)識(shí)符之后。 這樣在沒有錯(cuò)誤發(fā)生時(shí)，過程就不會(huì)執(zhí)行錯(cuò)誤處理程序了。第3步：退出錯(cuò)誤處理程序通常情況下，只有當(dāng)錯(cuò)誤處理程序位于過程中間位置時(shí)，才需要用到專門的錯(cuò)誤處理程 序退出語句。一般可

36、使用 Resume或Resume Next語句退出錯(cuò)誤處理程序。Resume語句會(huì)繼續(xù)執(zhí)行引發(fā)錯(cuò)誤的那句代碼，而Resume Next語句則會(huì)跳過該語句， 執(zhí)行引發(fā)錯(cuò)誤代碼的下一句代碼。如果通過錯(cuò)誤處理程序能夠修正錯(cuò)誤，則可以使用Resume語句，否則就使用ResumeNext語句，或者直接使用 Exit Sub或Exit Function語句直接退出過程。3參考答案答：調(diào)試程序是一件復(fù)雜的工程，不但要求程序員對(duì)系統(tǒng)設(shè)計(jì)結(jié)果非常熟悉，思路清晰， 更需要不斷地在實(shí)踐中積累經(jīng)驗(yàn)。以下技巧可供參考：首先，應(yīng)事先做好備份：盡管VB提供了眾多的調(diào)試工具，但要利用這些工具查找、定位程序中的錯(cuò)誤并非易事，對(duì)于一些規(guī)模較大的程序，即使是有經(jīng)驗(yàn)的程序員也常常要損失好 幾小時(shí)甚至幾天的時(shí)間來查找錯(cuò)誤。在調(diào)試過程中，很容易意外地修改、覆蓋或刪除掉必要 的代碼部分。因此事先做好備份非常重要。其次，盡可能地分離受懷疑的程序：對(duì)于那些代碼規(guī)模較大，窗口眾多的程序而言，如果能將錯(cuò)誤的范圍定位于某個(gè)窗體或某段代碼，則可以使用分離程序的調(diào)試方法?；舅悸?是：試著找到出錯(cuò)的代碼行(塊)或窗體，選擇并復(fù)制這些代碼到一個(gè)新的工程中，然后運(yùn) 行新工程，看一看是否還會(huì)出現(xiàn)同樣的錯(cuò)誤。這樣就