電大《VB程序設(shè)計(jì)》期末考試試題及答案

1、VisualBasic程序設(shè)計(jì)試題一、單項(xiàng)選擇題（每小題2分，共30分.與傳統(tǒng)的程序設(shè)計(jì)語宵相比，VisualBasic最突出的特點(diǎn)是（CA.結(jié)構(gòu)化程序設(shè)計(jì)B.程序開發(fā)環(huán)境C.事件驅(qū)動的編程機(jī)制D程序調(diào)試技術(shù).在VB6.0集成開發(fā)環(huán)境中有三種工作模式，下列不屬于三種工作模式之一的是（D）A設(shè)計(jì)模式B中斷模式c.執(zhí)行模式D編寫代碼模式.下列關(guān)于窗體的說法不正確的是（B）。A.窗體的標(biāo)題由Caption屬性確定B.窗體的Name屬性Caption屬性相同C.窗體的背景圖片由其Picture屬性設(shè)成D通過設(shè)置Icon屬性可使窗體獲得最小化時(shí)的圖標(biāo).工程文件的后綴是（B）。A.frmB.vbpc.ba

2、sD.cls.要在窗體的標(biāo)題內(nèi)顯示myfrm,使用的語句是（D）。A.Form1.PrintmyfrmB.Form.PrintmyfrmC.Form.caption=myfrmD.Form1.caption=myfrm.在設(shè)計(jì)動畫時(shí)，用時(shí)鐘控件來控制動畫速度的屬性是（B）。A.EnabledB.IntervalC.TimerD.Move.關(guān)于語句行，下列說法正確的是（D）。A一行只能寫一條語句B.長度不能超過255個(gè)學(xué)符C.每行的首學(xué)符必須大寫D條語句可以分多行書寫.假定已在窗體上畫了多個(gè)控件，井有一個(gè)控件是活動的，為了在屬性窗口中設(shè)置窗體的屬性，預(yù)先應(yīng)執(zhí)行的操作是（A）。A.單擊窗體上沒有控

3、件的地方B.單擊任一個(gè)控件C不執(zhí)轉(zhuǎn)任何操作D.雙擊窗體的標(biāo)題欄.下列關(guān)于變量的說法不正確的是（D）。A.局部變量是指那要是在過程中用Dim語句或Static語句聲明的變量B.局部變量的作用域僅限于聲明它的過程C.靜態(tài)局部變量是在過程中用Static語句聲明的D.局部變量在聲明它的過程孰行完畢后就被釋放了.使用ADO數(shù)據(jù)模型時(shí)，建立Recordset和Connection對象連接的屬性是（C）。A.ExecuteB.OpenC.ActiveConnectionD.CommandType.DimA（1To6,6）AsString定義的數(shù)組包含的元素個(gè)數(shù)是（C）。A.36B.49C.42D.50.V

4、B程序中逐語句調(diào)試的按鍵是（B）。A.F1鍵B.F8鍵C.F9鍵D.Ctrl+F9鍵.不屬于VB數(shù)據(jù)庫引擎的是（C）。A.ODBCB.Jet引擎C.BDED.OLEDB.一旦數(shù)據(jù)到達(dá)，將首先觸發(fā)Winsock控件的（D）。A.DataGet事件B.ConnectonRequestC.DataSend事件D.DataArrival事件.VB程序中通常不會產(chǎn)生錯(cuò)誤提示的（C）。A.編譯錯(cuò)誤B.實(shí)時(shí)錯(cuò)誤C.邏輯錯(cuò)誤D.運(yùn)行時(shí)錯(cuò)誤二、填空題每小霆2分，共20分.控件數(shù)組的名字由Name屬性指定，而數(shù)組中的每個(gè)元素由Index屬性決定。.全局變量在整個(gè)應(yīng)用程序中有效，一般在標(biāo)準(zhǔn)模塊中使理Public語句

5、聲明。.在VisualBasic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以適先確定，可使用For循環(huán);若要求先到新循環(huán)進(jìn)行的條件，可使用While循環(huán)戒Do循環(huán)。.要使標(biāo)簽框的大小隨Caption屬住做自動調(diào)擦，應(yīng)將AutoSize屬姓設(shè)置為True。.表達(dá)式14/2-23*7MOD6的值是5.Winsock控件主要用來編制TCP/IP或UDP協(xié)議的通話程序。.若窗體Forml左上角坐棟為（0,600）,右下角的坐標(biāo)為（800,-400）0照X軸的向向左，Y軸的正向上.列條框按件中最后一項(xiàng)的序號等于ListCount屬性減1.VB中，Access數(shù)據(jù)庫屬于壟地?cái)?shù)據(jù)庫。（說明是哪種數(shù)據(jù)庫

