1、Visual Basic 程序設(shè)計(jì)期末復(fù)習(xí)一一、單項(xiàng)選擇題1 能夠改變標(biāo)簽 （Label） 控件顯示標(biāo)題的屬性是（ ） 。A Name B Caption C Text D Border2當(dāng)一個(gè)工程中含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是（） 。A.啟動(dòng)VB時(shí)創(chuàng)建的第一個(gè)窗體B .第一個(gè)添加的窗體C.在“工程屬性”對(duì)話框中指定的窗體D .最后一個(gè)添加的窗體3. 當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的（ ）事件。A Load B Unload C Click D LostFocus4下列4 項(xiàng)中合法的變量名是（ ） 。A 2xyzB IntegerC x-yzD x_yz5.表達(dá)式 24 / 2 - 2

2、 A 3 *4 / 4 Mod 5 3 （）A 12B 16C 20D 326要清除List 列表框控件中的所有項(xiàng)目，可采用的方法是（ ）A EraseB ClearC ClickD Delete7下列正確的賦值語句是（ ）2=x+yx=Integer+2List 列表框控件中當(dāng)前選定項(xiàng)目的索引（）。A x+y=zB C z=x+yD 8可通過下列何種屬性來設(shè)置或返回A ListIndexB ListCount C ListText D LisItem9.若窗體Forml左上角的坐標(biāo)為（-250,300），右下角的坐標(biāo)為（350,-200），那么X軸和Y 軸的正方向是（）A.向左和向上B.向左

3、和向下C.向右和向下D.向右和向上10如果僅需要得到當(dāng)前系統(tǒng)時(shí)間，則可以使用哪個(gè)函數(shù)（）A TimeB YearC NowD Date11 .數(shù)學(xué)關(guān)系8Wy<40表示成正確的 VB表達(dá)式為（）A、 8<=y<40B、 8<=y AND<40C、 8<=y AND y<40D 、 8<=y OR y<4012 Dim A（-1 To 4, 5） As String 定義的數(shù)組包含的元素個(gè)數(shù)是（ ）B 36A 30C 25D 2013應(yīng)用程序打包后，其包文件的后綴是（ ）A .cabB .exeC .ocxD .vbp14.能夠?qū)崿F(xiàn)“窗體總在最

4、前端”界面效果的A. SetWindowPosAPI函數(shù)是（）B. SetWindowAPIC. PrivateD. Public15.某窗體的Name屬性為MyFrm ,則它的Load事件的過程名為（A. MyFrm_LoadB. Me_LoadC. Form1_LoadD. Form Load16. MsgBox函數(shù)的返回值的類型是（）A.整型B.字符串C.邏輯型 D.日期型17 .以讀方式打開 D盤中的Text.dat 文件，正確的語句是（）A open"D:text.dat" For Output As # 1B. open" D:text.dat&quo

5、t; For Input As # 1C. open" D:text.dat" For Input AsD. open"text.dat" For Random As # 118 .在VB中，Access數(shù)據(jù)庫屬于（）A.本地?cái)?shù)據(jù)庫B.外部數(shù)據(jù)庫C.遠(yuǎn)程數(shù)據(jù)庫D. OLE數(shù)據(jù)庫19.當(dāng)Winsock控件處于關(guān)閉狀態(tài)時(shí)，其 State屬性的值是（）A. 1B. 0C.D. -120.后綴為.Vbp的文件表示 VB的（）A.類模塊文件B.窗體文件C.工程文件D.標(biāo)準(zhǔn)類模塊文件21.在設(shè)計(jì)動(dòng)畫時(shí)，用時(shí)鐘控件來控制動(dòng)畫速度的屬性是（）A . EnabledB .

6、 IntervalC. TimerD. Move22.下列數(shù)據(jù)對(duì)象模型中采用OLE DB訪問數(shù)據(jù)庫的是（）。A . DAOB. RDOC. ADO D. RDO 和 ADO23.下列控件中不能響應(yīng)Click事件的是（）。A . FrameB . Label24.文本框不具備的屬性是（）。A . EnabledB. VisibleC. FormD. TimerC. BackColor D . Caption、填空題1 .VB提供控件的窗口是 窗口。2 . Timer控件只有一個(gè)事件，該事件的名稱是 。3 . Left（ "abef' ,2）數(shù)的返回值是。4 .執(zhí)行指令 Line

7、（200,200）-（600,600）后，CurrentX 等于。5 .對(duì)命令按鈕的Picture屬性裝入.bmp圖形文件后，該命令按鈕上并沒有顯示所需要的圖形，原因是沒有對(duì) 屬性設(shè)置為l(Graphical)。6 .若窗體 Forml左上角坐標(biāo)為(-250,300),右下角坐標(biāo)為(350,-200),則 X軸的正向 向, Y軸的正向向。7 . Winsockl.Listen 語句的含義是 。8 . Winsockl.Connect 語句的含義是 。9 . Winsock控件主要用來編制 TCP/IP或 協(xié)議的通話程序。10 .程序的運(yùn)行結(jié)果和程序員的設(shè)想有出入時(shí)產(chǎn)生的錯(cuò)誤稱為 。11 .利用

