1、Visual Basic程序設(shè)計期末復習題一、單項選擇題1Visual Basic是一種面向?qū)ο蟮目梢暬幊陶Z言，采取了（ ）的編程機制。A按過程順序執(zhí)行B從主程序開始執(zhí)行 C事件驅(qū)動D按模塊順序執(zhí)行2與傳統(tǒng)的設(shè)計語言相比，Visual Basic最突出的特點是（ ）A程序開發(fā)環(huán)境B結(jié)構(gòu)化程序設(shè)計 C程序調(diào)試技術(shù)D事件驅(qū)動的編程機制3將調(diào)試通過的工程經(jīng)“文件”菜單的“生成.exe文件”編譯成.exe后，將該可執(zhí)行文件拿到其它機器上不能運行的主要原因是（ ）。A缺少.frm窗體文件B該可執(zhí)行文件有病毒 C運行的機器上無VB系統(tǒng) D以上原因都不對4. Visual Basic6.0集成開發(fā)環(huán)境有三

2、種工作模式，下列不屬于三種工作模式之一的是（ ）。A設(shè)計模式 B編寫代碼模式 C執(zhí)行模式 D中斷模式 5后綴為.bas的文件表示（）。A工程文件 B窗體文件C窗體二進制數(shù)據(jù)文件 D標準類模塊文件 6工程文件的擴展名是（ ）。A.vbpB.frmC.basD.frx7剛建立一個新的標準EXE工程后，不在工具箱中出現(xiàn)的控件是（ ）。A時鐘控件B圖像框C框架D通用對話框8.以下敘述中錯誤的是（ ）。 A一個工程中可以包含多個窗體文件 B在設(shè)計Visual Basic程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的文件 C在一個窗體文件中用Private定義的通用過程能被其它窗體調(diào)用 D全局變

3、量必須在標準模塊中定義9要在窗體Form1內(nèi)顯示“歡迎您！”，使用的語句是（ ）AForm.caption="歡迎您!" BForm1.caption="歡迎您!"CForm. print "歡迎您!" DForm1.print "歡迎您!" 10決定標簽內(nèi)顯示內(nèi)容的屬性是（ ） ANameBTextCCaptionDAlignment11要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個屬性是（ ）ACaption和PictureBStyle和PictureCStyle和IconDValue和Icon12將數(shù)據(jù)項“Chin

4、a”添加到列表框List1中成為第一項，應使用的語句是（ ）AList1.AddItem"China"BList1.AddItem"1,China"CList1.AddItem"China",0DList1.AddItem"China",113在VB中，下列各項合法的變量名是（ ）。 AIntegerBab-cC2abcD a_bc 14在VB中，下列合法的變量名是（ ）A4EF Binteger CE-F DE_F15如果要在文本框中鍵入字符時，只顯示某個字符，如星號（*），應設(shè)置文本框的（ ）屬性。 APass

5、wordCharB Caption CText DLocked16要使窗體在運行時不可改變窗體的大小和沒有最大化和最小化按鈕，只要對下列（ ）屬性設(shè)置就有效。AMaxButton BBorderSyle CWidth DMinButton17下列控件中不能響應Click事件的是（ ）。ATextBox BTimer CLabel DListBox18有程序代碼如下： Text1.Text = "歡迎學習VB程序設(shè)計"則Text1，Text ，和"歡迎學習VB程序設(shè)計"分別代表（ ）。A對象，值，屬性 B對象，屬性，值 C對象，方法，屬性 D屬性，對象，值

6、 19設(shè)a=”Visual Basic”，下面使b=”Basic”的語句是（）。Ab=left(a,8,12) Bb=mid(a,8,5)Cb=right(a,5,5) Db=left(a,8,5) 20確定一個控件在窗體上位置的屬性是（ ）A Top或Left BTop和LeftCWidth或Height DWidth和Height 21執(zhí)行Form1.Scale (0, 10)-(10, -10)語句后，F(xiàn)orm1窗體坐標系x軸和y軸的正方向是（ ）。A向右和向上 B向左和向下 C向右和向下 D向左和向上22如果希望以模態(tài)方式顯示窗體Form1，下列正確的語句是（ ）AForm1.Show

7、 0BForm1.Show 1CForm1.Show D以下都不正確23改變驅(qū)動器列表框的Drive屬性值，將激活（）事件。AKeyDownBKeyUp CScollDChange24多窗體程序是由多個窗體組成，在缺省情況下，VB在應用程序執(zhí)行時，總是把（ ）指定為啟動窗體。A不包含任何控件的窗體 B命名為Frm1的窗體C包含控件最多的窗體 D設(shè)計時的第一個窗體25Dim A(1 To 4,0 To 3)定義的數(shù)組包含的元素的個數(shù)是（ ）。 A12 B16C15 D動態(tài)變化 26如果創(chuàng)建了命令按紐控件數(shù)組，則Click事件的參數(shù)是（ ）。ACaption BIndex CTag D沒有參數(shù)27

