2022年電大Visual Basic程序設(shè)計(jì)作業(yè)答案

1、Visual Basic程序設(shè)計(jì)作業(yè)1一、選擇題1D 2B 3C 4C 5B 6D 7A 8B 9A 10C 11C 12C 13B 14D 15A 二、填空題1視圖 工具箱2對(duì)象 事件3.vbp .frm4窗體 控件 菜單5完成某種特定的功能 對(duì)象名.方法名 Form1.Show6Multiline True740008AutoSize True9窗體布局窗口 10txtshow.text=GOOD WORK！ 11Click()、frm1.show12單擊 雙擊 裝載 多 響應(yīng)某個(gè)事件后所執(zhí)行的程序代瑪 cmd1 Click13完成某種特定的功能 對(duì)象名.方法名 Form1.Show14工

2、具 選項(xiàng) 選項(xiàng) 自動(dòng)語(yǔ)法檢測(cè)15Timer Interval ms三、問(wèn)答題1參考答案答：可視化編程是目前最直觀的一種編程方法，人們一般用Visual一詞表示它。之所以叫做“可視”，是指你無(wú)需編程，僅通過(guò)直觀的操作方式即可完成界面的設(shè)計(jì)工作。因此，可視化語(yǔ)言是目前最好的Windows應(yīng)用程序開(kāi)發(fā)工具。在這種語(yǔ)言中引入了控件的概念，每個(gè)控件都有若干方法和事件，并通過(guò)一系列的屬性來(lái)控制控件的外觀。利用這些控件，編程過(guò)程就如同畫(huà)畫(huà)，隨意點(diǎn)幾下鼠標(biāo)，一個(gè)按鈕就完成了，這些工作在使用傳統(tǒng)編程語(yǔ)言的情況下，需要編寫(xiě)大量復(fù)雜的程序代碼才能實(shí)現(xiàn)?？梢暬幊讨饕玫搅耸录?qū)動(dòng)機(jī)制，其原理是：當(dāng)應(yīng)用程序運(yùn)行后，程

3、序處于等待狀態(tài)，當(dāng)某個(gè)事件發(fā)生后，程序就去執(zhí)行此事件的事件過(guò)程，當(dāng)這個(gè)事件過(guò)程執(zhí)行完后，應(yīng)用程序又處于等待另一個(gè)事件發(fā)生的狀態(tài)。2參考答案答：對(duì)象是代碼和數(shù)據(jù)的封裝體，在VB中，“數(shù)據(jù)”表現(xiàn)為屬性，“代碼”則表現(xiàn)為事件和方法。建立一個(gè)對(duì)象后，其操作通過(guò)與該對(duì)象的有關(guān)屬性、事件和方法來(lái)描述。屬性是一個(gè)對(duì)象的基本特性，每個(gè)對(duì)象都有它自己的屬性。通過(guò)修改對(duì)象的屬性，可以改變對(duì)象的外觀和功能。方法就是要對(duì)象執(zhí)行的動(dòng)作，一般可以將它理解為VB提供的一種特殊的過(guò)程和函數(shù)。其特殊性在于，這些過(guò)程和函數(shù)是封裝在對(duì)象內(nèi)部的，是在對(duì)象上實(shí)施的某種操作功能。事件就是在對(duì)象上所發(fā)生的事情。對(duì)象的事件是由VB預(yù)先設(shè)置好

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