8、SendKeys "Tab ”語句可以向當(dāng)前活動(dòng)窗體發(fā)送一個(gè)Tab鍵，那么如果希望發(fā)送一個(gè)回車鍵，則正確的語句應(yīng)該是 。12 . Vb應(yīng)用程序與數(shù)據(jù)庫進(jìn)行通信的主要機(jī)制稱為 。13 .按文件的存取方式，可將文件分為順序文件、 和。14 .假設(shè) ADOrs為一個(gè) Recordset對(duì)象，那么從Table1表中獲取所有記錄的語句是" Select * From Table1?！?5 . Dim a As String,則運(yùn)行時(shí)變量a的初始值是 。如果不事先使用 Dim 語句聲明a變量，那么a的默認(rèn)數(shù)據(jù)類型是。16 .變量的聲明方法有隱式和 聲明兩種，如果采用隱式聲明方法，那么

9、VB 會(huì)自動(dòng)將變量聲明為 。17 .矩形、三角形、正方形三種圖形中，不能用Shape控件繪制的是 。18 . 一個(gè)VB應(yīng)用程序可以包含 個(gè)vbp文件。19 . ADO模型中一般可通過 對(duì)象的Execute方法執(zhí)行增加、刪除、修改 SQL語句。20 .全局變量在整個(gè)應(yīng)用程序中有效，一般在標(biāo)準(zhǔn)模塊中使用 語句聲明。三、閱讀程序題閱讀下列程序并寫出程序運(yùn)行結(jié)果 1.Private Sub Form_Click() Static a As Integer Dim b As Integer a = a+2 b = b+2 Text1=a Text2=bEnd Sub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，文本

10、框 Text1和Text2顯示結(jié)果。2Private Sub Form_Click() Static a As String Dim b As String a = a + "A" b = b + "B" Text1 = aText2 = bEnd Sub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，文本框Text1 和 Text2 顯示結(jié)果。3Private Sub Command1_Click()Dim n As Integer, y As Integer, x As Integera = 1Do While a < 20n = n + 1b = a +

11、ba = a * (a + 1)LoopText1.Text = nText2.Text = aText3.Text = bEnd Sub寫出程序運(yùn)行時(shí)單擊Command1 后，文件框Text1 、 Text2 和 Text3 的輸出結(jié)果。4Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim x As IntegerFor i = 1 To 5A(i) = iNext i1 = 1Do While x < 3A(i) = A(i) * xx = x + 21 = i + 1LoopText1.Text = A(1)Text2.T

12、ext = A(2)End Sub寫出程序運(yùn)行時(shí)單擊 Command1 后，文本框Text1 、 Text2 的輸出結(jié)果。5Private Sub Form_Click()Dim i As Integer, k As Integerk = 0For i = 1 To 4If i > 2 ThenElsek = k + 2End IfNext iPrint i, kEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后， Form1 上的輸出結(jié)果。6Private Sub Form_Click()Dim i As Integer, k As Integer, c As IntegerFor i = 1 T

13、o 5If i Mod 2 = 0 Thenk = k + 2Elsec = c + 2End IfNext iPrint k, cEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后， Form1 上的輸出結(jié)果。7Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tPrint x, yEnd SubPrivate Sub Form_Click()Dim a As Integer, b As Integer a = 10: b = 20Change a, bPrint a, bEnd Sub寫出程序

14、運(yùn)行時(shí)單擊窗體后， Form1 上的輸出結(jié)果。四、完善程序題1 假設(shè)用Access 創(chuàng)建了一個(gè)名為“學(xué)生.MDB ”的數(shù)據(jù)庫，并在其中創(chuàng)建了一張名為1 所示?，F(xiàn)在要求利用 VB 編寫一個(gè)數(shù)據(jù)庫查詢程序， 程序的運(yùn)行界面如圖2 所示， 基本邏輯是：首先文本框（Textl）中輸入希望查詢的學(xué)生學(xué)號(hào)，然后點(diǎn)擊“查詢”按鈕 （Commandl）,如果數(shù)據(jù)庫中存在該學(xué)號(hào)，則分別在 Text2、Text3、Text4中顯示學(xué)號(hào)、姓名、籍貫信息，否則提示用戶“記錄不存在”并使Textl獲得焦點(diǎn)，要求用戶重新輸入。當(dāng)點(diǎn)擊退出按鈕（Command2） 時(shí)關(guān)閉本窗體。圖1用Access創(chuàng)建的學(xué)生基本情況數(shù)據(jù)表圖2

15、查詢程序運(yùn)行界面程序如下，請(qǐng)補(bǔ)充完整。Private ADOcn As ConnectionPrivate Sub Form_Load()12學(xué)生.MDB"End SubPrivate Sub Command1_Click()Dim strSQL As StringDim ADOrs As 3 RecordsetADOrs.ActiveConnection = 4strSQL = "Select * From 學(xué)生基本情況 Where 學(xué)號(hào)="+ " ' " + Textl + "'" 5 If _6 The