8、如果準備向隨機文件中寫入數(shù)據(jù)，正確的語句是（ ）AWrite # 1,rec BPrint # 1,recCGet # 1,rec DPut # 1,rec 28.要以讀方式打開D盤的一個順序文件 Test.doc，應使用的語句是（ ）AOpen " Test.doc " For Output As #1 BOpen "D: Test.doc " For Input As #1COpen "D: Test.doc " For Output As #1 DOpen " Test.doc " For Input As

9、#1 29.以下屬性只能用程序代碼設(shè)置，不能通過屬性窗口設(shè)置的是（ ）。AIndex屬性 BPattern屬性 CVisible屬性 DDrive屬性30以下有關(guān)Visual Basic語言描述中錯誤的是（ ）。A語句是一行一句，以回車鍵結(jié)束 B用“,”分隔一行中的多個語句 C不區(qū)分大小寫D一條語句放在多行中，則在前一行結(jié)束處使用續(xù)行符“_”連接下一行31不屬于VB數(shù)據(jù)庫引擎的是（）AODBCBJet引擎COLE DBD BDE32.使用ADO對象模型時，使Recordset和Connection對象建立連接的屬性是（ ）。 AOpenBExecuteCCommandTypeDActiveCo

10、nnection33用來從數(shù)據(jù)庫表中刪除記錄的SQL命令是（ ）。AwhereBselectCupdateDdelete 34VB程序中通常不會產(chǎn)生錯誤提示的是（）。A編譯錯誤B邏輯錯誤C運行時錯誤D實時錯誤35 在VB程序中逐語句調(diào)試的鍵是（）。AF8鍵 BF9鍵CCtrlF8鍵DCtrlF9鍵36當Winsock控件處于偵聽狀態(tài)時，其State屬性的值是（）A0B1C2D3 37要發(fā)送數(shù)據(jù)，通常使用Winsock控件的（）AListenBAcceptCSendDataDGetData38. 下列敘述不正確的是（ ）。A.注釋語句是非執(zhí)行語句，僅對程序的有關(guān)內(nèi)容起注釋作用，客觀存在不被解釋和

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

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

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

14、用程序。15如果不能事先確定變量的數(shù)據(jù)類型，則可以把它聲明為 類型。16以寫方式打開D盤中的 Text.dat文件，正確的語句是 17列表框中項目的序號是從 開始的。 18執(zhí)行賦值語句y = “abc”+”def”后，變量y的值是 。19全局變量是指那些在 中有效的變量，一般在模塊代碼編輯器的頂部使用 聲明。20VB中參數(shù)傳遞的機制有兩種，一種是 參數(shù)，另一種是 參數(shù)。21閏年的條件是：年號（Y）能被4整除，但不能被100整除；或者年號能被400整除。表示該條件的邏輯表達式是 。22若窗體的左上角坐標為（-250，250），右下角坐標為（300，0），則X軸的正向向 ，Y軸的正向向 。23在V

15、B中，將Access稱為 ，SQL Server稱為 ，F(xiàn)oxpro稱為 。24數(shù)據(jù)庫應用程序?qū)儆谝环N非常典型的前后臺軟件結(jié)構(gòu)，前后臺之間進行通訊的主要機制稱為 。25常用的VB網(wǎng)絡編程控件主要有 、 和 三種。26通?？梢詫⑽谋究蚩丶?屬性設(shè)置為False，以禁止鍵盤輸入。如果不希望某個控件獲得焦點，則可以將它的 屬性設(shè)置為False。27VB應用程序可分為單窗體、多窗體和 。28若窗體Form1左上角坐標為（0，600），右下角的坐標為（800，-200）。則X軸的正向向 ，Y軸的正向向 。29數(shù)據(jù)庫應用程序?qū)儆谝环N非常典型的前后臺軟件結(jié)構(gòu)，而前后臺之間進行通信的主要機制稱為 。30VB

16、中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、 和 三種類型。三、閱讀程序題閱讀下列程序并寫出程序運行結(jié)果1Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = y + 3 Form1.Print "x=" x, "y=" yEnd Sub寫出程序運行時連續(xù)單擊三次窗體后，F(xiàn)orm1上的輸出結(jié)果。2Private Sub Command1_Click() x = 0 Do While x < 60 x = (x + 3) * (x + 4) n = n + 1 Loop