5、順序決定了代碼執(zhí)行的順序，因此，應(yīng)用程序每次運(yùn)行所經(jīng)過(guò)的代碼路徑是不確定的，它的執(zhí)行流程由用戶來(lái)決定。在程序設(shè)計(jì)時(shí)，不需要指出先執(zhí)行哪部分代碼，或按什么順序執(zhí)行代碼，只需編寫(xiě)針對(duì)某個(gè)事件的程序代碼即可。4參考答案答：事件驅(qū)動(dòng)是VB應(yīng)用程序的基本機(jī)制，其基本過(guò)程是：（1）啟動(dòng)應(yīng)用程序，裝載和顯示窗體。（2）窗體或窗體上的控件等待事件的發(fā)生。事件可由用戶引發(fā)（例如鍵盤操作或鼠標(biāo)點(diǎn)擊）、可由系統(tǒng)引發(fā)（例如定時(shí)器控件）、也可由代碼間接引發(fā)（例如當(dāng)代碼裝載其他窗體時(shí)產(chǎn)生的Load事件）。（3）當(dāng)某個(gè)事件發(fā)生后，執(zhí)行其對(duì)應(yīng)的事件過(guò)程代碼。（4）重復(fù)執(zhí)行第2和第3步。直到遇到End語(yǔ)句或單擊“結(jié)束”按鈕停止

6、程序的運(yùn)行。四、程序設(shè)計(jì)題1Private Sub Form_Load() Text1.Text = VB程序設(shè)計(jì) Text1.FontSize = 16End SubPrivate Sub Command1_Click() Text1.Visible = FalseEnd SubPrivate Sub Command2_Click() Text1.Visible = TrueEnd Sub2Private Sub Command1_Click() Text1.Text = Text2. Text = Text3.Text = End SubPrivate Sub Command2_Click

7、() If Text1 Text = Or Text2.Text = Or Text3.Text = Then MsgBox 成績(jī)輸入不全！ Else Text4.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) /3 End IfSub EndPrivate Sub Command3_Click()Unload MeEnd Sub3 Private Sub Command1_Click() If Text1.Text = Then MsgBox 至少要輸出單價(jià)！ Text1.SetFocus Exit Sub End If

8、 If Text2.Text = Then Text2.Text = 1 If Text3.Text = Then Text3.Text = 1 Text4.Text = Text1.Text * Text2.Text * Text3.TextEnd Sub電大天堂【Visual Basic程序設(shè)計(jì)】作業(yè)2一、選擇題1B 2C 3D 4B 5D 6A 7B 8C 9A 10D 11C 12B 13D 14C 15A 16B 17C 18B 19D 20B二、填空題 1下拉式菜單 彈出式菜單 2打開(kāi) 另存為 顏色 字體 打印 3文本框 列表框 4Option Base 1 5Call語(yǔ)句 6工程

9、 工程屬性 通用 Form1.Show 708Sub過(guò)程的過(guò)程名不能返回值，而Function過(guò)程能通過(guò)過(guò)程名返回值9窗體模塊 標(biāo)準(zhǔn)模塊 類模塊10移出內(nèi)存 無(wú)效狀態(tài)11（1）2*Cos*Sin/(2*) (2) Sqr(s*(s-a)*(s-b)*(s-c) (3) Sin(45*3.14/180)12（1）x=1 And x=C Or a-c0 And b0 Or(a0 And b0)13False14For While Do153三、閱讀下列程序，給出程序運(yùn)行結(jié)果。1程序運(yùn)行后，單擊窗體，輸出結(jié)果為：5050。23 4 3.4 35 * * *四、程序設(shè)計(jì)題1 Private Sub C

10、ommand1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 100 Then y = x Else If x 200 Then y = 9.5 * x Else If x 300 Then y = 0.9 * x Else If x 200 If x Mod 3 0 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) End If x = x + 1 LoopEnd Sub 3 Private Sub Form_Click()Print *;Tab(9

11、);3,Tab(18);6;Tab(27);9;Tab(36);12PrintFor I=15 to 18Print I;For j=3 to 12 Step 3Print Tab(3*j);j*I;Next jPrint Next IEnd sub 4Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Option1_Click() Text1.Text = 10 * 2End SubPrivate Sub Option2_Click() Text1.Text = 10 / 2End SubPrivate Sub Option3_

12、Click() Text1.Text = 10 + 2End SubPrivate Sub Option4_Click() Text1.Text = 10 - 2End Sub5Private Function Day(n As Integer) Select Case n Case 0 Day = 星期日 & Chr(13) & (Sunday) Case 1 Day = 星期一 & Chr(13) & (Monday) Case 2 Day = 星期二 & Chr(13) & (Tuesday) Case 3 Day = 星期三 & Chr(13) & (Wednesday) Case 4