16、nText2 = ADOrs.Fields("學(xué)號(hào)")Text3 = ADOrs.Fields("姓名")Text4 = ADOrs.Fields("籍貫")ElseMsgBox "要查詢的學(xué)號(hào)不存在，請(qǐng)重新輸入!", vbOKOnly,"信息提示Textl =""7End IfEnd SubPrivate Sub Command2_Click()UnLoad MeEnd2 .使用順序文件讀寫方式編寫一個(gè)簡(jiǎn)單的記事本應(yīng)用程序，其運(yùn)行界面如圖3所示?；具壿嬍牵杭僭O(shè)在以C盤的根目錄下有一

17、個(gè)名為F1.txt的文本文件。當(dāng)點(diǎn)擊 “打開”按鈕(Command1)時(shí)，程序?qū)1.Txt文件中的內(nèi)容顯示在文本框 (Text1)中，當(dāng)點(diǎn)擊"新建"按鈕 (Command2)時(shí)，清空Text1中的內(nèi)容；用戶可以在Text1中進(jìn)行編輯操作，當(dāng)點(diǎn)擊"保存”按鈕(Command3)時(shí)，將Text1中的內(nèi)容保存在 F1.txt文件中。當(dāng)點(diǎn)擊"退出"按鈕(Command4) 時(shí)關(guān)閉本窗體。記事本程序運(yùn)行界面 程序如下，請(qǐng)補(bǔ)充完整。Private Sub Command1_Click()Dim strtxt As StringText1 ="&

18、quot;Open "G:VBaa.Txt" For Input As #1Do While 1Input #1, strtxtText1 = Text1 +2Loop131End SubPrivate Sub Command2_Click()Textl =""End SubPrivate Sub Command3_Click()4Write #1,5Close #1End SubPrivate Sub Command4_Click（） Unload MeEnd Sub3 .列表框應(yīng)用程序。要求從文本框（Text1）中輸入姓名，然后按“回車”鍵，把姓名添

19、加到列表框（List1）中；當(dāng)選擇列表框中某一項(xiàng)后，按“刪除"按鈕 （Command1）,則從列 表框中刪除該項(xiàng)。程序運(yùn)行結(jié)果如下圖所示。Private Sub Text1_KeyPress(1)If KeyAscii =2ThenIf Text1 <> "" ThenList1.AddItem 3Text1 =""ElseMsgBox "請(qǐng)先輸入姓名!", vbOKOnly,"信息提示"End IfEnd IfEnd SubPrivate Sub Command1_Click()If Lis

20、t1.ListIndex >=4 ThenElseMsgBox "請(qǐng)先選擇一個(gè)項(xiàng)目!", vbOKOnly,"信息提示"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub五、編寫程序題1 .編寫一程序，要求單擊“開始”按鈕 (Command1),在列表框(List1)中輸出200400之 間偶數(shù)，單擊清除按鈕(Command2),清除文本框中的全部?jī)?nèi)容。程序運(yùn)行結(jié)果如下圖所示。況輸出之間的偈效X200a202204206208E1Q212E1421621S220222224226V一.

21、并據(jù)一!| 清空 mil IB! |H 2 .請(qǐng)根據(jù)下列描述編寫財(cái)務(wù)部門征收勞務(wù)酬金所得稅程序，規(guī)定如下：(1)收入在1000元以內(nèi)，扣稅 3%;(2)收入在1000-3000元內(nèi)，800元以上部分扣稅 15%,(3)收入在3000-5000元內(nèi)，3000元以內(nèi)按(2)的方法扣稅，3000元以上部分，扣 稅 20%,(4)當(dāng)收入達(dá)到5000元以上，扣稅25%。程序運(yùn)行界面如下圖所示。Visual Basic 程序設(shè)計(jì)期末復(fù)習(xí)一答案一、單項(xiàng)選擇題3 .B 2.C 3.A 4.D 5.A 6.B 7.C 8.A 9.D 10.A 11.C4 2.B 13.A 14.A 15.D 16.A 17 B

22、 18 A 19.B 20.C 21.B22 C 23.D 24.D二、填空題1工具箱23 Timer24 ab25 60026 style6右上7使服務(wù)程序處于偵聽狀態(tài)，等待客戶訪問8用于向遠(yuǎn)程主機(jī)發(fā)出鏈接請(qǐng)求27 UDP10邏輯錯(cuò)誤11 SendKeys “ Enter ”12數(shù)據(jù)庫引擎13 . 隨機(jī)文件二進(jìn)制文件14 . ADOrs.Open15 .""（或空字符串）Variant（或變體型）16顯示變體型（或?qū)懗蒝ariant 型）17三角形18 119 Connection20 Public三、閱讀程序題1 632 AAA B3 3 42 94 0 45 5 146