VB程序設計期末復習題

1、WORD格式專業(yè)資料整理B a s i c 程 序 設 計 期 末 復 習一、單項選擇題1VisualBasicA按過程順序執(zhí)行C事件驅動 2與傳統(tǒng)的設計語言相比，A程序開發(fā)環(huán)境C程序調試技術是一種面向對象的可視化編程語言，采取了（從主程序開始執(zhí)行 按模塊順序執(zhí)行最突出的特點是（ 結構化程序設計 事件驅動的編程機制.exe 文件”編譯成 .exe 后，將該可執(zhí)行文件拿）的編程機制。BDVisualBasicBD3將調試通過的工程經(jīng)“文件”菜單的“生成到其它機器上不能運行的主要原因是（ ）。A缺少 .frm 窗體文件B該可執(zhí)行文件有病毒C運行的機器上無VB系統(tǒng)D以上原因都不對4. VisualB

2、asic6.0 集成開發(fā)環(huán)境有三種工作模式，下列不屬于三種工作模式之一的是）。A設計模式C執(zhí)行模式5后綴為 .bas 的文件表示（B編寫代碼模式D中斷模式A工程文件窗體文件C窗體二進制數(shù)據(jù)文件標準類模塊文件6工程文件的擴展名是（B .frm）。A .vbp7剛建立一個新的標準A時鐘控件B8. 以下敘述中錯誤的是（CD.frx.bas不在工具箱中出現(xiàn)的控件是（C框架D通用對話框）。EXE工程后， 圖像框 ）。A 一個工程中可以包含多個窗體文件B在設計 VisualBasic程序時，文件C在一個窗體文件中用PrivateD全局變量必須在標準模塊中定義 9要在窗體 Form1 內顯示“歡迎您！ A

3、Form.caption=" 歡迎您 !" C Form.print"歡迎您 !"10決定標簽內顯示內容的屬性是（A NameB Text窗體、標準模塊、類模塊等需要分別保存為不同類型的定義的通用過程能被其它窗體調用”，使用的語句是（BCForm1.caption=" Form1.print" ）Caption歡迎您 !" 歡迎您 !"D11要設置命令按鈕的背景圖形，必須設置的兩個屬性是（ A Caption 和 Picture C Style 和 Icon 12將數(shù)據(jù)項“ China ”添加到列表框Alignme

4、nt)B Style 和 PictureD Value 和 IconList1 中成為第一項，應使用的語句是（A List1.AddItem"China"BList1.AddItem"1,China"C List1.AddItem"China",0DList1.AddItem"China",113在 VB中，下列各項合法的變量名是A IntegerB ab-c14在 VB中，下列合法的變量名是（C2abc）。D a_bc頁眉內容A4EFB integer C E-FDE_F15如果要在文本框中鍵入字符時，只顯示某個

5、字符，如星號（* ），應設置文本框的（）屬性。APasswordCharB CaptionC TextD Locked）屬性設置就16要使窗體在運行時不可改變窗體的大小和沒有最大化和最小化按鈕，只要對下列（有效。A MaxButtonCWidth BorderSyle MinButton17下列控件中不能響應A TextBoxB18有程序代碼如下：ClickTimer事件的是（ ）。C Label D ListBoxText1.Text="則 Text1 ， Text ，和A對象，值，屬性 C對象，方法，屬性 19設 a=” VisualBasic歡迎學習 歡迎學習BD，下面使VB

6、程序設計 " VB程序設計 " 分別代表（ 對象，屬性，值 屬性，對象，值b=” Basic ”的語句是（Ab=left(a,8,12)b=mid(a,8,5)C b=right(a,5,5)b=left(a,8,5)20確定一個控件在窗體上位置的屬性是ATop 或 LeftC Width 或 HeightD21執(zhí)行 Form1.Scale（0,10）-（10,-10） ）。A向右和向上C向右和向下D22如果希望以模態(tài)方式顯示窗體A Form1.Show0C Form1.Show23改變驅動器列表框的DriveA KeyDown） Top 和 Left Width 和 He

