鄭州大學(xué)vb考試題加答案

1、一、單項選擇題（50道小題，共50分）1、 VisualBasic程序中的注釋所使用的字符是（A）。（1分）A、'B、:C、D、_2、下列選項中，不屬于VB特點的選項是（C）。（1分）A、可視化程序設(shè)計B、面向?qū)ο驝、窗口中包含有菜單欄和工具欄D、事件驅(qū)動下的編程機制3、下列關(guān)于VisualBasic的敘述不正確的是（A）。（1分）A變量名區(qū)分字母大、小寫B(tài)、不能用系統(tǒng)保留字聲明為變量名C、允許在一行中書寫多條語句，但要用冒號隔開D允許一條語句分成若干行書寫，但要在上一行末加上空格及下劃線作為續(xù)行標(biāo)志4、有程序代碼如下：Text1.Text="鄭州大學(xué)"，則Text

2、1、Text、"鄭州大學(xué)"分別代表（C）。（1分）A、對象、值、屬性B、對象、方法、屬性C、對象、屬性、值D、屬性、對象、值5、下列敘述中，正確的是（D）。（1分）AVB的事件由用戶定義B、VB程序以順序方式執(zhí)行C、每一個VB程序都是從Main（）函數(shù)開始執(zhí)行DVB運行時，系統(tǒng)等待事件的發(fā)生，事件的執(zhí)行順序與書寫順序無關(guān)6、下列敘述錯誤的是（A）。（1分）A、不允許使用行號與標(biāo)號B、單條語句可分行書寫C、同一行上可以書寫多條語句DVB代碼不區(qū)分字母的大小寫7、VB程序中，通常不會產(chǎn)生錯誤提示的是（D）。（1分）A、編譯錯誤B、實時錯誤C、運行時錯誤D邏輯錯誤8、啟動Visu

3、alBasic后，系統(tǒng)為用戶新建的工程起一個名為（A）的臨時名稱。（1分）A、工程1B、窗體1C、工程D窗體9、在工具欄中有一個“啟動”按鈕，這個按鈕的作用是（A）。（1分）A、運行一個應(yīng)用程序B、運行一個窗體C、打開被選中對象的屬性窗口D打開被選中對象的代碼窗口10、當(dāng)程序中斷修改后再運行時，VB進入（B）模式。（1分）A、設(shè)計B、運行C、中斷D編程11、在VB程序中，逐語句調(diào)試的操作鍵是（A）。（1分）A、F8鍵B、F9鍵C、F2鍵DF1鍵12、在VisualBasic的設(shè)計模式下，如果按下功能鍵F5,則（A）。（1分）A、開始運行正在設(shè)計的程序B、執(zhí)行一句代碼C、編譯當(dāng)前正在設(shè)計的程序D

4、K退出VisualBasic13、在設(shè)計階段，雙擊窗體上的某個控件，可以打開（A）。（1分）A、代碼窗口B、屬性窗口C、工具箱窗口D工程資源管理器窗口14、打開VisualBasic集成環(huán)境后，默認(rèn)顯示的工具欄是（B）。（1分）A、編輯工具欄B、標(biāo)準(zhǔn)工具欄C、調(diào)試工具欄D窗體工具欄15、在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是（C）。（1分）A、工程資源管理器窗口B、工具箱窗口C、代碼窗口D屬性窗口16、下面的過程定義語句中，不合法的是（A）。（1分）A、SubPara（ByValn（）B、SubPara（n）C、FunctionPara（ByValn）D、FunctionPara

