Visual Basic程序設(shè)計(jì)期末綜合練習(xí)題(2005年12月)

PAGEPAGE12VisualBasic程序設(shè)計(jì)期末綜合練習(xí)題（200512月）一、單項(xiàng)選擇題工程文件的擴(kuò)展名是（ ）A．.frm B．.vbpC．.bas 要在窗體Form1內(nèi)顯示“新年快樂，使用的語句是（ ）Form.caption="新年快" B．Form1.caption=""C．Form.print新年快樂" D．Form1.print新年快樂"語句Text1.Text="VisualBasic"

別代表（ ）對(duì)象、值、屬性 B．對(duì)象、方法、屬性C．對(duì)象、屬性、值 D．屬性對(duì)象、值若要將窗體從內(nèi)存中卸載，應(yīng)使用的方法是（ 。Show B．UnloadC．Load 在VB中，下列各項(xiàng)合法的變量名是（ 。Integer B．a(chǎn)b-cC．56abc a_bc6．表達(dá)式10＋10Mod2^3+3的值是A．7 9C．15 10下列正確的賦值語句是（ 。m=m-1 B．m+1=mC．3m=n+x Winsock控件的LocalPort屬性的作用是（ ）僅返回所用端口 B．返回或設(shè)置所用端口C．僅設(shè)置所用端口 D．返回或設(shè)置IP地址Winsock控件的LocalIP屬性的作用是（ A．返回本地計(jì)算機(jī)的名稱B．返回或者設(shè)置所用的端口C．返回遠(yuǎn)程機(jī)器的IP地址D．返回本地計(jì)算機(jī)的IP地址DimA(5,5)AsInteger定義的數(shù)組包含的元素個(gè)數(shù)是（ ）A．25 B．36C．30 D．動(dòng)態(tài)變化要清除List列表框控件中的所有項(xiàng)目，可采用的方法是（ ）Clear B．EraseC．Click D．Delete如果希望以模態(tài)方式顯示窗體Form1，下列正確的語句是（ ）Form1.Show0B．Form1.ShowC．Form1.Show1D如果準(zhǔn)備向隨機(jī)文件中寫入數(shù)據(jù)，正確的語句是（ ）Print#1,rec B．Write#1,recC．Put#1,,rec D．Get#1,rec在過程中定義的變量若希望在離開該過程后還能保存過程中局部變量的值，應(yīng)使用（ ）關(guān)鍵字在過程中定義局部變量。A．Dim B．PublicC．Private D．Static在過程定義中( 表示形參的傳值。Var B．ByDefC．ByVal D．Value將數(shù)據(jù)添加到列表中成為地一項(xiàng)應(yīng)使用的語句（ ）A．List1.AddItem"China",0 B．List1.AddItem"China",1C．List1.AddItem"China", D．List1.AddItem"1,China"引用列表框最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的語句是（ ）A．List1.List(List1.ListCount) B．List1.ListC．List1.List(ListCount) D．List1.List(ListCount－1)可用來改變坐標(biāo)度量單位的是（ ）Drawstyle屬性 B．DrawWidth屬性C．Scale方法 D．ScaleMode屬性要使窗體在運(yùn)行時(shí)不可改變窗體的大小并沒有最大化和最小化按鈕通過設(shè)置可到此要求的屬性是（ ）MaxButton B．MinButtonC．Width D．BorderStyle數(shù)學(xué)關(guān)系8≤y<28表示成正確的VB表達(dá)式為（ ）A8<=y<28 、8<=yAND<28C、8<=yANDy<28 D、8<=yORy<28以下能判斷是否到達(dá)文件尾的函數(shù)是（ ）ABOF 、DOCC、LOF D、EOF22．6．為了在運(yùn)行時(shí)把d:\pic文件夾下的圖形文件a.jpg裝入圖片框Picture1中，所用的語句為（ 。A．Picture1.Text=LoadPicture("d:\pic\a.jpg")B．Picture1.Picture=LoadPicture("d:\pic\a.jpg")C．Picture1.Picture=LoadPicture(d:\pic\a.jpg)D．Picture1.Picture=Load("d:\pic\a.jpg")MsgBox函數(shù)的返回值的類型是（ ）整型 B．字符串C．邏輯型 D．日期型當(dāng)Winsock控件處于關(guān)閉狀態(tài)時(shí)，其State屬性的值是（ ）B．0C．2 D．-1要以讀方式打開D盤的一個(gè)順序文件Stu.dat，應(yīng)使用的語句是（ ）Open"Stu.dat"ForOutputAs#1Open"D:\Stu.dat"ForInputAs#1Open"D:\Stu.dat"ForOutputAs#1Open"Stu.dat"ForInputAs#1Timer控件可用于后臺(tái)進(jìn)程中，可在Timer事件內(nèi)編程，要停止觸發(fā)Timer事件需要設(shè)置的屬性是（ ）Visible=False或Enabled=False B．Interval=0或Visible=FalseC．Interval=0或Enabled=False D．Interval=0且圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是（ 。A、AutosizeB、StretchC、AutoRedrawD、Appearance28.以下敘述中正確的是（。A、窗體的Name屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體B、窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C、可以在運(yùn)行期間改變對(duì)象的Name屬性的值D、對(duì)象的Name屬性的值可以為空以下敘述中錯(cuò)誤的是（ 。A、一個(gè)工程中可以包含多個(gè)窗體文件B、在一個(gè)窗體文件中用Privat定義的通用過程能被其它窗體調(diào)用CVisualc型的文件D、全局變量必須在標(biāo)準(zhǔn)模塊中定義在VisualBasic中，變量的默認(rèn)類型是（ A、Integer B、DoubleCVariant D、Currency用Line方法畫直線當(dāng)前坐標(biāo)在（ 。A（0，0） B、直線起點(diǎn)C、直線終點(diǎn) D、容器的中心32.執(zhí)行指令“Line(1200,1200)-Step(1000,500)后，CurrentX=( A2200 B、1200C、200 D、170033．要退出Do…Loop循環(huán)，可使用的語句是（ 。A、Exit B、ExitFor C、EndDo DExitDo二、填空題VisualBasic6.0集成開發(fā)環(huán)境有三種工作模式，當(dāng)應(yīng)用程序處于中斷模式時(shí)，時(shí)不可。在VB中要想獲得某個(gè)相關(guān)控件或語句的幫助信息一般可首先選中該控件或語句然后鍵。以寫方式打開D盤中的Text.dat文件，正確的語句 數(shù)學(xué)表達(dá)式5寫成等價(jià)的Visualc達(dá)式。將圖片框的AutoSize屬性設(shè)置時(shí)，可使圖片框根據(jù)圖片調(diào)整大小。Winsock控件的LocalIP屬性，可以返，LocalHostName性，可以返。若窗體Form1左上角坐標(biāo)為(-400,250)右下角坐標(biāo)(400,-25)則X軸的正，Y軸的正向。ADO模型中一般可通對(duì)象的方法執(zhí)行增加刪除修改語句。使用ADO模型時(shí)，可通屬性建立和對(duì)象連接。在VB中，將數(shù)據(jù)庫分，外部數(shù)據(jù)庫。假設(shè)ADOrs為一個(gè)Recordset對(duì)象，那么從Table1表中獲取所有記錄的語句 VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，這三種基本結(jié)構(gòu)、 。如果要每隔15s產(chǎn)生一個(gè)Timer事件則Interval屬性應(yīng)設(shè)置14．VB中的程序錯(cuò)誤類型主要有編譯錯(cuò)等三種。 函數(shù)返回系統(tǒng)的時(shí)間。以窗體Form1的中心為圓心，畫一個(gè)半徑為800的圓的語句 ?？丶?shù)組的名字屬性指定而數(shù)組中的每個(gè)元素性決定。在VB的DAORDOADO三種數(shù)據(jù)對(duì)象的模型中采用Jet引擎和ODBC兩種方式問數(shù)據(jù)庫的，采用ODBC訪問數(shù)據(jù)庫的，主要采用OLEDB訪問數(shù)據(jù)庫的。按文件的存取方式?？蓪⑽募? 。定時(shí)器控件可識(shí)別的事件，發(fā)生該事件的時(shí)間間隔由定器屬性設(shè)置，其單位。三、閱讀程序題閱讀下列程序并寫出程序運(yùn)行結(jié)果1．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To5Ifj>3Thenc=c+4ExitForElsek=k+EndIfNextjPrintc,kEndSub寫出程序運(yùn)行時(shí)單擊窗體后，c,k的值分別是：2．PrivateSubForm_Click()DimxAsIntegerStaticyAsIntegerx=x+2y=y+3Form1.Print"x=";x,"y=";EndSubEndSub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，F(xiàn)orm1上的輸出結(jié)果。3．PrivateSubCommand1_Click()DimsAsDoubleDimiAss=5i=1DoWhilei<9i=i+2s=s+iLoopText1.Text=EndSub文件框Text1的輸出結(jié)果是：4.PrivateSubForm_Click()DimIasinteger,jasintegerDimcasintegerc=0Fori=1To3Forj=1to3c=c+1NextjNextIPrintcEndSub寫出程序運(yùn)行時(shí)單擊窗體后，c的輸出結(jié)果：5.FunctionF(aAsInteger)b=0Staticcb=b+c=c+F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub寫出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。6.PrivateSubCommand1_Click()DimA(1To5)AsIntegerDimxAsIntegerFori=1To5A(i)=iNextii=1DoWhilex<3A(i)=A(i)+x=x+1i=i+1LoopText1.Text=Text2.Text=EndSub7.SubChange(ByValxAsInteger,ByValyAsInteger)DimtAst=xx=y=Printx,EndSubPrivateSubForm_Click()DimaAsInteger,bAsIntegera=10:b=20Changea,bPrinta,bEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。四、完善程序題列表框應(yīng)用程序。要求在文本框Text1中輸入課程名稱，然后按“添加”按鈕，把該項(xiàng)；按“統(tǒng)計(jì)”按鈕，在文本框Text2中輸出課程數(shù)量總數(shù)；按“結(jié)束”按紐，退出應(yīng)用程1所示。圖1程序如下，請(qǐng)補(bǔ)充完整。PrivateSubForm_Load()List1.AddItem"計(jì)算機(jī)應(yīng)用基礎(chǔ)"List1.AddItem"程序設(shè)計(jì)基礎(chǔ)"List1.AddItem"軟件技術(shù)基礎(chǔ)"List1.AddItem"VisualBasic程序設(shè)計(jì)"List1.AddItem"SQLSERVER數(shù)據(jù)庫應(yīng)用"List1.AddItem"計(jì)算機(jī)專業(yè)英語"List1.AddItem"Delphi程序設(shè)計(jì)"EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then[1] Text1.Text=[2] ElseMsgBox"請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲ?[3] EndSubPrivateSubCommand2_Click()List1.RemoveItem[4] EndSubPrivateSubCommand3_Click()Text2.Text=[5] EndSubPrivateSubCommand4_Click()UnloadMeEndSub2.函數(shù)圖形程序。用Pset方法在圖形框Picture1內(nèi)繪制y=Sinx在π8所示。圖8函數(shù)圖形程序程序如下，請(qǐng)補(bǔ)充完整：PrivateSubCommand1_Click()Picture1.Scale(-4,2)-(4,-2) 定義坐標(biāo)系Picture1.Line(-4,0)-(4,0) x軸[1] y軸Picture1.CurrentX=0.2 '設(shè)置原點(diǎn)橫坐標(biāo)Picture1.CurrentY=-0.1 設(shè)置原點(diǎn)縱坐標(biāo)[2] '標(biāo)記原點(diǎn)Picture1.CurrentX=-3.2Picture1.CurrentY=-0.1Picture1.Print"-" '標(biāo)記“-π”Picture1.CurrentX=3.3Picture1.CurrentY=Picture1.Print"Picture1.CurrentX=0.2Picture1.CurrentY=0.9Picture1.Print"1" '標(biāo)記“1”Picture1.CurrentX=0.2Picture1.CurrentY=-0.8Picture1.Print"-1" '標(biāo)記Fori=[3] Step0.001Picture1.PSet[4] NextiEndSubPrivateSubCommand2_Click()[5] EndSub五、編程題(Command1)(List1)中輸出200~300之間不能被5(Command2)果如圖所示。注：其它類型的完善程序題和編程題，請(qǐng)參考上學(xué)期網(wǎng)上復(fù)習(xí)要點(diǎn)及練習(xí)。練習(xí)題答案答案一、單項(xiàng)選擇題1．B 4．B5．D 7．A 10．B11．A12．C 13．C14．D16．A 18．D 19．D20．C21．D22．B23．A24．B25．B26．C27．B28．A29．B30．C31．C32．A33．D二、填空題設(shè)計(jì)界面2.F13.open"D:\text.dat"ForOutputAs#14.5^(1/2