7、ight語句后， Form1窗體坐標系 x 軸和 y 軸的正方向是向左和向下向左和向上Form1，下列正確的語句是（B Form1.Show1 以下都不正確 屬性值，將激活（BKeyUpCScoll）事件。D Change24多窗體程序是由多個窗體組成，在缺省情況下，B 命名為 Frm1 的窗體A不包含任何控件的窗體VB在應用程序執(zhí)行時，總是把（）指定為啟動窗體。25DimA(1To4,0To3)定義的數(shù)組包含的元素的個數(shù)是（）A 12B16C15D 動態(tài)變化26如果創(chuàng)建了命令按紐控件數(shù)組，則Click 事件的參數(shù)是（）A CaptionBIndexC Tag D 沒有參數(shù)C包含控件最多的窗體

8、設計時的第一個窗體D27如果準備向隨機文件中寫入數(shù)據(jù)，正確的語句是（ ） Print#1,rec Put#1,recTest.doc ，應使用的語句是(A Write#1,recBC Get#1,recD28. 要以讀方式打開 D 盤的一個順序文件A Open"Test.doc"ForOutputAs#1頁眉內容B Open"D:Test.doc"ForInputAs#1C Open"D:Test.doc"ForOutputAs#1D Open"Test.doc"ForInputAs#129. 以下屬性只能用程序代

9、碼設置，不能通過屬性窗口設置的是（ A Index 屬性 B Pattern 屬性 C Visible 30以下有關 VisualBasic 語言描述中錯誤的是（ A語句是一行一句，以回車鍵結束 B用“ , ”分隔一行中的多個語句 C不區(qū)分大小寫 D一條語句放在多行中，則在前一行結束處使用續(xù)行符 31不屬于 VB數(shù)據(jù)庫引擎的是（AODBCB Jet 引擎C OLEDB）。屬性 D Drive 屬性）?！边B接下一行32. 使用 ADO對象模型時，使 AOpenB Execute33用來從數(shù)據(jù)庫表中刪除記錄的DBDED ActiveConnection）D delete）Recordset 和 C

10、onnection 對象建立連接的屬性是（C CommandTypeSQL命令是（C update 34 VB程序中通常不會產(chǎn)生錯誤提示的是 A編譯錯誤BC運行時錯誤D35在 VB程序中逐語句調試的鍵是（ AF8鍵 C CtrlF8鍵36 當 Winsock 控件處于偵聽狀態(tài)時，其 A0B 1C 2A whereB select邏輯錯誤實時錯誤）F9鍵D CtrlF9 鍵State 屬性的值是（D3）。37要發(fā)送數(shù)據(jù)，通常使用A ListenBAccept38. 下列敘述不正確的是（Winsock 控件的（CSendDataD GetData）。A. 注釋語句是非執(zhí)行語句，僅對程序的有關內容起

11、注釋作用， 和編譯 B. 注釋語句不能放在代碼中的任何位置 C.注釋語句可以放在代碼中的任何位置 D.代碼中加入注釋語句的目的是提高程序的可讀性 39客觀存在不被解釋AADO對象模型含有七種對象，Command B其中用于建立一個和數(shù)據(jù)源的連接的對象是（ ConnectionCRecordset DADO對象模型含有七種對象， 結果的對象是（A.Command40 Field其中代表數(shù)據(jù)庫表中的一整套記錄或執(zhí)行一條命令而得到的）。B.Connection）。C.Recordset D.Field、填空題1. 每個應用程序必須有一個唯一的 文件，至少有一個 文件。2表達式 132-23*5MOD

12、6 的值是。3如果要每隔 3s 產(chǎn)生一個 Timer 事件，則 Interval 屬性應設置為 。 4 VB 中的程序錯誤類型主要有實時錯誤、 、 三種。頁眉內容5. 控件數(shù)組的名字由 屬性指定，而數(shù)組中的每個元素由 屬性決定。 6用 DimA（4,4） 語句聲明二維數(shù)組后，數(shù)組A 的元素共有個。7設某個程序中要用到一個二維數(shù)組，要求數(shù)組名為R，類型為整型，第一維下標從-2 到 2，第二維下標從 0 到 4，則相應數(shù)組聲明語句為 。8某個程序中要用到一個二維數(shù)組，要求數(shù)組名為C，類型為整型，第一維下標從-1 到 3，第二維下標從 0 到 4，則相應數(shù)組聲明語句為 。9過程級變量是指在聲明的變量