13、 Day = 星期四 & Chr(13) & (Thursday) Case 5 Day = 星期五 & Chr(13) & (Friday) Case 6 Day = 星期六 & Chr(13) & (Saturday) End SelectEnd FunctionPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer n = Val(Text1.Text) If KeyAscii = 13 Then If n = 0 And n 7 Then Label1.Caption = Day(n) Else MsgBox 請(qǐng)

14、輸入06之間的整數(shù)！ End If End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub6新建一個(gè)工程，在默認(rèn)的窗體Form1上放置一個(gè)Picture控件，然后編寫(xiě)如下代碼。Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox You pressed right Button Picture1.MousePointer = vbAr

15、row End IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.MousePointer = vbUpArrowEnd Sub 7 Private Sub Form_Load() List1.AddItem 李敏 List1.AddItem 張華 List1.AddItem 呂曉燁 List1.AddItem 趙巍 List1.AddItem 袁莉 List1.AddItem 王津 List1.AddItem 何小渴 L

16、ist1.AddItem 崔寧 List1.AddItem 陳曦 List1.AddItem 劉偉楠End SubPrivate Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else MsgBox 請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲ?End IfEnd SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click() If Command3.Caption = 修

17、改 Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 修改確認(rèn) Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Command3.Caption = 修改 End IfEnd SubPrivate Sub List1_Click() If List1.Lis

18、tIndex -1 Then Command2.Enabled = True Command3.Enabled = True End IfEnd Sub電大天堂【Visual Basic程序設(shè)計(jì)】作業(yè)3一、選擇題1B 2B 3B 4A 5C 6C 7D 8C 9C 10C 11B 12B 13A 14B 15C 16C 17B 18A19C 20B 21A二、填空題1Output2FileCopy”c:”, ”d:” 3Kill”d:tem.tmp”4Open”SEQNEW.DAT”For Output As # 15Open”SEQOLD.DAT”For Input As # 26右 上7F

19、alse8Picture1.Line(500,500)-(1000,1000),RGB(255,0,0),BF952010ActiveConnection11外部數(shù)據(jù)庫(kù)、遠(yuǎn)程數(shù)據(jù)庫(kù)12ADOrs(學(xué)號(hào))13增加、刪除、修改（或者Select、Delete、Update）14Select * from Table1 Where 學(xué)號(hào)=00115本地?cái)?shù)據(jù)庫(kù)、遠(yuǎn)程數(shù)據(jù)庫(kù)三、程序設(shè)計(jì)題1 Private Sub Form_Load() Drive1.Drive = c: File1.Pattern = *.bmp;*.gif;*.jpgEnd SubPrivate Sub Drive1_change(

20、) Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub File1_click() If Right(File1.Path, 1) = Then f$ = Form1.File1.Path + Form1.File1.FileName Else f$ = Form1.File1.Path + + Form1.File1.FileName End If Picture1.Picture = LoadPicture(f$) Picture1.AutoSiz

21、e = TrueEnd Sub2Private Sub Form_Click() Dim i As Single, twopie As Single twopie = 8 * Atn(1) 求pi DrawWidth = 2 設(shè)置點(diǎn)的大小 Scale (-twopie, 1)-(twopie, -1) 設(shè)置坐標(biāo)系 For i = -twopie To twopie Step twopie / 360 畫(huà)x軸 PSet (i, 0) Next i 標(biāo)x軸 CurrentY = 0 CurrentX = -twopie Print -2pi; CurrentX = -twopie / 2 Prin