5、（proc1）不能脫離控件對象（包括客體）而獨立存在的過程是（A）。（1分）A、事件過程B、通用過程C、Sub過程D函數(shù)過程18、Sub過程與Function過程最根本的區(qū)別是（D）。（1分）A、Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以B、Function過程可以有參數(shù)，Sub過程不可以C、兩種過程參數(shù)的傳遞方式不同D、Sub過程的過程名不能返回值，而Function過程能夠通過其過程名返回值19、參數(shù)傳遞有按值傳遞和按地址傳遞，（A）關(guān)鍵字表示按值傳遞。（1分）A、ByValB、ByRefC、ValueD、Refrence20、窗體上有兩個文本框(Te

6、xtl、Text2)和一個命令按鈕(Comman。1,閱讀如下程序：PrivateSubfunc(TAsTextBox,aAsInteger):T.Text="1234":a=a*a:EndSub:PrivateSubForm_Load():Text1.Text="ABCD":Text2.Text=10:EndSub:PrivateSubCommand1_Click():DimtempAsInteger:temp=Val(Text2.Text):Callfunc(Text1,temp):Text2.Text=temp:EndSub，運行后，單擊按鈕，Te

7、xt1和Text2將分別顯示(A)。(1分)AABCtJ口10B、1234和100C、ABCtJ口100D1234和1021、在定義過程時，若將參數(shù)傳遞方式指定為傳值方式，應(yīng)該用關(guān)鍵字（C）。（1分）A、DimB、VarC、ByValD、Byadr22、下列說法中，不正確的說法是（B）。（1分）A、可以在窗體的某個子程序中定義窗體級變量B、聲明窗體級變量的位置是在窗體所有過程的最前面C、窗體級變量聲明后，窗體內(nèi)的各個過程都能使用它并能改變其值D、程序運行時，先執(zhí)行窗體級變量聲明語句，再去執(zhí)行窗體上的過程23、由（C）關(guān)鍵字聲明的局部變量在整個程序運行時一直存在。（1分）A、DimB、Publi

8、cC、StaticD、Private24、定義過程的局部變量時，用關(guān)鍵字（C）表示被定義的變量在調(diào)用離開過程后仍保留其值。（1分）A、DimB、ByValC、StaticD、Public25、以下四個用于變量聲明的關(guān)鍵字中，不能在模塊通用聲明段中使用的是（A）。（1分）A、StaticB、PublicC、PrivateD、Dim26、VB中有三種類型的模塊，分別是類模塊、（A）o（1分）A、窗體模塊和標(biāo)準(zhǔn)模塊B、過程模塊和窗體模塊C、函數(shù)模塊和標(biāo)準(zhǔn)模塊D全局模塊和標(biāo)準(zhǔn)模塊27、在窗體的通用段聲明變量時，不能使用（D）關(guān)鍵字。（1分）A、DimB、PublicC、PrivateD、Static2

9、8、下列說法中，不正確的說法是（A）。（1分）A、不能用Private定義模塊級變量B、不能在“通用聲明”段中為變量賦值C、不能在窗體的某個子程序中定義窗體級變量D、聲明窗體級變量的位置是在窗體所有過程的最前面29、能夠被本模塊的其它過程引用的是（B）。（1分）A局部變量B、模塊級變量C、靜態(tài)變量D、以上都是30、在聲明一個過程中必須有的是（B）。（1分）APrivate關(guān)鍵字B、SU聯(lián)鍵字C、返回值類型說明D、參數(shù)31、以（A）保留字開始的為子過程。（1分）A、SubB、EventC、FunctionD、Property32、Sub子過程用的退出語句是（B）。（1分）A、EndSubB、Ex

10、itSubC、EndFunctionD、ExitFunction33、以下關(guān)于函數(shù)過程的敘述中，正確的是（B）。（1分）A函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B、在函數(shù)過程中，可以通過函數(shù)名返回一個值C、當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，只能以傳值方式傳遞，不能以傳址方式傳遞D如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型34、以（C）保留字開始的為函數(shù)過程。（1分）A、SubB、EventC、FunctionD、Property35、一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，下列敘述錯誤的是（A）。（1分）A如果工程含F(xiàn)orml窗體，程序首先執(zhí)行該窗體的事件過程B、任何時刻最多只有一個窗體是活動

11、窗體C、標(biāo)準(zhǔn)模塊不能設(shè)置為啟動模塊D、Hide方法只是隱藏而不從內(nèi)存中清除窗體36、如果要在應(yīng)用程序中建立另一個窗體，正確的操作方法是（B）。（1分）A、在“文件”下拉菜單中選擇“添加窗體”命令R在“工程”下拉菜單中選擇“添加窗體”命令C、在“編輯”下拉菜單中選擇“添加窗體”命令口在“工具”下拉菜單中選擇“添加窗體”命令37、在VB中，建立新窗體的方法是（B）。（1分）A、利用標(biāo)準(zhǔn)工具箱中的窗體控件B、利用“工程”下拉菜單中的命令C、由系統(tǒng)自動生成D、利用VB命令生成38、如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中，錯誤的是（A）。（1分）A、不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊B、任何時刻最多

12、只有一個窗體是活動窗體C、用Hide方法將把窗體隱藏起來D如果工程中含SubMain過程，則程序可能首先執(zhí)行該過程39、如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中，錯誤的是（A）。（1分）A、如果工程中含有SubMain過程，則程序一定首先執(zhí)行該工程R不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊C、用Hide方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體D任何時刻最多只有一個窗體是活動窗體40、如果Forml是啟動窗體，并且Forml的Load事件過程中有Form2.Show則程序啟動后（B）。（1分）A、Form2是最后的活動窗體B、Form1是最后的活動窗體C、編譯錯誤D、運行出錯41、如果Form2

13、是啟動窗體，并且Form2的Load事件過程中有Form1.Show,則程序啟動后（D）。（1分）A、發(fā)生一個運彳T時錯誤B、發(fā)生一個編譯時錯誤C、在所有的初始化代碼運行后Form1是活動窗體D在所有的初始化代碼運行后Form2是活動窗體42、程序運行時，不是由系統(tǒng)觸發(fā)的事件是（B）。（1分）A、InitializeB、ClickC、LoadD、Activate43、順序文件是因為（D）。（1分）A、文件按每條記錄的記錄號從小到大排序B、文件按記錄長度從小到大排序D記錄按進入的先后順序存放C、文件中按記錄的某項關(guān)鍵字從大到小排序的，讀出也是按照原寫入的順序進行的44、下列關(guān)于順序文件的敘述正確

14、的是（A）。（1分）A所有記錄的長度必須相同B、可以使用文本編輯軟件編輯C、可以隨機讀取文件中的記錄D文件中記錄按關(guān)鍵字順序存放45、關(guān)于VisualBasic6.0文件的命名原則，下列說法正確的是（D）。（1分）A、可以在文彳名中使用*和？B、支持文件名為任意長度C、與Windows命名方式不一致D支持傳統(tǒng)的命名方式：8位主文件名，3位擴展名46、在VisualBasic中，按文件的數(shù)據(jù)性質(zhì)的不同，可將文件分為（A）。（1分）A數(shù)據(jù)文件和程序文件B、文本文件和數(shù)據(jù)文件C、順序文件和隨機文件DACSII文件和二進制文件47、下列敘述中，錯誤的敘述是（A）。（1分）A、文件號的使用范圍是1256

15、B、順序文件的數(shù)據(jù)或者只能讀，或者只能寫C、文件的打開必須使用Open語句D文件的關(guān)15必須使用Close語句48、要以讀方式打開D盤根目錄上的一個順序文件Test.txt，應(yīng)使用的語句是（B）。（1分）A、Open"Test.txt"ForOutputAs#1B、Open"D:Test.txt"ForInputAs#1C、Open"D:Test.txt"ForOutputAs#1D、Open"Test.txt"ForInputAs#149、要從順序文件中讀出一個數(shù)據(jù)項，可以用（A）函數(shù)。（1分）A、InputB、

16、WriteC、InputBoxD、InputString50、如果要向Stu.dat文件追加數(shù)據(jù)，正確打開該文件的語句是（B）。（1分）A、Open"Stu.dat"ForOutputAs#1B、Open"Stu.dat"ForAppendAs#1C、OpenStu.datForOutputAs#1D、OpenStu.datForAppendAs#17道小題，共30分）1、 *將一維數(shù)組a中的數(shù)值反序放置。*程序代碼如下：PrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,tAsIntegerFo

17、ri=1To10a(i)=Int(90*Rnd)10Printa(i);Nexti:PrintFori=1To5t=a(i)a(i)=a(11-i)a(11-i)=tNextiFori=1To10Printa(i);Nexti:PrintEndSub4分）2、 *輸出九九乘法表的左下角程序代碼如下：PrivateSubCommand1_Click()DimseAsStringPrintTab(35);"九九乘法表"For=1To9Forj=1toi-1se=i&"x"&j&"="&i*jPrintTab

18、(j-1)*91);se;NextjPrintNextiEndSub4分）3、*用隨機函數(shù)產(chǎn)生n個1099之間的隨機整數(shù)存入一維數(shù)組A,通過鍵盤輸入X,然后在數(shù)組中查找。如果找到了，就把這個數(shù)從數(shù)組中刪去；如果沒有找到，則給出“無可刪除的元素”信息。PrivateSubForm_Click()DimnAsInteger,a(100)AsIntegerDimxAsInteger,iAsIntegerDimkAsInteger,flagAsBooleann=InputBox("N=")Fori=1To99a(i)=Int(90*Rnd10)Printa(i);Nexti：Pri