13、，窗體級或模塊級變量是指窗體或模塊的代碼聲明段用 或聲明的變量，在全局變量在整個應用程序中有效，一般在標準模塊中使用 語句聲明。10在 VisualBasic語言中有三種形式的循環(huán)結構。其中，若循環(huán)的次數(shù)可以適先確定，可使用 ForNext 循環(huán)循環(huán)；若要求先判斷循環(huán)進行的條件，可使用循環(huán)。11為了在運行時把當前路徑下的圖形文件 flower.jpg 裝入圖片框 P1，所使用的語句為。12. 將圖片框的 AutoSize 屬性設置成 時，可使圖片框根據(jù)圖片調整大小。13 Winsock 控件主要用來編制基于 TCP/IP 或 協(xié)議的網(wǎng)絡應用程序。如果希望得到 本地計算機的 IP 地址，可以使用

14、 Winsock 控件的 屬性。14 Winsock 控件主要用來編制基于 或 協(xié)議的網(wǎng)絡應用程序。 15如果不能事先確定變量的數(shù)據(jù)類型，則可以把它聲明為 類型。 16以寫方式打開D 盤中的 Text.dat 文件，正確的語句是17列表框中項目的序號是從 開始的。18執(zhí)行賦值語句y=“ abc”+” def ”后，變量 y 的值是 。19全局變量是指那些在 中有效的變量，一般在模塊代碼編輯器的頂部 使用 聲明。20 VB中參數(shù)傳遞的機制有兩種，一種是參數(shù)，另一種是參數(shù)。21閏年的條件是：年號（Y）能被 4整除，但不能被 100 整除；或者年號能被 400 整除。表示該條件的邏輯表達式是 。22

15、若窗體的左上角坐標為（ -250 ，250），右下角坐標為（ 300，0），則 X軸的正向向 Y 軸的正向向。23在 VB中，將 Access 稱為， SQLServer 稱為， Foxpro 稱為。24數(shù)據(jù)庫應用程序屬于一種非常典型的前后臺軟件結構，前后臺之間進行通訊的主要機制稱為。25常用的 VB網(wǎng)絡編程控件主要有、 和三種屬性設置為 False ，以禁止鍵盤輸入。如果不希望屬性設置為 False26通?？梢詫⑽谋究蚩丶?某個控件獲得焦點，則可以將它的27VB應用程序可分為單窗體、多窗體和28若窗體 Form1左上角坐標為（ 0，600），右下角的坐標為（ 800，-200 ）。則 X軸

16、的正向 向，Y 軸的正向向。29數(shù)據(jù)庫應用程序屬于一種非常典型的前后臺軟件結構，而前后臺之間進行通信的主要機制 稱為 。30 VB中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、和 三種類型。三、閱讀程序題 頁眉內容 閱讀下列程序并寫出程序運行結果 1PrivateSubForm_Click() DimxAsInteger StaticyAsInteger x=x+2 y=y+3Form1.Print"x="x,"y="yEndSub 寫出程序運行時連續(xù)單擊三次窗體后，F(xiàn)orm1 上的輸出結果2PrivateSubCommand1_Click()x=0DoWhilex<

