VB程序設計期末復習題

《VisualBasic程序設計》期末復習題一、單項選擇題1．VisualBasic是一種面向?qū)ο蟮目梢暬幊陶Z言，采取了（）的編程機制。A．按過程順序執(zhí)行C．事件驅(qū)動B．從主程序開始執(zhí)行D．按模塊順序執(zhí)行2．與傳統(tǒng)的設計語言相比，VisualBasic最突出的特點是（）A．程序開發(fā)環(huán)境C．程序調(diào)試技術B．結(jié)構(gòu)化程序設計D．事件驅(qū)動的編程機制3．將調(diào)試通過的工程經(jīng)“文件”菜單的“生成.exe文件”編譯成.exe后，將該可執(zhí)行文件拿到其它機器上不能運行的主要原因是（）。A．缺少.frm窗體文件B．該可執(zhí)行文件有病毒D．以上原因都不對C．運行的機器上無VB系統(tǒng)4.VisualBasic6.0集成開發(fā)環(huán)境有三種工作模式，下列不屬于三種工作模式之一的是（）。A．設計模式C．執(zhí)行模式B．編寫代碼模式D．中斷模式5．后綴為.bas的文件表示（）。A．工程文件B．窗體文件C．窗體二進制數(shù)據(jù)文件6．工程文件的擴展名是（）。A．.vbpB．.frmC．.bas7．剛建立一個新的標準EXE工程后，不在工具箱中出現(xiàn)的控件是（）。A．時鐘控件B．圖像框C．框架D．通用對話框8.以下敘述中錯誤的是（）。A．一個工程中可以包含多個窗體文件B．在設計VisualBasic程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的文件D．標準類模塊文件D．.frxC．在一個窗體文件中用Private定義的通用過程能被其它窗體調(diào)用D．全局變量必須在標準模塊中定義9．要在窗體Form1內(nèi)顯示“歡迎您！”，使用的語句是（）A．Form.caption="歡迎您!"C．Form.print"歡迎您!"B．Form1.caption="歡迎您!"D．Form1.print"歡迎您!"10．決定標簽內(nèi)顯示內(nèi)容的屬性是（）A．NameB．TextC．Caption11．要設置命令按鈕的背景圖形，必須設置的兩個屬性是（）D．AlignmentA．Caption和PictureC．Style和IconB．Style和PictureD．Value和Icon12．將數(shù)據(jù)項“China”添加到列表框List1中成為第一項，應使用的語句是（）A．List1.AddItem"China"C．List1.AddItem"China",0B．List1.AddItem"1,China"D．List1.AddItem"China",113．在VB中，下列各項合法的變量名是（）。A．IntegerB．a(chǎn)b-cC．2abcD．a(chǎn)_bc14．在VB中，下列合法的變量名是（）A．4EFB．integerC．E-FD．E_F15．如果要在文本框中鍵入字符時，只顯示某個字符，如星號（*），應設置文本框的（）屬性。A．PasswordCharB．CaptionC．TextD．Locked16．要使窗體在運行時不可改變窗體的大小和沒有最大化和最小化按鈕，只要對下列（）屬性設置就有效。A．MaxButtonC．WidthB．BorderSyleD．MinButton17．下列控件中不能響應Click事件的是（）。A．TextBoxB．TimerC．LabelD．ListBox18．有程序代碼如下：Text1.Text="歡迎學習VB程序設計"則Text1，Text，和"歡迎學習VB程序設計"分別代表（）。A．對象，值，屬性B．對象，屬性，值D．屬性，對象，值C．對象，方法，屬性19．設a=”VisualBasic”，下面使b=”Basic”的語句是（）。A．b=left(a,8,12)C．b=right(a,5,5)B．b=mid(a,8,5)D．b=left(a,8,5)20．確定一個控件在窗體上位置的屬性是（）A．Top或LeftB．Top和LeftC．Width或HeightD．Width和Height21．執(zhí)行Form1.Scale(0,10)-(10,-10)語句后，F(xiàn)orm1窗體坐標系x軸和y軸的正方向是（）。A．向右和向上C．向右和向下B．向左和向下D．向左和向上22．如果希望以模態(tài)方式顯示窗體Form1，下列正確的語句是（）A．Form1.Show0C．Form1.ShowB．Form1.Show1D．以下都不正確23．改變驅(qū)動器列表框的Drive屬性值，將激活（）事件。A．KeyDownB．KeyUpC．ScollD．Change24．多窗體程序是由多個窗體組成，在缺省情況下，VB在應用程序執(zhí)行時，總是把（）指定為啟動窗體。A．不包含任何控件的窗體C．包含控件最多的窗體B．命名為Frm1的窗體D．設計時的第一個窗體25．DimA(1To4,0To3)定義的數(shù)組包含的元素的個數(shù)是（）。A．12B．16C．15D．動態(tài)變化26．如果創(chuàng)建了命令按紐控件數(shù)組，則Click事件的參數(shù)是（）。A．CaptionB．IndexC．TagD．沒有參數(shù)27．如果準備向隨機文件中寫入數(shù)據(jù)，正確的語句是（）A．Write#1,recC．Get#1,recB．Print#1,recD．Put#1,rec28.要以讀方式打開D盤的一個順序文件Test.doc，應使用的語句是（）A．Open"Test.doc"ForOutputAs#1B．Open"D:\Test.doc"ForInputAs#1C．Open"D:\Test.doc"ForOutputAs#1D．Open"Test.doc"ForInputAs#129．.以下屬性只能用程序代碼設置，不能通過屬性窗口設置的是（）。A．Index屬性B．Pattern屬性C．Visible屬性D．Drive屬性30．以下有關VisualBasic語言描述中錯誤的是（）。A．語句是一行一句，以回車鍵結(jié)束B．用“,”分隔一行中的多個語句C．不區(qū)分大小寫D．一條語句放在多行中，則在前一行結(jié)束處使用續(xù)行符“_”連接下一行31．不屬于VB數(shù)據(jù)庫引擎的是（）A．ODBCB．Jet引擎C．OLEDBD．BDE32.使用ADO對象模型時，使Recordset和Connection對象建立連接的屬性是（）。A．OpenD．ActiveConnectionB．ExecuteC．CommandType33．用來從數(shù)據(jù)庫表中刪除記錄的SQL命令是（）。A．whereD．delete34．VB程序中通常不會產(chǎn)生錯誤提示的是（）。A．編譯錯誤B．邏輯錯誤B．selectC．updateC．運行時錯誤D．實時錯誤35．在VB程序中逐語句調(diào)試的鍵是（）。A．F8鍵B．F9鍵C．CtrlF8鍵D．CtrlF9鍵36．當Winsock控件處于偵聽狀態(tài)時，其State屬性的值是（）A．0B．1C．2D．337．要發(fā)送數(shù)據(jù)，通常使用Winsock控件的（）A．ListenB．AcceptC．SendDataD．GetData38.下列敘述不正確的是（）。A.注釋語句是非執(zhí)行語句，僅對程序的有關內(nèi)容起注釋作用，客觀存在不被解釋和編譯B.注釋語句不能放在代碼中的任何位置C.注釋語句可以放在代碼中的任何位置D.代碼中加入注釋語句的目的是提高程序的可讀性39．ADO對象模型含有七種對象，其中用于建立一個和數(shù)據(jù)源的連接的對象是（）。A．CommandC．RecordsetB．ConnectionD．Field40．ADO對象模型含有七種對象，其中代表數(shù)據(jù)庫表中的一整套記錄或執(zhí)行一條命令而得到的結(jié)果的對象是（）。A.CommandC.Recordset二、填空題B.ConnectionD.Field1.每個應用程序必須有一個唯一的文件，至少有一個文件。2．表達式13\2-2^3*5MOD6的值是。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．過程級變量是指在聲明的變量，窗體級或模塊級變量是指窗體或模塊的代碼聲明段用或聲明的變量，在全局變量在整個應用程序中有效，一般在標準模塊中使用語句聲明。10．在VisualBasic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以適先確定，可使用For???Next循環(huán)循環(huán)；若要求先判斷循環(huán)進行的條件，可使用循環(huán)。11．為了在運行時把當前路徑下的圖形文件flower.jpg裝入圖片框P1，所使用的語句為。12.將圖片框的AutoSize屬性設置成時，可使圖片框根據(jù)圖片調(diào)整大小。13．Winsock控件主要用來編制基于TCP/IP或協(xié)議的網(wǎng)絡應用程序。如果希望得到本地計算機的IP地址，可以使用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．若窗體的左上角坐標為（-250，250），右下角坐標為（300，0），則X軸的正向向，Y軸的正向向。23．在VB中，將Access稱為，SQLServer稱為，F(xiàn)oxpro稱為。24．數(shù)據(jù)庫應用程序?qū)儆谝环N非常典型的前后臺軟件結(jié)構(gòu)，前后臺之間進行通訊的主要機制稱為。25．常用的VB網(wǎng)絡編程控件主要有三種。、和26．通常可以將文本框控件的屬性設置為False，以禁止鍵盤輸入。如果不希望某個控件獲得焦點，則可以將它的屬性設置為False。27．VB應用程序可分為單窗體、多窗體和。28．若窗體Form1左上角坐標為（0，600），右下角的坐標為（800，-200）。則X軸的正向向，Y軸的正向向。29．數(shù)據(jù)庫應用程序?qū)儆谝环N非常典型的前后臺軟件結(jié)構(gòu)，而前后臺之間進行通信的主要機制稱為。30．VB中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、和三種類型。三、閱讀程序題閱讀下列程序并寫出程序運行結(jié)果1．PrivateSubForm_Click()DimxAsIntegerStaticyAsIntegerx=x+2y=y+3Form1.Print"x=";x,"y=";yEndSub寫出程序運行時連續(xù)單擊三次窗體后，F(xiàn)orm1上的輸出結(jié)果。2．PrivateSubCommand1_Click()x=0DoWhilex<60x=(x+3)*(x+4)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub寫出程序運行后，文件框Text3的結(jié)果。3.PrivateSubForm_Click()DimA(1To3)AsStringDimcAsIntegerDimjAsIntegerA(1)="4"A(2)="8"A(3)="12"c=1Forj=1To3c=c+Val(A(j))NextjPrintcEndSub寫出程序運行時單擊窗體后，窗體Form1上的結(jié)果。4.PublicSubchange1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubPublicSubchange2(xAsInteger,yAsInteger)DimtAsIntegert=xx=yy=tEndSubPrivateSubForm_Click()DimaAsInteger,bAsIntegera=22:b=33change1a,bForm1.Print"A1=";a,"B1=";ba=22:b=33change2a,bForm1.Print"A2=";a,"B2=";bEndSub寫出程序運行時，單擊窗體Form1上的輸出結(jié)果。5．PrivateSubForm_Click()DimiAsInteger,kAsIntegerk=1Fori=1To4Ifi>3Thenk=k+4ExitForElsek=k+3EndIfNextiPrinti,kEndSub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。6.PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=6i=2DoWhilei<7i=i+4s=s+iLoopText1.Text=sEndSub寫出程序運行后，單擊Command1按鈕，文件框Text1的輸出結(jié)果是：7.FunctionF(aAsInteger)Staticcb=b+3c=c+3F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=5Fori=1To4PrintF(a)NextiEndSub寫出程序運行時，單擊命令按鈕在窗體上的輸出結(jié)果。8．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=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的輸出結(jié)果是10.(7分)Subtest(iAsInteger)i=i+4EndSubPrivateSubform_Click()DimxAsIntegerx=5Print"x=";xCalltest(x)Print"x=";xEndSub寫出程序運行后，單擊窗體時程序的運行結(jié)果。四、完善程序題1．列表框應用程序。要求從文本框中輸入課程名稱，然后按“添加”按鈕，將該課程名程添加到列表框中；當選擇列表框中某一項后，按“刪除”按鈕，則從列表框中刪除該項；當選擇列表框中某一項后，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認”。在文本框的內(nèi)容修改好后，按“修改確認”按鈕，再把文本框中修改后的信息送到列表框且“修改確認”按鈕變?yōu)椤靶薷摹薄３绦蜻\行結(jié)果如圖1所示。圖1程序如下，請補充完整。PrivateSubForm_Load()List1.AddItem"VisualBasic程序設計"List1.AddItem"SQLSERVER數(shù)據(jù)庫應用"List1.AddItem"信息管理系統(tǒng)"List1.AddItem"ERP原理與應用"List1.AddItem"網(wǎng)絡實用技術基礎"List1.AddItem"系統(tǒng)開發(fā)規(guī)范與文檔編寫"List1.AddItem"信息系統(tǒng)測試"EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then[1]'將文本框中的內(nèi)容加到列表框中Text1.Text=""[2]MsgBox"請在文本框中輸入信息！"EndIfEndSubPrivateSubCommand2_Click()[3]'刪除選定的項目EndSubPrivateSubCommand3_Click()IfCommand3.Caption=[4]Text1.Text=[5]ThenText1.SetFocusCommand1.Enabled=[6]Command2.Enabled=FalseCommand3.Caption=[7]ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""Command3.Caption=[8]EndIfEndSub2．已知存在一名為“學生”的SQLServer數(shù)據(jù)庫，其中的“students”數(shù)據(jù)表用來存儲學生的基本情況信息，包括學號、姓名、籍貫、性別。請編寫一個簡單的應用程序，向students表中添加學生記錄。程序的基本邏輯是：當窗體被加載時，程序聯(lián)接SQLServer數(shù)據(jù)庫；當點擊“增加”按鈕時，首先查詢學號是否重復，如果不重復則向students表中添加學生記錄。其運行界面如下圖所示。圖1程序如下，請補充完整。'聲明對象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接PrivateADOcnAsConnectionPrivateSubForm_Load()'連接SQLServer數(shù)據(jù)庫DimstrDBAsStringstrDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]IfADOcnIsNothingThen"SetADOcn=[2][3]EndIfEndSubPrivateSubCommand1_Click()'增加學生記錄DimstrSQLAsStringDimADOrsAs[4]ADOrs.[5]=ADOcnADOrs.Open“Select學號FromStudentsWhere學號=”+”‘“+Text1+”‘“IfNot[6]ThenMsgBox“你輸入的學號已存在，不能新增加！”ElseStrSQL=”InsertIntostudents(學號,姓名,,籍貫,性別)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘)”ADOcn.Execute[7]MsgBox“添加成功，請繼續(xù)！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub3．假設用Access創(chuàng)建了一個名為“學生.MDB”的數(shù)據(jù)庫，并在其中創(chuàng)建了一張名為“學生基本情況”的數(shù)據(jù)表，表中存放了學生的基本信息，如圖1所示。現(xiàn)在要求利用VB編寫一個數(shù)據(jù)庫查詢程序，程序的運行界面如圖2所示，基本邏輯是：首先文本框(Text1)中輸入希望查詢的學生學號，然后點擊“查詢”按鈕(Command1)，如果數(shù)據(jù)庫中存在該學號，則分別在Text2、Text3、Text4中顯示學號、姓名、籍貫信息，否則提示用戶“記錄不存在”并使Text1獲得焦點，要求用戶重新輸入。當點擊退出按鈕(Command2)時關閉本窗體。圖1用Access創(chuàng)建的學生基本情況數(shù)據(jù)表圖2查詢程序運行界面程序如下，請補充完整。PrivateADOcnAsConnectionPrivateSubForm_Load()[1][2]"EndSubPrivateSubCommand1_Click()DimstrSQLAsStringDimADOrsAs[3]RecordsetADOrs.ActiveConnection=ADOcnstrSQL="Select*From學生基本情況Where學號="+"'"+Text1+"'"[4]If[5]ADOrs.EOFThenText2=ADOrs.Fields("學號")Text3=ADOrs.Fields("姓名")Text4=ADOrs.Fields("籍貫")[6]MsgBox"要查詢的學號不存在，請重新輸入!",vbOKOnly,"信息提示"Text1=""[7]EndIfEndSubPrivateSubCommand2_Click()[8]End五、編寫程序題1．編寫一工資調(diào)整程序。若基本工資大于等于800元，增加工資20%，若小于800元大于600元，則增加工資15%；若小于600元則增加工資10%。要求在文本框Text1中輸入某職工的基本工資，單擊“計算”按鈕，在標簽框Label1中輸出增加后的工資。程序運行界面如圖4所示。圖22．請根據(jù)下列描述編寫購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(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元以上部分，扣稅20%，（4）當收入達到5000元以上，扣稅25%。程序運行界面如圖3所示。圖3答案：一、單項選擇題（每小題2分，共30分）1.C6.A2.D7.D3.C8.C4.B9.D5.D10.C11.B12.C13.D14.D15.A16.B21.A26.B31.D36.C17.B22.B18.B23.D19.B24.D20.B25.B27.D28.B32.D33.D29．D34.B30．B35.A40.C37.C38．C39.B二、填空題（每空1分，共15分）1．Vbpfrm2．23．30004．邏輯錯誤編譯錯誤5．NameIndex6．257.DimR(-2To2,0To4)AsInteger8．DimC(-1To3,0To4)AsInteger9．過程內(nèi)部DimPrivatePublic10．For???Next循環(huán)Do???Loop循環(huán)11．P1.Picture=LoadPicture("flower.jpg")12．True13.UDPLocalIP14.TCP/IPUDP15．變體型(或Variant)16.open"D:\text.dat"ForOutputAs#117.018．a(chǎn)bcdef19.整個應用程序Public20．引用參數(shù)傳遞（或按址傳遞）按值傳遞21.YMOD4=0AndYMOD100<>0ORYMOD400=022．右上23．本地數(shù)據(jù)庫遠程數(shù)據(jù)庫外部數(shù)據(jù)庫24．數(shù)據(jù)引擎25．WinsockInternetTransfeWebBrowser26．LockedTabStop27．MDI窗體28.右上39．數(shù)據(jù)庫引擎30．外部數(shù)據(jù)庫遠程數(shù)據(jù)庫三、閱讀程序題1．x=2y=3x=2y=6x=2y=92.2423．254．