6、類.VB應(yīng)用程序與數(shù)據(jù)庫進(jìn)行通信的主要機(jī)制稱為數(shù)據(jù)庫引擎三、閱讀程序題共25分閱讀下列程序并寫程序運(yùn)行結(jié)果。.(6分)PrivateSubForm_ClickODimxasintegerStaticyAsIntegerX=x十3y=x十yForml.Print.x=;X,”=;yEndSub程序運(yùn)行后三次單擊窗體，寫出Forml上的輸出結(jié)果：x=3y=3x=3y=6x=3y=927.(6分SubChange(ByValxAsInteger,ByValyAslnteger)DimtAsIntegerT=xX=yy=tPrintx,yEndSubPrivateSubForm_ClickODimaA

7、sInteger,bAsIntegera5:b=10Changea,bPrinta,bEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。10551028.(6分PrivateSubForm_ClickODimIAsInteger,kAsInteger,cAsIntegerFori=1To7IfIMod2=0ThenElsec=c+4EndIfNextiPrintk,cEndSub寫出程序運(yùn)行時(shí)單擊窗體后，窗體Form1上的結(jié)果。916.(7分PrivateSubForm_ClickODimA(1To3)AsStrng1DimcAsIntegerDirnjAsIntegerA(1)=

8、“20”A(2)=“40”A(3)=60c=2Forj=1To3C=c十Val(A(j)NextjPrintcEndSub寫出程序運(yùn)行時(shí)單擊窗體后，窗體Forml上的結(jié)果Combo2. ClearstrSQL = strSQL十 Combo2.122西完善程序題共10分.假設(shè)用Access創(chuàng)建了一個(gè)名為“學(xué)生.MDB”的數(shù)據(jù)庫，并在其中創(chuàng)建了一張名為“學(xué)生基本情況”的數(shù)據(jù)表，表中存放了學(xué)生的基本信息，如圖1所示。則在課程Text2Text3現(xiàn)在要求利用VB編寫一個(gè)數(shù)據(jù)庫記錄增加程序，程序的運(yùn)行界前如圖2所示，基本邏輯是：在“學(xué)號”中選擇學(xué)號，Text1中自動顯示姓名，在號”中選擇課程號，則在中

9、自動顯示課程名稱，在中輸入成績，然后點(diǎn)擊確認(rèn)按鈕，若數(shù)據(jù)庫中不存在該記錄，則將該記錄添加到數(shù)據(jù)庫中，否則，如果數(shù)據(jù)庫中已經(jīng)存在該學(xué)號、該課程的成績，則程序應(yīng)提示用戶該記錄巳經(jīng)存在，不能繼續(xù)增加“。當(dāng)點(diǎn)擊返回按鈕(Command2)時(shí)關(guān)閉本窗體。DoWhileNotADOrs.EOFCombo2.AddltemTrim(ADOrs.Fields(堞程號)ADOrs.MoveNextLoopADOrs.CloseTextl.Text=Text2.Text=Text3.Text=0EndSubPrivateSubCommand2_ClickOUnloadMeEndSubPrivateSubCombo

10、l_ClickODimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnADOrs.Openselect姓名from學(xué)生情況進(jìn)where學(xué)號=+Combo1.Text+”IfNotADOrs.EOFThenText1.text=ADOrs。姓名)Text十，十Str(Val(Text3.Text)十)”ADOcn.ExecutestrSQLMsgBox巳成功添如新紀(jì)錄”,vbCritical+vbOKOnlyEndSub五、編寫程序題共15分i.請根據(jù)下列描述編寫購物優(yōu)惠程序。某商場為了如速提成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物元以上

11、者，按九折優(yōu)惠元以上者，按八折優(yōu)惠元以上者按七折優(yōu)惠。(1)在 700 ;(3)1000 ;(4)2000 在窗體上添加商個(gè)文本框和一個(gè)命令按ADOrs. Open select 課程名圖1峰物Oc/F打r鈕，要求在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸出優(yōu)惠價(jià)。程序運(yùn)行結(jié)果如圖3所示。圖2增加新記錄窗體程序代碼如下, 請補(bǔ)充完整。If Not ADOrs.EOF Then - 1f1Text2. Text =:ADOrs(課程前HT港JGK鼻理-End it - -End Sub，用=十combo2. iext+PrivateSubForm_LoadODimADOrs

12、AsNewRecordsetADOrs.ActiveConnecton=ADOcnADOrs.OpenSelect學(xué)號From學(xué)生情況表OrderBy學(xué)號Combol.ClearDoWhile-NotADOrs.EOFCombol.AddltemTrim(ADOrs.Fields(學(xué)號)ADOrs.MoveNextLoopADOrs.CloseADOrs.OpenSelect課程號From課程情況表OrderBy課程號”esPrivateSubCommandl_ClickOstrSQLAsString:DimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnstrSQL=Select*from學(xué)生成績表strSQL=strSQL十Where學(xué)號=十Combo1.Text十”strSQL=strSQL十And課程號=十Combo2.Text十”ADOrs.OpenstrSQLIfNotADOrs.EOFThenMsgBox”該記隸己經(jīng)存在，不能繼續(xù)增如”,vbCritical+vbOKOnlyExittSubEndIfstrSQL=InsertInto學(xué)生或績表(學(xué)號，課程號，成績