17、60 x=(x+3)*(x+4) n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub 寫出程序運行后，文件框 Text3 的結果。3.PrivateSubForm_Click()DimA(1To3)AsStringDimcAsIntegerDimjAsIntegerA(1)="4"A(2)="8"A(3)="12"c=1Forj=1To3c=c+Val(A(j)NextjPrintcEndSub 寫出程序

18、運行時單擊窗體后，窗體 Form1 上的結果。4.PublicSubchange1(ByValxAsInteger,ByValyAsInteger) DimtAsInteger t=x x=y y=tEndSubPublicSubchange2(xAsInteger,yAsInteger)頁眉內容DimtAsIntegert=x x=y y=t EndSub PrivateSubForm_Click()DimaAsInteger,bAsInteger a=22:b=33 change1a,bForm1.Print"A1="a,"B1="b a=22:b=

19、33 change2a,bForm1.Print"A2="a,"B2="bEndSub 寫出程序運行時，單擊窗體Form1 上的輸出結果。5PrivateSubForm_Click() DimiAsInteger,kAsInteger k=1 Fori=1To4 Ifi>3Then k=k+4 ExitFor Else k=k+3 EndIfNextiPrinti,kEndSub 寫出程序運行時單擊窗體后，F(xiàn)orm1 上的輸出結果6.PrivateSubCommand1_Click() DimsAsDoubleDimiAsIntegers=6Com

20、mand1按鈕，文件框 Text1 的輸出結 果是：i=2 DoWhilei<7 i=i+4 s=s+i Loop Text1.Text=s EndSub 寫出程序運行后，單擊7.FunctionF(aAsInteger)頁眉內容Staticcb=b+3c=c+3F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=5Fori=1To4PrintF(a)NextiEndSub 寫出程序運行時，單擊命令按鈕在窗體上的輸出結果。 8PrivateSubForm_Click()DimcAsInteger,jAsInteger,kA

21、sIntegerk=3c=4Forj=1To6Ifj>3Thenc=c+6ExitForElsek=k+2EndIfNextjPrintc,kEndSub 寫出程序運行時單擊窗體后， c,k 的值分別是：9.(6 分)PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=5i=1DoWhilei<8i=i+2s=s+iLoopText1.Text=sEndSub文件框 Text1 的輸出結果是10.(7分)Subtest(iAsInteger)i=i+4頁眉內容Text1Command1Command2Command3圖1List

22、1程序設計 " 數(shù)據(jù)庫應用 "List1.AddItem"VisualBasicList1.AddItem"SQLSERVER信息管理系統(tǒng) " 原理與應用 " 網(wǎng)絡實用技術基礎 " 系統(tǒng)開發(fā)規(guī)范與文檔編寫 信息系統(tǒng)測試 "List1.AddItem"List1.AddItem"ERPList1.AddItem"List1.AddItem"List1.AddItem"EndSubPrivateSubform_Click()DimxAsIntegerx=5Print&q

23、uot;x="x Calltest(x) Print"x="x EndSub寫出程序運行后，單擊窗體時程序的運行結果。四、完善程序題1列表框應用程序。要求從文本框中輸入課程名稱，然后按“添加”按鈕，將該課程名程添加到列表框中； 當選擇列表框中某一項后，按“刪除”按鈕，則從列表框中刪除該項；當選擇列表框 中某一項后，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認”。在文本框的內容 修改好后，按“修改確認”按鈕，再把文本框中修改后的信息送到列表框且“修改 確認”按鈕變?yōu)椤靶薷摹?。程序運行結果如圖 1 所示。程序如下，請補充完整。Private

24、SubForm_Load()EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then將文本框中的內容加到列表框中1 'Text1.Text=""2MsgBox" 請在文本框中輸入信息！頁眉內容EndIfEndSubPrivateSubCommand2_Click()3 ' 刪除選定的項目 EndSubPrivateSubCommand3_Click()IfCommand3.Caption=4 ThenText1.Text=5Text1.SetFocusCommand1.

25、Enabled=6Command2.Enabled=FalseCommand3.Caption=7ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""Command3.Caption=8EndIfEndSub2已知存在一名為“學生”的SQLServer 數(shù)據(jù)庫，其中的“ students ”數(shù)據(jù)表用來存儲學生的基本情況信息，包括學號、姓名、籍貫、性別。請編寫一個簡單的應用程序，向 students 表中添加學生記錄。程 序的基本邏輯是

26、：當窗體被加載時，程序聯(lián)接 SQLServer 數(shù)據(jù)庫；當點擊“增加”按鈕時，首先查詢學號是否重復， 如果不重復則向 students 表中添加學生記錄。其運行界面如下圖所示。圖1程序如下，請補充完整。' 聲 明對象變量 ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接PrivateADOcnAsConnectionPrivateSubForm_Load()' 連接 SQLServer 數(shù)據(jù)庫DimstrDBAsString strDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=1 " IfADOcnIsNot

27、hingThenSetADOcn=23EndIfEndSubPrivateSubCommand1_Click()' 增加學生記錄DimstrSQLAsStringDimADOrsAs4ADOrs.5 =ADOcnADOrs.Open“ Select學號 FromStudentsWhere學號=” +”“ +Text1+ ”“IfNot6 Then頁眉內容MsgBox“你輸入的學號已存在，不能新增加！”ElseStrSQL= ” InsertIntostudents(學號, 姓名, 籍貫,性別)StrSQL=strSQL+Values( ”+”“ +text1+ ”, “ +text2+

28、 ”, '“ +text3+ , '“ +text4+ ” ) ”ADOcn.Execute7MsgBox“添加成功，請繼續(xù)！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub3假設用 Access 創(chuàng)建了一個名為“學生 .MDB”的數(shù)據(jù)庫，并在其中創(chuàng)建了一張名為“學生基 本情況”的數(shù)據(jù)表，表中存放了學生的基本信息，如圖 1 所示?，F(xiàn)在要求利用 VB編寫一個數(shù)據(jù)庫查詢程序，程序的運行界面如圖2 所示，基本邏輯是：首先文本框 (Text1) 中輸入希望查詢的學生學號，然后點擊“查詢”按鈕(Command1)，如果數(shù)據(jù)庫中存在該學號，則分別