22、t -pi; CurrentX = twopie / 2 Print pi; CurrentX = twopie - 0.6 Print 2pi; Print p For i = -1 To 1 Step 0.01 畫(huà)y軸 PSet (0, i) Next i CurrentX = 0 標(biāo)y軸刻度 For i = -1 To 1 Step 0.5 CurrentY = i Print i Next i For i = -twopie To twopie Step 0.1 畫(huà)余弦曲線 PSet (i, Cos(i) Next iEnd Sub3Private Sub Check1_Click()

23、 If Check1.Value = 1 Then Line1.BorderWidth = 4 Else Line1.BorderWidth = 1 End IfEnd SubPrivate Sub Option1_Click(Index As Integer) Line1.BorderWidth = 1 Check1.Value = 0 Select Case Index Case 1 Line1.BorderStyle = 1 Case 2 Line1.BorderStyle = 2 Case 3 Line1.BorderStyle = 3 End SelectEnd Sub 4Priva

24、te Sub Option1_Click(Index As Integer) Select Case Index Case 0 Shape1.Shape = 0 Case 1 Shape1.Shape = 1 Case 2 Shape1.Shape = 3 Case 3 Shape1.Shape = 4 End SelectEnd SubPrivate Sub Option2_Click(Index As Integer) Select Case Index Case 0 Shape1.FillStyle = 1 Case 1 Shape1.FillStyle = 3 Case 2 Shape

25、1.FillStyle = 2 Case 3 Shape1.FillStyle = 6 End SelectEnd SubPrivate Sub Option3_Click(Index As Integer) Shape1.BorderWidth = 1 Select Case Index Case 0 Shape1.BorderStyle = 0 Case 1 Shape1.BorderStyle = 1 Case 2 Shape1.BorderStyle = 4 Case 3 Shape1.BorderStyle = 2 Case 4 Shape1.BorderStyle = 3 End

26、SelectEnd Sub5(以SQL Server數(shù)據(jù)庫(kù)為例)聲明對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接Private ADOcn As Connection Private Sub ReadFromTable() Dim strtmp As String Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn ADOrs.Open select * from students order by 學(xué)號(hào) MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 MSFlexGrid1.Cols = 3 strt

27、mp = 學(xué)號(hào) + vbTab + 姓名 + vbTab + 專業(yè) MSFlexGrid1.AddItem strtmp Do While Not ADOrs.EOF strtmp = ADOrs(學(xué)號(hào)) + vbTab + ADOrs(姓名) + vbTab + ADOrs(專業(yè)) MSFlexGrid1.AddItem strtmp ADOrs.MoveNext Loop MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 End Sub Private Sub Command1_Click() Unload MeEnd SubPriva

28、te Sub Form_Load() 定義數(shù)據(jù)庫(kù)連接字符串 Dim strDB As String 用于連接SQL Server數(shù)據(jù)庫(kù)，其中: Server為服務(wù)器名稱 User ID為登錄賬號(hào) Password為登錄口令 Database為具體的數(shù)據(jù)庫(kù)名 strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database =學(xué)生 如果還沒(méi)有建立與數(shù)據(jù)庫(kù)的連接，則用以下代碼創(chuàng)建。 If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strDB 連接SQL Server數(shù)

29、據(jù)庫(kù) End If ReadFromTable 調(diào)用過(guò)程顯示students表中的記錄End Sub行結(jié)果及代碼請(qǐng)參考主教材和實(shí)驗(yàn)教材相關(guān)內(nèi)容。電大天堂【Visual Basic程序設(shè)計(jì)】作業(yè)4一、選擇題1A2B3A4D5B6C7A8B二、填空題1ADataArrival事件、SendData方法2TCP/IP（或者回答TCP協(xié)議）3EXE4用戶自定義接口、標(biāo)準(zhǔn)接口5LocalIp方法6GetData方法7使用服務(wù)程序處于偵聽(tīng)狀態(tài)；8Winsock9實(shí)時(shí)錯(cuò)誤、邏輯錯(cuò)誤10On Error Goto 0三、問(wèn)答題1參考答案答：Socket是TCP/IP網(wǎng)絡(luò)中最為通用的API（應(yīng)用程序接口），也是

30、在Internet上進(jìn)行應(yīng)用程序開(kāi)發(fā)最為通用的API。它為網(wǎng)絡(luò)中的每臺(tái)計(jì)算機(jī)中提供了一個(gè)通信端口，通過(guò)這個(gè)端口，任何兩臺(tái)具有Socket接口應(yīng)用程序就可進(jìn)行信息收發(fā)通信了。程序員只需要對(duì)Socket接口進(jìn)行數(shù)據(jù)的讀寫(xiě)操作，根本不必關(guān)心兩臺(tái)計(jì)算機(jī)間的通信細(xì)節(jié)就能夠完成數(shù)據(jù)的發(fā)送和接收工作?；赟ocket的通信過(guò)程如圖1所示。圖12參考答案答：VB中一般可按下列步驟設(shè)計(jì)錯(cuò)誤處理程序：第1步：捕獲錯(cuò)誤，并強(qiáng)制程序跳轉(zhuǎn)即在錯(cuò)誤發(fā)生時(shí)，捕獲并告知應(yīng)用轉(zhuǎn)向哪段代碼進(jìn)行錯(cuò)誤處理。VB中通?？刹捎肙n Error GoTo語(yǔ)句啟用錯(cuò)誤捕獲機(jī)制。第2步：編寫(xiě)錯(cuò)誤處理程序，對(duì)所有可預(yù)見(jiàn)的錯(cuò)誤做出反應(yīng)編寫(xiě)錯(cuò)誤處理

31、程序的第一步是添加一個(gè)行標(biāo)識(shí)符，比如“CheckError:”，以標(biāo)志錯(cuò)誤處理程序的開(kāi)始。行標(biāo)識(shí)符的名稱最好具有良好的可讀性，并且后面必須跟一個(gè)冒號(hào)。常規(guī)錯(cuò)誤處理程序通常放在過(guò)程的結(jié)束處，緊跟Exit Sub或Exit Function的行標(biāo)識(shí)符之后。這樣在沒(méi)有錯(cuò)誤發(fā)生時(shí)，過(guò)程就不會(huì)執(zhí)行錯(cuò)誤處理程序了。第3步：退出錯(cuò)誤處理程序通常情況下，只有當(dāng)錯(cuò)誤處理程序位于過(guò)程中間位置時(shí)，才需要用到專門的錯(cuò)誤處理程序退出語(yǔ)句。一般可使用Resume或Resume Next語(yǔ)句退出錯(cuò)誤處理程序。Resume語(yǔ)句會(huì)繼續(xù)執(zhí)行引發(fā)錯(cuò)誤的那句代碼，而Resume Next語(yǔ)句則會(huì)跳過(guò)該語(yǔ)句，執(zhí)行引發(fā)錯(cuò)誤代碼的下一句代

32、碼。如果通過(guò)錯(cuò)誤處理程序能夠修正錯(cuò)誤，則可以使用Resume語(yǔ)句，否則就使用Resume Next語(yǔ)句，或者直接使用Exit Sub或Exit Function語(yǔ)句直接退出過(guò)程。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í)間來(lái)查找錯(cuò)誤。在調(diào)試過(guò)程中，很容易意外地修改、覆蓋或刪除掉必要的代碼部分。因此事先做好備份非常重要。其次，盡可能地分離受懷疑的程序：對(duì)于那些代碼規(guī)模較大，窗口眾多的程序而言，如果能將錯(cuò)誤的范圍定位于某個(gè)窗體或某段代碼，則可以使用分離程序的調(diào)試方法?；舅悸肥牵涸囍业匠鲥e(cuò)的代碼行（塊）或窗體，選擇并復(fù)制這些代碼到一個(gè)新的工程中，然后運(yùn)行新工程，看一看是否還會(huì)出現(xiàn)同樣的錯(cuò)誤。這樣就可以盡可能地排除程序其他部分的干擾，提高調(diào)試的效率。第三，縮小搜索范圍：如果有可能的話，可刪除工程中任何第三方控件和自定義控件，或者任何看來(lái)與問(wèn)題無(wú)關(guān)的代碼，逐步縮小搜索范圍。或者采用相反的策略，先調(diào)