VisualBasic程序設(shè)計期末綜合練習(xí)題一

-.zVisualBasic程序設(shè)計期末綜合練習(xí)題一一、單項選擇題1．VisualBasic是一種面向?qū)ο蟮目梢暬幊陶Z言，采取了〔〕的編程機制。A．從主程序開場執(zhí)行B．按過程順序執(zhí)行C．事件驅(qū)動D．按模塊順序執(zhí)行2．在VisualBasic中，窗體文件的擴展名為〔〕。A．.vbpB．.frmC．.clsD．.bas3．VisualBasic6.0集成開發(fā)環(huán)境有三種工作模式，以下不屬于三種工作模式之一的是〔〕。A．設(shè)計模式B．編寫代碼模式C．中斷模式D．執(zhí)行模式4．如果對象的名稱為Myte*t，而且對象有一個屬性Te*t，則在代碼中引用該屬性的正確格式是〔〕。A．Te*t.Myte*tB．Myte*t*Te*tC．Myte*t.(Te*t)D．Myte*t.Te*t5．以下關(guān)于變量的說法不正確的選項是〔〕。A．局部變量在聲明它的過程執(zhí)行完畢后就被釋放了B．局部變量的作用域僅限于聲明它的過程C．靜態(tài)局部變量是在過程中用Static語句聲明的D．局部變量是指那些在過程中用Dim語句或Static語句聲明的變量 6．關(guān)于對象的屬性不正確的選項是〔〕。A．對象的屬性一般有屬性名和屬性值B．可通過屬性窗口設(shè)置屬性的值C．可通過程序代碼設(shè)置屬性的值D．對象的所有屬性值均可在設(shè)計時設(shè)計7．在設(shè)計階段，雙擊窗體上的*個控件時，翻開的窗體是〔〕。A．工程資源管理器窗口B．工具箱窗口C．代碼編輯器窗口D．屬性窗口8．要在窗體的標(biāo)題內(nèi)顯示“myfrm〞,使用的語句是〔〕。A．Form.caption="myfrm"B．Form1.caption="myfrm"C．Form1.Print"myfrm"D．Form.Print"myfrm"9．在VB中，以下變量名不合法的是〔〕。A．file_1B．fileC．file-1D．file_1_210．在設(shè)計動畫時，用時鐘控件來控制動畫速度的屬性是〔〕。A．EnabledB．MoveC．IntervalD．Timer11．要從For…Ne*t循環(huán)中退出循環(huán)，應(yīng)使用〔〕語句。A．E*itB．E*itForC．ContinueD．StopLoop12．文本框ScrollBars屬性設(shè)置了非零值，卻沒有效果，原因是〔〕。A．文本框中沒有內(nèi)容B．文本框的Locked屬性為TrueC．文本框的MultiLine屬性為TrueD．文本框的MultiLine屬性為False13．要利用公用對話框控件來顯示“翻開文件〞對話框，需要調(diào)用控件的〔〕方法。A．ShowPrinterB．ShowOpenC．ShowSaveD．ShowColor14．以下賦值語句正確的選項是〔〕。A．*=y+zB．y+z=*C．-y=*D．4=*+y15．確定一個控件在窗體上位置的屬性是〔〕。A．Width和HeightB．Width或HeightC．Top和LeftD．Top或Left16．VB程序中設(shè)置斷點的按鍵是〔〕。A．F5鍵B．F6鍵C．F9鍵D．F10鍵17．如果希望以模態(tài)方式顯示窗體Form1，以下正確的語句是〔〕。A．Form1.Show0B．Form1.ShowC．Form1.Show1D．以下都不正確18．用語句DimA(-2To3)AsInteger所定義的數(shù)組的元素的個數(shù)是〔〕。A．3B．4C．5D．619．如果創(chuàng)立了命令按鈕的控件數(shù)組，則Click事件的參數(shù)是〔〕。A．CaptionB．TagC．Inde*D．沒有參數(shù)20．要向圖片框Picture1中加載“d:\hainan\zhiwu.bmp〞圖像文件，應(yīng)使用語句〔〕。A．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp)B．P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")C．Picture1.Picture="d:\hainan\zhiwu.bmp"D．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")21．如果要在窗體代碼編輯器的〞通用〞局部定義私有Sub過程，則正確的語句是〔〕。A．PublicSubB．PrivateSubC．PublicFunctionD．PrivateFunction22．在代碼編輯器中，如果一條語句太長，無法在一行內(nèi)寫下〔不包括注釋〕，要折行書寫，可以在行末使用續(xù)行字符〔〕，表示下一行是當(dāng)前行的繼續(xù)。A．直接回車B．一個下劃字符〞_〞C．一個空格加一個下劃字符〞_〞D．一個空格加一個連字符(-)23.以下表達(dá)不正確的選項是〔〕。A.注釋語句是非執(zhí)行語句，僅對程序的有關(guān)內(nèi)容起注釋作用，客觀存在不被解釋和編譯B.注釋語句可以放在代碼中的任何位置C.注釋語句不能放在代碼中的任何位置D.代碼中參加注釋語句的目的是提高程序的可讀性24．VB程序中通常不會產(chǎn)生錯誤提示的是〔〕。A．編譯錯誤B．實時錯誤C．運行時錯誤D．邏輯錯誤25．ADO對象模型含有七種對象，其中代表數(shù)據(jù)庫表中的一整套記錄或執(zhí)行一條命令而得到的結(jié)果的對象是〔〕。A.mandB.ConnectionC.RecordsetD.Field26．使用ADO模型時，建立Recordset和Connection對象的連接的屬性是〔〕。A．E*ecuteB．mandTypeC．OpenD．ActiveConnection27．要發(fā)送數(shù)據(jù)，通常使用Winsock控件的〔〕。A．SendData方法B．Listen方法C．Accept方法D．GetDate方法28．以下只能用程序代碼設(shè)置，不能通過屬性窗口設(shè)置的屬性是〔〕。A．Drive屬性B．Pattern屬性C．Visible屬性D．Inde*屬性二、填空題1．每個應(yīng)用程序必須有一個惟一的文件。2.欲設(shè)置定時器的時間間隔為1秒，則屬性Interval的值為。3．表達(dá)式5+21\2*3Mod2的值是。4．表達(dá)式5+9Mod2^3+2的值是。5．列表框中工程的序號是從開場的。6．計時器控件響應(yīng)的事件是。7．為了在運行時把當(dāng)前路徑下的圖形文件pictureflower.jpg裝入圖片框Picture1，所使用的語句為。8．執(zhí)行賦值語句a="abc"+"def"，變量a的值是。9.VB中的程序錯誤類型主要有編譯錯誤、等三種。10．在VB中，將Fo*pro稱為外部數(shù)據(jù)庫，Access稱為，SQLServer稱為。11．?dāng)?shù)據(jù)庫應(yīng)用程序?qū)儆谝环N非常典型的前后臺軟件構(gòu)造，而前后臺之間進(jìn)展通信的主要機制稱為。12．假設(shè)窗體Form1左上角坐標(biāo)為〔0，600〕，右下角的坐標(biāo)為〔800，-200〕。則*軸的正向向，Y軸的正向向。13．用DimA(3,3)語句聲明二維數(shù)組后，數(shù)組A的元素共有個。14．設(shè)*個程序中要用到一個二維數(shù)組，要求數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從1到3，第二維下標(biāo)從0到3，則相應(yīng)的數(shù)組聲明語句為。15.果不適先確定變量的數(shù)據(jù)類型，則可以把它聲明為變量。16.tretch屬性設(shè)置為時，圖像框可自動改變大小以適應(yīng)其中的圖形。17.insock1.Listen語句的含義是。三、閱讀程序題閱讀以下程序并寫出程序運行結(jié)果1．PrivateSubForm_Click()StaticaAsStringDimbAsStringa=a+"A"b=b+"B"Te*t1=aTe*t2=bEndSub寫出程序運行時連續(xù)單擊三次窗體后，文本框Te*t1和Te*t2顯示結(jié)果。2．PrivateSubForm_Click()StaticSumAsIntegerFori=1To4Sum=Sum+iNe*tiPrintSumEndSub寫出程序運行時點擊窗體兩次后，變量Sum的值。3．PrivateSubmand1_Click()DimA(1To5)AsIntegerDim*AsIntegerFori=1To5A(i)=iNe*tii=1DoWhile*<7A(i)=A(i)+**=*+3i=i+1LoopTe*t1.Te*t=A(1)Te*t2.Te*t=A(3)EndSub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。4．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=2c=3Forj=1To5Ifj>3Thenc=c+5E*itForElsek=k+5EndIfNe*tjPrintc,kEndSub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。5.PrivateSubmand1_Click()Dim*AsInteger,YAsInteger*=1:Y=1Fori=1To4Forj=1ToiY=Y+jNe*tj*=*+YNe*tiPrint*EndSub寫出程序運行時單擊命令按鈕后，窗體Form1上的輸出結(jié)果。6.PrivateSubmand1_Click()DimA(1To5)AsIntegerDimbAsIntegerForb=1To5A(b)=bNe*tbTe*t1.Te*t=A(b-2)EndSub寫出程序運行時單擊mand1后，文件框Te*t1中的輸出結(jié)果。7.FunctionF(aAsInteger,bAsInteger)AsIntegerF=a+bEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=4:b=5z=F(a,b)PrintzEndSub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。8.FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubmand1_Click()DimaAsIntegera=4Fori=1To3PrintF(a)Ne*tiEndSub寫出程序運行時，單擊命令按鈕在窗體上的輸出結(jié)果。四、完善程序題1．假設(shè)用Access創(chuàng)立了一個名為“學(xué)生.MDB〞的數(shù)據(jù)庫，并在其中創(chuàng)立了一*名為“學(xué)生根本情況〞的數(shù)據(jù)表，表中存放了學(xué)生的根本信息，如圖1所示?，F(xiàn)在要求利用VB編寫一個數(shù)據(jù)庫查詢程序，程序的運行界面如圖2所示，根本邏輯是：首先文本框(Te*t1)中輸入希望查詢的學(xué)生**，然后點擊“查詢〞按鈕(mand1)，如果數(shù)據(jù)庫中存在該**，則分別在Te*t2、Te*t3、Te*t4中顯示**、**、籍貫信息，否則提示用戶“記錄不存在〞并使Te*t1獲得焦點，要求用戶重新輸入。當(dāng)點擊退出按鈕(mand2)時關(guān)閉本窗體。圖1用Access創(chuàng)立的學(xué)生根本情況數(shù)據(jù)表圖2查詢程序運行界面程序如下，請補充完整。PrivateADOAsConnectionPrivateSubForm_Load()[1][2]"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:\學(xué)生.MDB"EndSubPrivateSubmand1_Click()DimstrSQLAsStringDimADOrsAs[3]RecordsetADOrs.ActiveConnection=[4]strSQL="Select*From學(xué)生根本情況Where**="+"'"+Te*t1+"'"[5]IfNotADOrs.EOFThenTe*t2=ADOrs.Fields("**")Te*t3=ADOrs.Fields("**")Te*t4=ADOrs.Fields("籍貫")ElseMsgBo*"要查詢的**不存在，請重新輸入!",vbOKOnly,"信息提示"Te*t1="Te*t1.SetFocusEndIfEndSubPrivateSubmand2_Click()UnLoadMeEnd2．列表框應(yīng)用程序要求從文本框中輸入課程名稱，然后按“添加〞按鈕，將該課程名程添加到列表框中；中選擇列表框中*一項后，按“刪除〞按鈕，則從列表框中刪除該項；中選擇列表框中*一項后，按“修改〞按鈕，把列表框中選取的項送往文本框且“修改〞按鈕變?yōu)椤靶薷拇_認(rèn)〞。在文本框的內(nèi)容修改好后，按“修改確認(rèn)〞按鈕，再把文本框中修改后的信息送到列表框且“修改確認(rèn)〞按鈕變?yōu)椤靶薷抹?。程序運行結(jié)果如圖3所示。List1mand3List1mand3mand2mand1Te*t1圖3程序如下，請補充完整。PrivateSubForm_Load()List1.AddItem"VisualBasic程序設(shè)計"List1.AddItem"SQLSERVER數(shù)據(jù)庫應(yīng)用"List1.AddItem"信息管理系統(tǒng)"List1.AddItem"ERP原理與應(yīng)用"List1.AddItem"網(wǎng)絡(luò)實用技術(shù)根底"List1.AddItem"系統(tǒng)開發(fā)規(guī)*與文檔編寫"List1.AddItem"信息系統(tǒng)測試"EndSubPrivateSubmand1_Click()IfTe*t1.Te*t<>"Then[1]Te*t1.Te*t'將文本框中的內(nèi)容加到列表框中Te*t1.Te*t="[2]MsgBo*"請在文本框中輸入信息！"EndIfEndSubPrivateSubmand2_Click()[3]List1.ListInde*'刪除選定的工程EndSubPrivateSubmand3_Click()Ifmand3.Caption=[4]ThenTe*t1.Te*t=[5]Te*t1.SetFocusmand1.Enabled=Falsemand2.Enabled=Falsemand3.Caption="修改確認(rèn)"ElseList1.List(List1.ListInde*)=Te*t1.Te*tmand1.Enabled=Truemand2.Enabled=TrueTe*t1.Te*t="mand3.Caption="修改"EndIfEndSub五、編寫程序題編寫一工資調(diào)整程序。假設(shè)根本工資大于等于2000元，增加工資20%，假設(shè)小于1800元大于1300元，則增加工資15%；假設(shè)小于1300元則增加工資10%。要求在文本框Te*t1中輸入*職工的根本工資，單擊“計算〞按鈕，在標(biāo)簽框Label1中輸出增加后的工資。程序運行界面如圖4所示。圖42．請根據(jù)以下描述編寫購物優(yōu)惠程序。*商場為了加速促成商品流通，采用購物打折的優(yōu)惠方法，每位顧客一次購物〔1〕在200元以上者，按九五折優(yōu)惠；〔2〕在400元以上者，按九折優(yōu)惠；〔3〕800元以上者，按八折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，要求在Te*t1中輸入購物商品總金額，單擊命令按鈕，在Te*t2中輸出優(yōu)惠價。程序運行結(jié)果如圖5所示。圖5答案：一、單項選擇題1.C2.B3.B4.D5.A8.B9.C10.C11.B12.D13.B14.A15.C16.C17.C18.D19.C20.D21．B22．C23．C24．D25.C26.D27.A28.A二、填空題1．.vbp2．10003．64．85．06．Timer7．Picture1.Picture=LoadPrcture("pictureflower.jpg")8．a(chǎn)bcdef9．實時錯誤邏輯錯誤10．本地數(shù)據(jù)庫遠(yuǎn)程數(shù)據(jù)庫11.數(shù)據(jù)庫