17、Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub寫出程序運行后，文件框Text3的結(jié)果。3. Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer Dim j As Integer A(1) = "4" A(2) = "8" A(3) = "12" c = 1 For j = 1 To 3 c = c + Val(A(j)

18、 Next j Print cEnd Sub寫出程序運行時單擊窗體后，窗體Form1上的結(jié)果。4. Public Sub change1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubPublic Sub change2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 22

19、: b = 33 change1 a, b Form1.Print "A1=" a, "B1=" b a = 22: b = 33 change2 a, b Form1.Print "A2=" a, "B2=" bEnd Sub寫出程序運行時，單擊窗體Form1上的輸出結(jié)果。5Private Sub Form_Click() Dim i As Integer, k As Integer k = 1 For i = 1 To 4 If i > 3 Then k = k + 4 Exit For Else k =

20、 k + 3 End If Next iPrint i, kEnd Sub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。6. Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 6 i = 2 Do While i < 7 i = i + 4 s = s + i Loop Text1.Text = sEnd Sub寫出程序運行后，單擊Command1按鈕，文件框Text1的輸出結(jié)果是：7. Function F(a As Integer) Static c b = b + 3 c = c + 3 F =

21、a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 4 Print F(a) Next iEnd Sub寫出程序運行時，單擊命令按鈕在窗體上的輸出結(jié)果。8Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 3c = 4For j = 1 To 6 If j > 3 Then c = c + 6 Exit For Else k = k + 2End IfNext jPrint c,

22、 kEnd Sub 寫出程序運行時單擊窗體后，c,k的值分別是：9. (6分)Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i < 8 i = i + 2 s = s + i Loop Text1.Text = s End Sub文件框Text1的輸出結(jié)果是10. (7分)Sub test(i As Integer) i = i + 4End SubPrivate Sub form_Click() Dim x As Integer x = 5 Print "x

23、=" xCall test(x)Print "x=" xEnd Sub寫出程序運行后，單擊窗體時程序的運行結(jié)果。四、完善程序題1列表框應用程序。要求從文本框中輸入課程名稱，然后按“添加”按鈕，將該課程名程添加到列表框中；當選擇列表框中某一項后，按“刪除”按鈕，則從列表框中刪除該項；當選擇列表框中某一項后，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認”。在文本框的內(nèi)容修改好后，按“修改確認”按鈕，再把文本框中修改后的信息送到列表框且“修改確認”按鈕變?yōu)椤靶薷摹薄３绦蜻\行結(jié)果如圖1所示。List1Command3Command2Comman

24、d1Text1 圖 1程序如下，請補充完整。Private Sub Form_Load() List1.AddItem "Visual Basic程序設(shè)計" List1.AddItem "SQL SERVER數(shù)據(jù)庫應用" List1.AddItem "信息管理系統(tǒng)" List1.AddItem "ERP原理與應用" List1.AddItem "網(wǎng)絡實用技術(shù)基礎(chǔ)" List1.AddItem "系統(tǒng)開發(fā)規(guī)范與文檔編寫" List1.AddItem "信息系統(tǒng)測試&q

25、uot;End SubPrivate Sub Command1_Click() If Text1.Text <> "" Then 1 '將文本框中的內(nèi)容加到列表框中 Text1.Text = "" 2 MsgBox "請在文本框中輸入信息！" End IfEnd SubPrivate Sub Command2_Click() 3 '刪除選定的項目End SubPrivate Sub Command3_Click() If Command3.Caption = 4 Then Text1.Text = 5 Te

26、xt1.SetFocus Command1.Enabled = 6 Command2.Enabled = False Command3.Caption = 7 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text ="" Command3.Caption = 8 End IfEnd Sub2已知存在一名為“學生”的SQL Server數(shù)據(jù)庫，其中的“students”數(shù)據(jù)表用來存儲學生的基本情況信息，包括學號、姓名、籍貫

27、、性別。請編寫一個簡單的應用程序，向students表中添加學生記錄。程序的基本邏輯是：當窗體被加載時，程序聯(lián)接SQL Server數(shù)據(jù)庫；當點擊“增加”按鈕時，首先查詢學號是否重復，如果不重復則向students表中添加學生記錄。其運行界面如下圖所示。圖1程序如下，請補充完整。'聲明對象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADOcn As ConnectionPrivate Sub Form_Load()'連接SQL Server數(shù)據(jù)庫Dim strDB As StringstrDB = "Provider=SQLOLEDB;LSF;User ID

28、=sa;Password=;Database = 1 "If ADOcn Is Nothing Then Set ADOcn =2 3 End IfEnd SubPrivate Sub Command1_Click()'增加學生記錄Dim strSQL As StringDim ADOrs As 4 ADOrs. 5 =ADOcnADOrs.Open “Select 學號 From Students Where 學號=”+” “+Text1+” “If Not 6 Then MsgBox “你輸入的學號已存在，不能新增加！”Else StrSQL=”Insert Into s

29、tudents (學號,姓名,籍貫, 性別) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 7 MsgBox “添加成功，請繼續(xù)！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub3假設(shè)用Access創(chuàng)建了一個名為“學生.MDB”的數(shù)據(jù)庫，并在其中創(chuàng)建了一張名為“學生基本情況”的數(shù)據(jù)表，表中存放了學生的基本信息，如圖1所示。現(xiàn)在要求利用VB編寫一個數(shù)據(jù)庫查詢程序，程序的運行界面如圖2所示，基本邏輯是：首先文本框(Te

30、xt1)中輸入希望查詢的學生學號，然后點擊“查詢”按鈕(Command1)，如果數(shù)據(jù)庫中存在該學號，則分別在Text2、Text3、Text4中顯示學號、姓名、籍貫信息，否則提示用戶“記錄不存在”并使Text1獲得焦點，要求用戶重新輸入。當點擊退出按鈕(Command2)時關(guān)閉本窗體。圖1用Access創(chuàng)建的學生基本情況數(shù)據(jù)表圖2 查詢程序運行界面程序如下，請補充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 2 "End SubPrivate Sub Command1_Click() Dim strSQL As Str

31、ing Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = ADOcn strSQL = "Select * From 學生基本情況 Where 學號=" + " ' " + Text1 + " ' " 4 If 5 ADOrs.EOF Then Text2 = ADOrs.Fields("學號") Text3 = ADOrs.Fields("姓名") Text4 = ADOrs.Fields("籍貫") 6 M

32、sgBox "要查詢的學號不存在，請重新輸入!", vbOKOnly, "信息提示" Text1 = "" 7 End IfEnd Sub Private Sub Command2_Click() 8 End 五、編寫程序題1編寫一工資調(diào)整程序。若基本工資大于等于800元，增加工資20%，若小于800元大于600元，則增加工資15%；若小于600元則增加工資10%。要求在文本框Text1中輸入某職工的基本工資，單擊“計算”按鈕，在標簽框Label1中輸出增加后的工資。程序運行界面如圖4所示。圖22請根據(jù)下列描述編寫購物優(yōu)惠程序。某商場

33、為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，要求在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸出優(yōu)惠價。程序運行結(jié)果如圖2所示。圖23請根據(jù)下列描述編寫財務部門征收勞務酬金所得稅程序，規(guī)定如下：（1）收入在1200元以內(nèi)，扣稅3%；（2）收入在1200-4000元內(nèi)，1000元以上部分扣稅15%，（3）收入在4000-5000元內(nèi)，4000元以內(nèi)按（2）的方法扣稅，4000元以上部分

34、，扣稅20%，（4）當收入達到5000元以上，扣稅25%。程序運行界面如圖3所示。 圖3答案：一、單項選擇題（每小題2分，共30分）1.C2.D3.C4.B5.D 6.A7.D8.C9.D10.C 11.B12.C13.D 14.D 15.A 16.B 17.B 18.B 19.B 20.B 21.A 22.B 23.D 24.D 25.B 26.B 27.D28.B 29D 30B 31.D 32.D 33.D 34.B 35.A 36.C 37.C 38C 39.B 40.C二、填空題（每空1分，共15分）1Vbp frm 22330004邏輯錯誤 編譯錯誤5Name Index 625

35、7.Dim R(-2To 2,0 To 4) As Integer8Dim C(-1 To 3,0 To 4) As Integer9過程內(nèi)部 Dim Private Public 10For?Next循環(huán) Do?Loop循環(huán)11P1. Picture = LoadPicture("flower.jpg")12True 13. UDP LocalIP14.TCP/IP UDP15變體型(或Variant) 16. open"D:text.dat" For Output As # 117. 018abcdef19. 整個應用程序 Public20引用參數(shù)傳遞（或按址傳遞） 按值傳遞21. Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=022右 上23本地數(shù)據(jù)庫 遠程數(shù)據(jù)庫 外部數(shù)據(jù)庫24數(shù)據(jù)引擎25Winsock Internet Transfe WebBrowser26Locked TabStop27MDI窗體28. 右 上39數(shù)據(jù)庫引擎 30外部數(shù)據(jù)庫 遠程數(shù)據(jù)庫三、閱讀程序題1 x=2 y=3x=2 y=6x=2 y=92.2423 254 A1=22 B1=33A2=33 B2=225.4 146 227 111417208. 10 99 2910x= 5