29、在 Text2 、 Text3 、 Text4 中顯示學號、姓名、籍貫信息，否則提示用戶“記錄不存在”并使 Text1 獲得焦點，要求用戶重新輸入。當點擊退出按鈕(Command2)時關閉本窗體。圖 1用Access 創(chuàng)建的學生基本情況數(shù)據(jù)表圖 2 查詢程序運行界面程序如下，請補充完整。PrivateADOcnAsConnectionPrivateSubForm_Load()12 "EndSubPrivateSubCommand1_Click()DimstrSQLAsStringDimADOrsAs3RecordsetstrSQL="Select*From4If 5ADOr

30、s.EOFThenText2=ADOrs.Fields(Text3=ADOrs.Fields(Text4=ADOrs.Fields(6MsgBox"學生基本情況 Where 學號 ="+"'"+Text1+"'"學號姓名籍貫要查詢的學號不存在，請重新輸入!",vbOKOnly,"信息提示 "ADOrs.ActiveConnection=ADOcnText1="" 7EndIfEndSubPrivateSubCommand2_Click()8End五、編寫程序題頁眉內容1

31、編寫一工資調整程序。若基本工資大于等于800 元，增加工資 20%，若小于 800 元大于 600 元，則增加工資15%；若小于 600 元則增加工資 10%。要求在文本框 Text1 中輸入某職工的基本工資，單擊“計算”按鈕，在標簽框 Label1 中輸出增加后的工資。程序運行界面如圖 4 所示。圖2 2請根據(jù)下列描述編寫購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠 辦法，每位顧客一次購物（ 1）在 100 元以上者，按九五折優(yōu)惠；（ 2）在 200 元以上者，按九折優(yōu)惠；（ 3） 300 元 以上者，按八折優(yōu)惠；（ 4） 500 元以上者按七折優(yōu)惠。在窗體上添加兩個文本框

32、和一個命令按鈕，要求在 Text1 中輸入購物商品總金額，單擊命令按鈕，在 Text2 中輸出優(yōu)惠價。 程序運行結果如圖 2 所示。圖2 3請根據(jù)下列描述編寫財務部門征收勞務酬金所得稅程序，規(guī)定如下：（1）收入在 1200 元以內，扣稅 3%；（ 2）收入在 1200-4000 元內， 1000 元以上部分扣稅15%，（3）收入在 4000-5000 元內， 4000 元以內按（ 2）的方法扣稅， 4000 元以上部分，扣稅 20%，（ 4）當收入達到 5000 元以上，扣稅 25%。程序運行界面如圖 3 所示。圖3答案：一、單項選擇題（每小題2 分，共30 分）1.C2.D3.C4.B5.D

33、6.A7.D8.C9.D10.C11.B12.C13.D14.D15.A16.B17.B18.B19.B 20.B21.A22.B23.D24.D25.B26.B27.D28.B29D30B31.D32.D33.D34.B 35.A36.C37.C38 C39.B40.C二、填空題(每空 1 分，共 15 分)1Vbpfrm22330004邏輯錯誤編譯錯誤5NameIndex6257.DimR(-2To2,0To4)AsInteger8DimC(-1To3,0To4)AsInteger9 過程內部DimPrivatePublic10 For Next 循環(huán) Do Loop 循環(huán)11 P1.Pi

34、cture=LoadPicture("flower.jpg")12 True13. UDPLocalIP14. TCP/IPUDP15變體型 ( 或 Variant)16. open"D:text.dat"ForOutputAs#117. 0頁眉內容18 abcdef19. 整個應用程序 Public20引用參數(shù)傳遞（或按址傳遞）按值傳遞21.YMOD4=0AndYMOD100<>0ORYMOD400=022右上23本地數(shù)據(jù)庫遠程數(shù)據(jù)庫 外部數(shù)據(jù)庫24數(shù)據(jù)引擎25 WinsockInternetTransfe WebBrowser26 LockedTabStop27MDI