19、ntx=InputBox("X="):Print"X="xflag=FalseFori=1TonIfa(i)=xThenflag=Truek=iExitForEndIfNextiIfNotflagThenPrint"無可刪除的元素"ElseFori=kTon-1a(i)=a(i1)Nexti:n=n-1Fori=1TonPrinta(i);NextiEndIfEndSub4分）4、 *使用冒泡排序法，將一維數(shù)組A按從大到小排序（降序）。PrivateSubCommand啟動_Click（）Dima(10)AsIntegerDimiAs

20、Integer,jAsInteger,tAsIntegerFori=1To10a(i)=Int(90*Rnd)10Printa(i);Nexti:PrintFori=10To2Step-1Forj=1Toi-1Ifa(j)<a(j1)Thent=a(j):a(j)=a(j1):a(j1)=tEndIfNextjNextiFori=1To10Printa(i);Nexti:PrintEndSub4分）5、 楊輝三角形如圖所示：111121133114641151010511615201561程序代碼如下：PrivateSubForm_Click()Dima(1To10,1To10)AsIn

21、teger,i%,j%Fori=1To10a(i,1)=1a(i,i)=1NextiFori=1To10Forj=2To-1a(i,j)=a(i-1,j-1)a(i-1,j)NextjNextiFori=1To10Forj=1Toi-1PrintTab(5*(j-1)1);a(i,j);NextjPrintNextiEndSub4分)10!6、 *利用階乘函數(shù)過程fac(n)=n!求1!2!*程序代碼如下：Publicjc(ByValnAsInteger)AsLongDimi%,jcAsLongjc=1Fori=1Tonjc=jc*iNextifac=jcEndFunctionPrivateSubForm_Click()DimS&,k%S=0Fork=1to10S=Sfac(k)NextkPrintSEndSub4分）7、 *設(shè)計一前景背景色互換程序,如圖<1-1.jpg>*單擊命令按鈕“換”，互換窗體中標(biāo)簽的前景色和背景色。'1-1.jpgPrivateSubForm_Load