2023年全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷VisualBasic語(yǔ)言程序設(shè)計(jì)

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷VisualBasic語(yǔ)言程序設(shè)計(jì)（考試時(shí)間90分，滿分100分）2023年4月一、選擇題（每小題2分，共70分）下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是對(duì)的的。請(qǐng)將對(duì)的選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。1、程序流程圖中帶有箭頭的線段表達(dá)的是A）圖元關(guān)系 B）數(shù)據(jù)流C）控制流 D)調(diào)用關(guān)系2、結(jié)構(gòu)化程序設(shè)計(jì)的基本原則不涉及A）多態(tài)性 B）自頂向下C）模塊化 D）逐步求精3、軟件設(shè)計(jì)中模塊劃分應(yīng)遵循的準(zhǔn)則是A）低內(nèi)聚低耦合 B)高內(nèi)聚低耦合 C)低內(nèi)聚高耦合 D)高內(nèi)聚高耦合4、在軟件開發(fā)中，需求分析階段產(chǎn)生的重要文檔是A）可行性分析報(bào)告 B）軟件需求規(guī)格說(shuō)明書C）概要設(shè)計(jì)說(shuō)明書 D）集成測(cè)試計(jì)劃5、算法的有窮性是指A）算法程序的運(yùn)營(yíng)時(shí)間是有限的B）算法程序所解決的數(shù)據(jù)量是有限的C）算法程序的長(zhǎng)度是有限的 D）算法只能被有限的用戶使用6、對(duì)長(zhǎng)度為n的線性表排序，在最壞的情況下，比較次數(shù)不是n(n-1)/2的排序方法是A）快速排序 B）冒泡排序 C）直接插入排序 D）堆排序7、下列關(guān)于棧的敘述對(duì)的的是A）棧按“先進(jìn)先出”組織數(shù)據(jù) B）棧按“先進(jìn)后出”組織數(shù)據(jù)C）只能在棧底插入數(shù)據(jù) D）不能刪除數(shù)據(jù)8、在數(shù)據(jù)庫(kù)設(shè)計(jì)中，將E—R圖轉(zhuǎn)換成關(guān)系數(shù)據(jù)模型的過程屬于A）需求分析階段 B）概念設(shè)計(jì)階段C）邏輯設(shè)計(jì)階段 D）物理設(shè)計(jì)階段9、有三個(gè)關(guān)系R、S和T如下：

R

S

T

BCDf3h2a0k1n2x1BCDa0k1B1n1

BCDa0k1

由關(guān)系Ｒ和S通過運(yùn)算得到關(guān)系T，則所使用的運(yùn)算為A）并 B）自然連接 C）笛卡爾積 D）交10、設(shè)有表達(dá)學(xué)生選課的三張表，學(xué)生S（學(xué)號(hào)，姓名，性別，年齡，身份證號(hào)），課程（課號(hào)，課名），選課SC（學(xué)號(hào)，課號(hào)，成績(jī)），則表SC的關(guān)鍵字（鍵或碼）為A）課號(hào)，成績(jī) B）學(xué)號(hào)，成績(jī) C）學(xué)號(hào)，課號(hào) D）學(xué)號(hào)，姓名，成績(jī)11、以下敘述中錯(cuò)誤的是A）標(biāo)準(zhǔn)模塊文獻(xiàn)的擴(kuò)展名是.basB）標(biāo)準(zhǔn)模塊文獻(xiàn)是純代碼文獻(xiàn)C）在標(biāo)準(zhǔn)模塊中聲明的全局變量可以在整個(gè)工程中使用D）在標(biāo)準(zhǔn)模塊中不能定義過程12、在VisualBasic中，表達(dá)式3*2\5Mod3的值是A）1 B）0 C）3 D）出現(xiàn)錯(cuò)誤提醒13、以下選項(xiàng)中，不合法的VisualBasic變量名是A）a5b B）_xyz C）a_b D）andif14、以下數(shù)組定義語(yǔ)句中，錯(cuò)誤的是A）Statica(10)AsInteger B）Dimc(3,1to4)C）Dimd(-10) D）Dimb(0to5,1to3)AsInteger15、現(xiàn)有語(yǔ)句：y=IIf(x>0,xMod3,0)，設(shè)x=10，則y的值是A）０ B）1 C）3 16、為了使文本框同時(shí)具有垂直和水平滾動(dòng)條，應(yīng)先把MultiLine屬性設(shè)立為True，然后再把Scrollbars屬性設(shè)立為A）０B）1 C）2 D）17、文本框Text1的KeyDown事件過程如下：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub其中參數(shù)KeyCode的值表達(dá)的是發(fā)生此事件時(shí)A）是否按下了Alt鍵或Ctrl鍵 B）按下的是哪個(gè)數(shù)字鍵C）所按的鍵盤鍵的鍵碼 D）按下的是哪個(gè)鼠標(biāo)鍵18、窗體上有一個(gè)名稱為Hscroll1的滾動(dòng)條，程序運(yùn)營(yíng)后，當(dāng)單擊滾動(dòng)條兩端的箭頭時(shí)，立即在窗體上顯示滾動(dòng)框的位置（即刻度值）。下面可以實(shí)現(xiàn)上述操作的事件過程是A）PrivateSubHscroll1_Changc() B）PrivateSubHsctroll1_Change()PrintHScroll1.ValuePrintHScroll1.SmallChangeEndSub EndSubC）PrivateSubHScroll1_Scroll() D）PrivateSubHScroll1_Scroll()PrintHScroll1.ValuePrintHScroll1.SmallChangeEndSubEndSub19、若已把一個(gè)命令按鈕的Default屬性設(shè)立為True，則下面可導(dǎo)致按鈕的Click事件過程被調(diào)用的操作是A）用鼠標(biāo)右鍵單擊此按鈕 B）按鍵盤上的Esc鍵C）按鍵盤上的回車鍵 D）用鼠標(biāo)右鍵雙擊此按鈕20、要使兩個(gè)單選按鈕屬于同一個(gè)框架，對(duì)的的操作是A）先畫一個(gè)框架，再在框架中畫兩個(gè)單選按鈕B）先畫一個(gè)框架，再在框架外畫兩個(gè)單選按鈕，然后把單遠(yuǎn)按鈕拖到框架中C）先畫兩個(gè)單選按鈕，再畫框架將單選按鈕框起來(lái)D）以上三種方法都對(duì)的21、可以存放組合框的所有項(xiàng)目?jī)?nèi)容的屬性是A）Caption B)Text C)List D)Selected22、設(shè)窗體上有一個(gè)標(biāo)簽Labell和一個(gè)計(jì)時(shí)器Timer1，Timer1的Interval屬性被設(shè)立為1000，Enabled屬性被設(shè)立為True。規(guī)定程序運(yùn)營(yíng)時(shí)每秒在標(biāo)簽中顯示一次系統(tǒng)當(dāng)前時(shí)間。以下可以實(shí)現(xiàn)上述規(guī)定的事件過程是A）PrivateSubTimer1_Timer() B）PrivateSubTimer1_Timer()Label1.Caption=True

Label1.Caption=Time$EndSub

EndSubC)PrivateSubTimer1_Timer() D)PrivateSubTimer1_Timer()Label1.Interval=1

Fork=lToTimer1.IntervalEndSub

Label1.Caption=Timer

Nextk

EndSub

23、設(shè)有如圖所示窗體和以下程序：PrivateSubCommand1_Click()Textl.Text=“VisualBasic”

EndSubPrivateSubText1_LostFocus()IfText1.Text<>“BASIC”ThenText1.Text=””Text1.SetFocusEndIfEndSub

程序運(yùn)營(yíng)時(shí)，在Text1文獻(xiàn)框中輸入“Basic”(如圖所示)，然后單擊Command1按鈕，則產(chǎn)生的結(jié)果是A）文本框中無(wú)內(nèi)容，焦點(diǎn)在文本框中B）文本框中為“Basic”,焦點(diǎn)在文本框中C）文本框中為“Basic”,焦點(diǎn)的按鈕上D）文本框中為“VisualBasic”,焦點(diǎn)的按鈕上24、窗體上有一個(gè)名稱為Command1的命令按鈕，其事件過程如下：PrivateSubCommand1_Click()x=“VisualBasicProgramming”a=Right(x,11)b=Mid(x,7,5)C=Msgbox(a,,b)EndSub運(yùn)營(yíng)程序后單擊命令按鈕，以下敘述中錯(cuò)誤的是A）信息框的標(biāo)題是Basic B）信息框中的提醒信息是ProgrammingC）C的值是函數(shù)的返回值 D）MsgBox的使用格式有錯(cuò)25、設(shè)工程文獻(xiàn)包含兩個(gè)窗體文獻(xiàn)Form1.frm、Form2.frm及一個(gè)標(biāo)準(zhǔn)模塊文獻(xiàn)Module1.bas，兩個(gè)窗體上分別只有一個(gè)名稱Command1的命令按鈕。Form1的代碼如下：PublicXAsIntegerPrivateSubForm_load()x=1y=5EndSubPrivateSubCommand1_Click()Form2.ShowEndSubForm2的代碼如下：PrivateSubCommand1_Ciick()PrintForm1.x,yEndSubModule1的代碼如下：PublicyAsInteger運(yùn)營(yíng)以上程序，單擊Form1的命令按鈕Command1，則顯示Form2；再單擊Form2上的命令按鈕Command1，則窗體上顯示的是A）15 B）05 C）00 26、窗體上有一個(gè)名稱Text1的文本框，一個(gè)名稱為Command1的命令按鈕。窗體文獻(xiàn)的程序如下：PrivateTypexaAsIntegerbASIntegerEndTypePrivateSubCommand1_Click()DimyAsxy.a=InputBox(“”)Ify.a\2=y.a/2Theny.b=y.a*y.aElsey.b=Fix(y.a/2)EndIfText1.Text=y.bEndSub對(duì)以上程序，下列敘述中錯(cuò)誤的是A）x是用戶定義的類型B）InputBox函數(shù)彈出的對(duì)話框中沒有提醒信息C）若輸入的是偶數(shù)，y.b的值為該偶數(shù)的平方D）Fix(y.a/2)把y.a/2的小數(shù)部分四舍五入，轉(zhuǎn)換為整數(shù)返回27、窗體上有一個(gè)名稱為CD1的通用對(duì)話框控件和由四個(gè)命令按鈕組成的控件數(shù)Command1,其下標(biāo)從左到右分別為0、1、2、3,窗體外觀如圖所示。命令按鈕的事件過程如下：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0CD1.Action=1Case1CD1.ShowSaveCase2CD1.Action=5Case3EndEndSelectEndSub對(duì)上述程序，下列敘述中錯(cuò)誤的是A）單擊“打開”按鈕，顯示打開文獻(xiàn)的對(duì)話框B）單擊“保存”按鈕，顯示保存文獻(xiàn)的對(duì)話框C）單擊“打印”按鈕，可以設(shè)立打印選項(xiàng)，并執(zhí)行打印操作D）單擊“退出”按鈕，結(jié)束程序的運(yùn)營(yíng)28、窗體上有兩個(gè)水平滾動(dòng)條HV、HT，尚有一個(gè)文本框Text1和一個(gè)標(biāo)題為“計(jì)算”的命令按鈕Command1，并編寫了以下程序：PrivateSubCommand1_ClickOCallCale(HV.Value,HT.Value)EndSubPublicSubCale(xASInteger,yASInteger)Text1.Text=x*yEndSub運(yùn)營(yíng)程序，單擊“計(jì)算”按鈕，可根據(jù)速度與時(shí)間計(jì)算出距離，并顯示計(jì)算結(jié)果。對(duì)以上程序，下列敘述中對(duì)的的是A）過程調(diào)用語(yǔ)句不對(duì)，應(yīng)為Cale(HV,HT)B)過程定義語(yǔ)句的形式參數(shù)不對(duì)，應(yīng)為SubCale(xAsControl,yAsControl)C)計(jì)算結(jié)果在文本框中顯示出來(lái)D）程序不能對(duì)的運(yùn)營(yíng)29、現(xiàn)有如下程序：PrivateSubCommand1_Click()S=0Fori=1to5S=S+f(5+i)NextPrintSEndSubPublicFunctionf(xAsInteger)Ifx>=10Thent=x+1Elset=x+2EndIff=tEndFunction運(yùn)營(yíng)程序，則窗體上顯示的是A）38 B）49 C）61

30、窗體上有一個(gè)用菜單編輯器設(shè)計(jì)的菜單（見圖）。運(yùn)營(yíng)程序，并在窗體上單擊鼠標(biāo)右鍵，則彈出一個(gè)快捷菜單，如圖所示。以下敘述中錯(cuò)誤的A）在設(shè)計(jì)“粘貼”菜單項(xiàng)時(shí)，在菜單編輯器窗口中設(shè)立了“有效”屬性（有“√”）B）菜單中的橫線是在該菜單項(xiàng)的標(biāo)題輸入框中輸入了一個(gè)“－”（減號(hào)）字符C）在設(shè)計(jì)“選中”菜單項(xiàng)時(shí)，在菜單編輯器窗口中設(shè)立了“復(fù)選”屬性（有“√”）D）在設(shè)計(jì)該彈出菜單的主菜單項(xiàng)時(shí)，在菜單編輯器窗口中去掉了“可見”前面的“√”31、窗體上有一個(gè)名稱為Picture1圖片框控件，一個(gè)名稱Label1的標(biāo)簽控件。如圖所示?，F(xiàn)有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxisLabelThenx.Caption=“計(jì)算機(jī)等級(jí)考試”Elsex.Picture=Loadpicture(“pic.jpg”)EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub對(duì)以上程序，下列敘述中錯(cuò)誤的是A）程序運(yùn)營(yíng)時(shí)會(huì)犯錯(cuò) B）單擊圖片框，在圖片框中顯示一幅圖片C）過程中的X是控件變量 D）單擊標(biāo)簽，在標(biāo)簽中顯示一串文字32、窗體上有兩個(gè)名稱分別為Text1、Text2的文本框。Text1的KeyUp的事件過程如下：PrivateSubText1_KeyUp(KeyCodeAsInteger,shiftASInteger)DimCASstringTcxt2.Text=Chr(Asc(c)+2)EndSub當(dāng)向文本框Text1中輸入小寫字母a時(shí)，文本框Text2中顯示的是A）Ａ B）a C)C D)c33、設(shè)窗體上有一個(gè)文體框Text1和一個(gè)命令按鈕Command1,并有以下事件過程：PrivateSubCommand1_Click()DimSAsString,chAsStringS=“”Fork=1TOLen(Text1)ch=Mid(Text1,k,l)S=ch+SNextkText1.Text=SEndSub程序執(zhí)行時(shí)，在文本框中輸入“Basic”,然后單擊命令按鈕，則Text1中顯示的是A）Basic B)cisaB C)BASIC D)CISAB34、某人編寫了如下程序，用來(lái)求10個(gè)整數(shù)（整數(shù)從鍵盤輸入）中的最大值：PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1TO10a(K)=InputBox(“輸入一個(gè)整數(shù)”)NextkMax=0Fork=1To10Ifa(k)＞maxThenMax=a(k)EndIfNextkPrintmaxEndSub運(yùn)營(yíng)程序時(shí)發(fā)現(xiàn)，當(dāng)輸入10個(gè)正數(shù)時(shí)，可以得到對(duì)的結(jié)果，但輸入10個(gè)負(fù)數(shù)時(shí)結(jié)果是錯(cuò)誤的，程序需要修改，下面的修改中可以得到對(duì)的運(yùn)營(yíng)結(jié)果的是A)把Ifa(k)>maxThen改為Ifa(k)<maxThenB)把max=a(k)改為a(k)=maxC)把第2個(gè)循環(huán)語(yǔ)句Fork=1TO10改為Fork=2TO10D)把max=0改為max=a(10)35、已知在4行3列的全局?jǐn)?shù)組score(4,3)中存放了4個(gè)學(xué)生3門課程的考試成績(jī)（均為整數(shù)）?，F(xiàn)需要計(jì)算每個(gè)學(xué)生的總分，某人編寫程序如下：OptionBase1PrivateSubCommand1_Click()DimsumAsIntegerSum=0Fori=1To4Forj=1To3Sum=sum+score(i,j)NextjPrint“第”&i&”個(gè)學(xué)生的總分是:”;sumNextiEndSub運(yùn)營(yíng)此程序時(shí)發(fā)現(xiàn)，除第1個(gè)人的總分計(jì)算對(duì)的外，其別人的總分是錯(cuò)誤的。程序需要修改。以下修改方案中對(duì)的的是A)把外層循環(huán)語(yǔ)句Fori=1TO4改為Fori=1To3內(nèi)層循環(huán)語(yǔ)句Forj=1TO3改為Forj=1TO4B)把sum=0移到Fori=1TO4和Forj=1TO3之間C）把sum=sum+score(i,j)改為sum=sum+score(j,i)D)把sum=sum+score(i,j)改為sum=score(i,j)二、填空題（1）測(cè)試用例涉及輸入值集和【1】值集。（2）深度為5的滿二叉樹有【2】個(gè)葉子結(jié)點(diǎn)。（3）設(shè)某循環(huán)隊(duì)列的容量為50，頭指針Front=5(指向隊(duì)頭元素的前一位置)，尾指針rear=29（指向隊(duì)尾元素），則該循環(huán)隊(duì)列中共有【3】個(gè)元素。（4）在關(guān)系數(shù)據(jù)庫(kù)中，用來(lái)表達(dá)實(shí)體之間聯(lián)系的是【4】。（5）在數(shù)據(jù)庫(kù)管理系統(tǒng)提供的數(shù)據(jù)定義語(yǔ)言、數(shù)據(jù)操縱語(yǔ)言和數(shù)據(jù)控制語(yǔ)言中，【5】負(fù)責(zé)數(shù)據(jù)的模式定義與數(shù)據(jù)的物理存取構(gòu)建。（6）設(shè)有以下的循環(huán)：規(guī)定程序運(yùn)營(yíng)時(shí)執(zhí)行3次循環(huán)體，請(qǐng)?zhí)羁?。x=1DOx=x+2PrintxLoopUntil【6】（7）窗體上命令按鈕Command1的事件過程如下：PrivateSubCommand1_Click()DimtotalAsIntegertotal=s(1)+s(2)PrinttotalEndSubPrivateFunctions(mAsInteger)AsIntegerStaticxAsIntegerFori=1Tomx=x+1NextiS=xEndFunction運(yùn)營(yíng)程序，第3次單擊命令按鈕Command1時(shí)，輸出結(jié)果為【7】（8）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：OptionBaselPrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a(i)=iNextCallswap(【8】)Fori=1To10Printa(i)NextEndSubSubswap(b()AsInteger)n=【9】Fori=1Ton/2t=b(i)b(i)=b(n)b(n)=t【10】NextEndSub上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，請(qǐng)?zhí)羁?。?）在窗體上面一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕，并編寫如下事件過程：PrivateSubCommand1_Click()CommonDialog1.Filter=“AllFiles(*.*)|*.*|TextFiles”_&”(*.txt)|*.txt|BatchFiles(*.bat)|*.bat”CommonDialog1Filterlndex=1Commondialog1.ShowOpenMsgBoxCommonDialog1.FileNameEndSub程序運(yùn)營(yíng)后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文獻(xiàn)類型”框中顯示的是【11】；假如在對(duì)話框中選擇d盤temp目錄下的tel.txt文獻(xiàn)，然后單擊“擬定”按鈕，則在MsgBox信息框中顯示的提醒信息是【12】。（10）以下程序的功能是：把程序文獻(xiàn)smtext1.txt的內(nèi)容所有讀入內(nèi)存，并在文本框Text1中顯示出來(lái)。請(qǐng)?zhí)羁?。PrivateSubCommand1_Click()DiminDataAsStringText1.Text=“”O(jiān)pen“smtext1.txt”【13】As【14】DoWhile【15】Input#2,inDataText1.Text=Text1.Text&inDataLoopClose#2EndSub

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷VisualBasic語(yǔ)言程序設(shè)計(jì)（考試時(shí)間90分，滿分100分）2023年9月一、選擇題（每小題2分，共70分）下列各題A）、B）、C）、D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是對(duì)的的。請(qǐng)將對(duì)的選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。（1）一個(gè)棧的初始狀態(tài)為空，現(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧，然后再依次出棧，則元素出棧的順序是A）12345ABCDE B）EDCBA54321 C）ABCDE12345 D）54321EDCBA（2）下列敘述中對(duì)的的是A）循環(huán)隊(duì)列中有隊(duì)頭和隊(duì)尾兩個(gè)指針，因此，循環(huán)隊(duì)列是非線性結(jié)構(gòu)B）在循環(huán)隊(duì)列中，只需要隊(duì)頭指針就能反映隊(duì)列中元素的動(dòng)態(tài)變化情況C）在循環(huán)隊(duì)列中，只需要隊(duì)尾指針就能反映隊(duì)列中元素的動(dòng)態(tài)變化情況D）循環(huán)隊(duì)列中元素的個(gè)數(shù)是由隊(duì)頭指針和隊(duì)尾指針共同決定（3）在長(zhǎng)度為n的有序線性表中進(jìn)行二分查找，最壞情況下需要比較的次數(shù)是A）O(n) B）O(n2) C）O(log2n) D）(nlog2n)（4）下列敘述中對(duì)的的是A）順序存儲(chǔ)結(jié)構(gòu)的存儲(chǔ)一定是連續(xù)的，鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)的存儲(chǔ)空間不一定是連續(xù)的B）順序存儲(chǔ)結(jié)構(gòu)只針對(duì)現(xiàn)行結(jié)構(gòu)，鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)只針對(duì)非線性結(jié)構(gòu)C）順序存儲(chǔ)結(jié)構(gòu)能存儲(chǔ)有序表，鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)不能存儲(chǔ)有序表D）鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)比順序存儲(chǔ)結(jié)構(gòu)節(jié)省存儲(chǔ)空間（5）數(shù)據(jù)流圖中帶有箭頭的線段表達(dá)的是A）控制流 B）事件驅(qū)動(dòng) C）模塊調(diào)用 D）數(shù)據(jù)流（6）在軟件開發(fā)中，需求分析階段可以使用的工具是A）N-S圖 B）DFD圖 C）PAD圖 D）程序流程圖（7）在面向?qū)ο蠓椒ㄖ?，不屬于“?duì)象”基本特點(diǎn)的是A）一致性 B）分類性 C）多態(tài)性 D）標(biāo)記唯一性（8）一間宿舍可住多個(gè)學(xué)生，則實(shí)體宿舍和學(xué)生之間的聯(lián)系是A）一對(duì)一 B）一對(duì)多 C）多對(duì)一 D）多對(duì)多（9）在數(shù)據(jù)管理技術(shù)發(fā)展的三個(gè)階段中，數(shù)據(jù)共享最佳的是A）人工管理階段 B）文獻(xiàn)系統(tǒng)階段C）數(shù)據(jù)庫(kù)系統(tǒng)階段 D）三個(gè)階段相同（10）有三個(gè)關(guān)系R、S和T如下：RARABm1n2SBC1335TABCm13A）笛卡爾積 B）交 C）并 D）自然連接（11）在設(shè)計(jì)窗體時(shí)雙擊窗體的任何地方，可以打開的窗口是A）代碼窗口 B）屬性窗口C）工程資源管理器窗口 D）工具箱窗口（12）若變量a未事先定義而直接使用（例如：a=0），則變量a的類型是A）Integer B）String C）Boolean D）Variant（13）為把圓周率的近似值3.14159存放到變量pi中，應(yīng)當(dāng)把變量pi定義為A）DimpiAsInteger B）Dimpi(7)AsIntegerC）DimpiAsSingle D）DimpiAsLong（14）表達(dá)式2*3^2-4*2/2+3^2的值是A）30 B）31 C）49 D）48（15）以下不能輸出“Program”的語(yǔ)句是A）PrintMid("VBProgram",3,7)B）PrintRight("VBProgram",7)C）PrintMid("VBProgram",3)D）PrintLeft("VBProgram",7)（16）窗體上有一個(gè)名稱為Frame1的框架（如圖），若要把框架上顯示的“Frame1”改為漢字“框架”，下面對(duì)的的語(yǔ)句是A）Frame1.Name="框架"B）Frame1.Caption="框架"C）Frame1.Text="框架"D）Frame1.Value="框架"（17）以下敘述中錯(cuò)誤的是A）在通用過程中，多個(gè)形式參數(shù)之間可以用逗號(hào)作為分隔符B）在Print方法中，多個(gè)輸出項(xiàng)之間可以用逗號(hào)作為分隔符C）在Dim語(yǔ)句中，所定義的多個(gè)變量可以用逗號(hào)作為分隔符D）當(dāng)一行中有多個(gè)語(yǔ)句時(shí)，可以用逗號(hào)作為分隔符（18）設(shè)窗體上有一個(gè)列表框控件List1，具有若干列表項(xiàng)。以下能表達(dá)當(dāng)前被選中的列表項(xiàng)內(nèi)容的是A）List1.List B）List1.ListIndex C）List1.Text D）List1.Index（19）設(shè)a=4，b=5，c=6，執(zhí)行語(yǔ)句Printa<bAndb<c后，窗體上顯示的是A）True B）False C）犯錯(cuò)信息 D）0（20）執(zhí)行下列語(yǔ)句strInput=InputBox("請(qǐng)輸入字符串","字符串對(duì)話框","字符串")將顯示輸入對(duì)話框。此時(shí)假如直接單擊“擬定”按鈕，則變量strInput的內(nèi)容是。A）"請(qǐng)輸入字符串" B）"字符串對(duì)話框" C）"字符串" D）空字符（21）窗體上有Command1、Command2兩個(gè)命令按鈕?，F(xiàn)編寫以下程序：OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click()m=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")ReDima(m)EndSubPrivateSubCommand2_Click()m=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")ReDima(m)EndSub運(yùn)營(yíng)程序時(shí)，單擊Command1后輸入整數(shù)10，再單擊Command2后輸入整數(shù)5，則數(shù)組a中元素的個(gè)數(shù)是A）5 B）6 C）10 D）11（22）在窗體上畫一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為Command1和Label1，然后編寫如下事件過程：PrivateSubCommand1_Click()Counter=0Fori=1To4Forj=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter)EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是A）11 B）12 C）16 D）20（23）在窗體上畫一個(gè)名為Command1的命令按鈕，然后編寫以下程序：PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextx=8PrintM(2+M(x))EndSub運(yùn)營(yíng)程序，單擊命令按鈕，在窗體上顯示的是A）6 B）5 C）7 D）8（24）以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是A）調(diào)用過程時(shí)可以用控件名稱作為實(shí)際參數(shù)B）用數(shù)組作為過程的參數(shù)時(shí)，使用的是“傳地址”方式C）只有函數(shù)過程可以將過程中解決的信息傳回到調(diào)用過程中D）窗體（Form）可以作為過程的參數(shù)（25）在窗體上畫一個(gè)名為Command1的命令按鈕，再畫兩個(gè)名稱分別為L(zhǎng)abel1、Label2的標(biāo)簽，然后編寫如下程序代碼：PrivateXAsIntegerPrivateSubCommand1_Click()X=5:Y=3Callproc(X,Y)Label1.Caption=XLabel2.Caption=YEndSubPrivateSubproc(aAsInteger,ByValbAsInteger)X=a*aY=b+bEndSub程序運(yùn)營(yíng)后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是A）25和3 B）5和3 C）25和6 D）5和6（26）在窗體上有兩個(gè)名稱分別為Text1、Text2的文本框，一個(gè)名稱為Command1的命令按鈕。運(yùn)營(yíng)后的窗體外觀如圖所示。設(shè)有如下的類型和變量聲明：PrivateTypepersonnameAsString*8majorAsString*20EndType設(shè)文本框中的數(shù)據(jù)已對(duì)的地賦值給Person類型的變量p，當(dāng)單擊“保存”按鈕時(shí)，可以對(duì)的地把變量中的數(shù)據(jù)寫入隨機(jī)文獻(xiàn)Text2.dat中的程序段是A）Open"c:\Test2.dat"ForOutputAs#1Put#1,1,pClose#1B）Open"c:\Test2.dat"ForRandomAs#1Get#1,1,pClose#1C）Open"c:\Test2.dat"ForRandomAs#1Len=Len(p)Put#1,1,pClose#1D）Open"c:\Test2.dat"ForRandomAs#1Len=Len(p)Get#1,1,pClose#1（27）在窗體上畫一個(gè)名稱分別為Text1的文本框和一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextText1.Text=Str(n)EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，在文本框中顯示的值是A）2 B）3 C）4 D）5（28）假定有以下循環(huán)結(jié)構(gòu)DoUntil條件表達(dá)式循環(huán)體Loop則以下對(duì)的的描述是A)假如“條件表達(dá)式”的值是0，則一次循環(huán)體也不執(zhí)行B)假如“條件表達(dá)式”的值不為0，則至少執(zhí)行一次循環(huán)體C)不管“條件表達(dá)式”的值是否為“真”，至少要執(zhí)行一次循環(huán)體D)假如“條件表達(dá)式”的值恒為0，則無(wú)限次執(zhí)行循環(huán)體（29）在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()Dimi,NumRandomizeDoFori=1To1000Num=Int(Rnd*100)PrintNum;SelectCaseNumCase12ExitForCase58ExitDoCase65,68,92EndEndSelectNextiLoopEndSub上述事件過程執(zhí)行后，下列描述中對(duì)的的是：。A)Do循環(huán)執(zhí)行的次數(shù)為1000次B)在For循環(huán)中產(chǎn)生的隨機(jī)數(shù)小于或等于100C)當(dāng)所產(chǎn)生的隨機(jī)數(shù)為12時(shí)結(jié)束所有循環(huán)D)當(dāng)所產(chǎn)生的隨機(jī)數(shù)為65、68或92時(shí)窗體關(guān)閉，程序結(jié)束（30）在窗體上畫一個(gè)名為Command1的命令按鈕，然后編寫如下代碼：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub運(yùn)營(yíng)上面的程序，其輸出結(jié)果是A）1234 B）12 C）34 D）4321（31）設(shè)有如下通用過程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len(xStr)I=1DoWhileI<=strL/2tStr=tStr&Mid(xStr,I,1)&Mid(xStr,strL-I+1,1)I=I+1LoopFun=tStrEndFunction在窗體上畫一個(gè)名稱為Command1的命令按鈕。然后編寫如下的事件過程：PrivateSubCommand1_Click()DimS1AsStringS1="abcdef"PrintUCase(Fun(S1))EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，輸出結(jié)果是A）ABCDEF B）abcdef C）AFBECD D）DEFABC（32）某人為計(jì)算n?。?<n<=12）編寫了下面的函數(shù)過程：PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n-1To2Step-1p=p*kNextkfun=pEndFunction在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過程產(chǎn)生的結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改方案中有3種是對(duì)的的，錯(cuò)誤的方案是A）把p=1改為p=nB）把Fork=n-1To2Step-1改為Fork=1Ton-1C）把Fork=n-1To2Step-1改為Fork=1TonD）把Fork=n-1To2Step-1改為Fork=2Ton（33）假定有以下函數(shù)過程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=LCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1=InputBox("請(qǐng)輸入一個(gè)字符串")Str2=Fun(Str1)PrintStr2EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，假如在輸入對(duì)話框中輸入字符串“abcdefg”，則單擊“擬定”按鈕后在窗體上的輸出結(jié)果為A）ABCDEFG B）abcdefg C）CFEDCBA D）gfedcba（34）為計(jì)算an的值，某人編寫了函數(shù)power如下：PrivateFunctionpower(aAsInteger,nAsInteger)AsLongDimpAsLongp=aFork=1Tonp=p*aNextkpower=pEndFunction在調(diào)試時(shí)發(fā)現(xiàn)是錯(cuò)誤的，例如Printpower(5,4)的輸出應(yīng)當(dāng)是625，但實(shí)際輸出是3125。程序需要修改。下面的修改方案中有3個(gè)是對(duì)的的，錯(cuò)誤的一個(gè)是A）把Fork=1Ton改為Fork=2TonB）把p=p*a改為p=p^nC）把Fork=1Ton改為Fork=1Ton-1D）把p=a改為p=1（35）某人編寫了下面的程序PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("請(qǐng)輸入整數(shù)")b=InputBox("請(qǐng)輸入整數(shù)")proaprobCallpro(a+b)EndSubPrivateSubpro(nAsInteger)While(n>0)PrintnMod10;n=n\10WendPrintEndSub此程序的功能是：輸入2個(gè)正整數(shù)，反序輸出這2個(gè)數(shù)的每一個(gè)數(shù)字，再反序輸出這2個(gè)數(shù)之后的每一位數(shù)字。例如：若輸入123和234，則應(yīng)當(dāng)輸出321432753但調(diào)試時(shí)發(fā)現(xiàn)只輸出了前2行（即2個(gè)數(shù)的反序），而未輸出第3行（即2個(gè)數(shù)之和的反序），程序需要修改。下面的修改方案中對(duì)的的是A）把過程pro的形式參數(shù)nAsInteger改為ByValnAsIntegerB）把Callpro(a+b)改為proa+bC）把n=n\10改為n=n/10D）在prob語(yǔ)句之后增長(zhǎng)語(yǔ)句c%=a+b，再把Callpro(a+b)改為proc二、填空題（每空2分，共30分）請(qǐng)將每空的對(duì)的答案寫在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分。（1）對(duì)下列二叉樹進(jìn)行中序遍歷的結(jié)果是：【1】。AACBEFZXDY（2）按照軟件測(cè)試的一般環(huán)節(jié)，集成測(cè)試應(yīng)在【2】測(cè)試之后進(jìn)行。（3）軟件工程三要素涉及方法、工具和過程，其中，【3】支持軟件開發(fā)的各個(gè)環(huán)節(jié)的控制和管理。（4）數(shù)據(jù)庫(kù)設(shè)計(jì)涉及感念設(shè)計(jì)、【4】和物理設(shè)計(jì)。（5）在二維表中，元組的【5】不能再提成更小的數(shù)據(jù)項(xiàng)。（6）在窗體畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個(gè)時(shí)間過程：PrivateSubCommand1_Click()S$=InputBox("請(qǐng)輸入一個(gè)字符串")Text1.Text=S$EndSubPrivateSubText1_Change()Label1.Caption=UCase(Mid(Text1.Text,7))EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，將顯示一個(gè)輸入對(duì)話框，假如在該對(duì)話框中輸入字符串“VisualBasic”，則在標(biāo)簽中顯示的內(nèi)容是【6】。（7）在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過程：PrivateSubCommand1_Click()a$="NationalComputerRankExamination"n=Len(a$)s=0Fori=1Tonb$=Mid(a$,i,1)If(b$="n")Thens=s+1EndIfNextiPrintsEndSub程序運(yùn)營(yíng)后，單擊命令按鈕，輸出結(jié)果是【7】。（8）為了運(yùn)營(yíng)時(shí)把d:\pic文獻(xiàn)夾下的圖形文獻(xiàn)a.jpg裝入圖片框Picture1，所使用的語(yǔ)句為【8】。（9）設(shè)有如下程序：PrivateSubForm_Click() Cls a$="ABCDFG" Fori=1To6 PrintTab(12-i);【9】 NextiEndSub程序運(yùn)營(yíng)后，單擊窗體后，結(jié)果如圖所示，請(qǐng)?zhí)羁?。?0）在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下代碼：OptionBase1PrivateSubCommand1_Click() DimArr Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72) pos=0 neg=0 Fork=1To10 IfArr(k)>0Then 【10】 Else 【11】 EndIf NextKEndSub以上程序的功能是，計(jì)算并輸出數(shù)組Arr中10個(gè)數(shù)的正數(shù)之和pos和負(fù)數(shù)之和neg，請(qǐng)?zhí)羁?。?1）在窗體上畫一個(gè)名為Command1的命令按鈕，然后編寫如下程序：PrivateSubCommand1_Click() DimiAsInteger Sum=0 n=InputBox("Enteranumber") n=Val(n) Fori=1Ton Sum=【12】 Nexti PrintSumEndSubFunctionfun(tAsInteger)AsLong p=1 Fori=1Tot p=p*i Nexti 【13】EndFunction以上程序的功能是：計(jì)算1!+2!+3!+...+n!，其中n從鍵盤輸入，請(qǐng)?zhí)羁?。?2）在窗體上畫一個(gè)文本框，名稱為Text1，然后編寫如下程序：PrivateSubForm_Load() Open"d:\temp\dat.txt"ForOutputAs#1 Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii=13Then IfUCase(Text1.text)=【14】Then Close#1 End Else Write#1,【15】 Text1.Text="" EndIf EndIfEndSub以上程序的功能是：在D盤temp文獻(xiàn)夾下建立一個(gè)名為dat.txt的文獻(xiàn)，在文本框中輸入字符，每次按回車鍵都把當(dāng)前文本框中的內(nèi)容寫入文獻(xiàn)dat.txt，并清除文本框中的內(nèi)容；假如輸入“END”，則不寫入文獻(xiàn)，直接結(jié)束程序。請(qǐng)?zhí)羁铡?/p>

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷VisualBasic語(yǔ)言程序設(shè)計(jì)（考試時(shí)間90分，滿分100分）2023年3月一、選擇題（每小題2分，共70分）下列各題A）、B）、C）、D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是對(duì)的的。請(qǐng)將對(duì)的選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。（1）下列敘述中對(duì)的的是A）棧是先進(jìn)先出的線性表B）隊(duì)列是"先進(jìn)后出"的線性表C）循環(huán)隊(duì)列是非線性結(jié)構(gòu)D）有序線性表即可以采用順序存儲(chǔ)結(jié)構(gòu),也可以采用鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)

（2）支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是A）棧B）樹C）隊(duì)列D）二叉樹

（3）某二叉樹有5個(gè)讀為2的結(jié)點(diǎn),則該二叉樹中的葉子結(jié)點(diǎn)數(shù)是A）10B）8C）6D）4

（4）下列排序方法中,最壞情況下比較次數(shù)最少的是A）冒泡排序B）簡(jiǎn)樸選擇排序C）直接插入排序D）堆排序（5）軟件按功能可以分為:應(yīng)用軟件、系統(tǒng)軟件和支撐軟件（或工具軟件）。下列屬于應(yīng)用軟件的是A）編譯程序B）操作系統(tǒng)C）教務(wù)管理系統(tǒng)D）匯編程序

（6）下面敘述中錯(cuò)誤的是A）軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤B）對(duì)被調(diào)試程序進(jìn)行"錯(cuò)誤定位"是程序調(diào)試的必要環(huán)節(jié)C）程序調(diào)試也成為DebugD）軟件測(cè)試應(yīng)嚴(yán)格執(zhí)行測(cè)試計(jì)劃，排除測(cè)試的隨意性（7）耦合性和內(nèi)聚性是對(duì)模塊獨(dú)立性度量的兩個(gè)標(biāo)準(zhǔn)。下列敘述中對(duì)的的是A）提高耦合性減少內(nèi)聚性有助于提高模塊的獨(dú)立性B）減少耦合性提高內(nèi)聚性有助于提高模塊的獨(dú)立性C）耦合性是指一個(gè)模塊內(nèi)部各個(gè)元素間彼此結(jié)合的緊密限度D）內(nèi)聚性是指模塊間互相連接的緊密限度（8）數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中的核心問題是A）數(shù)據(jù)庫(kù)設(shè)計(jì)B）數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)C）數(shù)據(jù)庫(kù)維護(hù)D）數(shù)據(jù)庫(kù)管理員培訓(xùn)（9）有兩個(gè)關(guān)系R,S如下：由關(guān)系R通過運(yùn)算得到關(guān)系S,則所使用的運(yùn)算為A）選擇B）投影C）插入D）連接

（10）將E-R圖轉(zhuǎn)換為關(guān)系模式時(shí),實(shí)體和聯(lián)系都可以表達(dá)為A）屬性B）鍵C）關(guān)系D）域（11）執(zhí)行語(yǔ)句DimX,YAsInteger后,A）X和Y均被定義為整型變量B）X和Y均被定義為變體類型變量C）X被定義為整型變量,Y被定義為變體變量D）X被定義為變體類型變量,Y被定義為整型變量（12）以下關(guān)系表達(dá)式中，其值為True的是A）"XYZ">"XYz"B）"VisualBasic"<>"visualbasic"C）"the"="there"D）"Integer"<"Int"（13）執(zhí)行以下程序段a$="VisualBasicProgramming"b$="C++"C$=UCase（Left$（a$,7））&b$&Right$（a$,12）后,變量C$的值為A）VisualBASICProgrammingB）VISUALC++ProgrammingC）VisualC++ProgrammingD）VISUALBASICProgramming（14）下列敘述中對(duì)的的是A）MsgBox語(yǔ)句的返回值是一個(gè)整數(shù)B）執(zhí)行MsgBox語(yǔ)句并出現(xiàn)信息框后,不用關(guān)閉信息框即可執(zhí)行其他操作C）MsgBox語(yǔ)句的第一個(gè)參數(shù)不能省略D）假如省略MsgBox語(yǔ)句的第三個(gè)參數(shù)（Title）,則信息框的標(biāo)題為空（15）在窗體上畫一個(gè)文本框（名稱為Text1）和一個(gè)標(biāo)簽（名稱為L(zhǎng)abel1）,程序運(yùn)營(yíng)后,在文本框中每輸入一個(gè)字符，都會(huì)立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù),以下可以實(shí)現(xiàn)上述操作的事件過程是A）PrivateSubText1_Change（）Label1.Caption=str（Len（Text1.Text））EndSubB）PrivateSubText1_Click（）Label1.Caption=str（Len（Text1.Text））EndSubC）PrivateSubText1_Change（）Label1.Caption=Text1.TextEndSubD）PrivateSubLabel1_Change（）Label1.Caption=str（Len（Text1.Text））EndSub（16）在窗體上畫兩個(gè)單選按鈕（名稱分別為Option1,Option2,標(biāo)題分別為"宋體"和"黑體"）,1個(gè)復(fù)選框（名稱為Check1,標(biāo)題為粗體）和1個(gè)文本框（名稱為Text1,Text屬性為"改變文字字體"），窗體外觀如圖所示。程序運(yùn)營(yíng)后，規(guī)定“宋體”單選按鈕和“粗體”復(fù)選框被選中，則以下可以實(shí)現(xiàn)上述操作的語(yǔ)句序列是A）Option1.Value=FalseCheck1.Value=TrueB）Option1.Value=TrueCheck1.Value=0C）Option2.Value=FalseCheck1.Value=2D）Option1.Value=TrueCheck1.Value=1（17）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click（）c=1234c1=Trim（Str（c））Fori=1To4Print____NextEndSub程序運(yùn)營(yíng)后,單擊命令按鈕，規(guī)定在窗體上顯示如下內(nèi)容：1121231234則在橫線處應(yīng)填入的內(nèi)容為A）Right（c1,i）B）Left（c1,i）C）Mid（c1,i,1）D）Mid（c1,i,1）（18）假定有一下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti則語(yǔ)句Printi*j的執(zhí)行次數(shù)是A）15B）16C）17D）18（19）在窗體上畫兩個(gè)文本框（名稱分別為Text1和Text2）和一個(gè)命令按鈕（名稱為Command1），然后編寫如下事件過程：PrivateSubCommand1_Click（）x=0DoWhilex<50x=（x+2）*（x+3）n=n+1LoopText1.Text=Str（n）Text2.Text=Str（x）EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為A）1和0B）2和72C）3和50D）4和168（20）閱讀程序：PrivateSubCommand1_Click（）a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序運(yùn)營(yíng)后，單擊窗體，輸出結(jié)果是A）105B）1C）120D）15

（21）以下說(shuō)法中對(duì)的的是A）當(dāng)焦點(diǎn)在某個(gè)控件上時(shí)，按下一個(gè)字母鍵，就會(huì)執(zhí)行該控件的KeyPress事件過程B）由于窗體不接受焦點(diǎn)，所以窗體不存在自己的KeyPress事件過程C）若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中的KeyCode參數(shù)的值也相同D）在KeyPress事件過程中，KeyAscii參數(shù)可以省略

（22）語(yǔ)句Dima（-3To4,3To6）AsInteger定義的數(shù)組的元素個(gè)數(shù)是A）18B）28C）21D）32

（23）在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下代碼：OptionBase1PrivateSubCommand1_Click（）Dimaa=Array（1,2,3,4）j=1Fori=4To1Step-1s=s+a（i）*jj=j*10NextiPrintsEndSub程序運(yùn)營(yíng)后，單擊命令按鈕，其輸出結(jié)果是A）4321B）1234C）34D）12

（24）假定通過復(fù)制，粘貼操作建立了一個(gè)命令按鈕數(shù)組Command1，以下說(shuō)法中錯(cuò)誤的是A）數(shù)組中每個(gè)命令按鈕的名稱（Name屬性）均為Command1B）若未做修改,數(shù)組中每個(gè)命令按鈕的大小都同樣C）數(shù)組中各個(gè)命令按鈕使用同一個(gè)Click事件過程D）數(shù)組中每個(gè)命令按鈕的Index屬性值都相同

（25）在窗體上畫一個(gè)命令按鈕，名稱為Command1,然后編寫如下代碼：OptionBase0PrivateSubCommand1_Click（）DimA1（4）AsInteger,A2（4）AsIntegerFork=0To2A1（k+1）=InputBox（"請(qǐng)輸入一個(gè)整數(shù)"）A2（3-k）=A1（k+1）NextkPrintA2（k）EndSub程序運(yùn)營(yíng)后,單擊命令按鈕，在輸入對(duì)話框中依次輸入2、4、6則輸出結(jié)果為A）0B）1C）2D）3

（26）以下關(guān)于函數(shù)過程的敘述中，對(duì)的的是A）函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B）在函數(shù)過程中，過程的返回值可以有多個(gè)C）當(dāng)數(shù)組作為函數(shù)過程的參數(shù)是，既能以傳值方式傳遞，也能以傳址方式傳遞D）假如不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型

（27）在窗體上畫兩個(gè)標(biāo)簽按鈕和一個(gè)命令按鈕，其名稱分別為L(zhǎng)abel1、Label2和Command1，然后編寫如下程序：PrivateSubfunc（LAsLabel）L.Caption="1234"EndSubPrivateSubForm_Load（）Label1.Caption="ABCDE"Label2.Caption=10EndSubPrivateSubCommand1_Click（）a=Val（Label2.Caption）Callfunc（Label1）Label2.Caption=aEndSub程序運(yùn)營(yíng)后，單擊命令按鈕，則在兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為A）ABCD和10B）1234和100C）ABCD和100D）1234和10

（28）在窗體上畫一個(gè)命令按鈕（名稱為Command1），并編寫如下代碼：Functionfun1（ByValaAsInteger,bAsInteger）AsIntegerDimtAsIntegert=a-bb=t+afun1=t+bEndFunctionPrivateSubCommand1_Click（）DimxAsIntegerx=10Printfun1（fun1（x,（fun1（x,x-1）））,x-1）EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，輸出結(jié)果是A）10B）0C）11D）21

（29）以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是A）過程的參數(shù)可以是控件名稱B）調(diào)用過程時(shí)使用的實(shí)參的個(gè)數(shù)應(yīng)與過程形參的個(gè)數(shù)相同C）只有函數(shù)過程可以將過程中解決的信息返回到調(diào)用程序中D）窗體可以作為過程的參數(shù)

（30）設(shè)有如下通用過程PublicFunctionFun（xStrAsString）AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len（xStr）i=strL/2DoWhilei<=strLtStr=tStr&Mid（xStr,i+1,1）i=i+1LoopFun=tStr&tStrEndFunction在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過程PrivateSubCommand1_Click（）DimS1AsStringS1="ABCDEF"Text1.Text=LCase（Fun（S1））EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，文本框中顯示的是A）ABCDEFB）abcdefC）defdefD）defabc

（31）在窗體上畫一個(gè)命令按鈕和一個(gè)文本框（名稱分別為Command1和Text1），并把窗體的KeyPreview屬性設(shè)立為True,然后編寫如下代碼：DimSaveAllAsStringPrivateSubForm_Load（）ShowText1.Text=""Text1.SetFocusEndSubPrivateSubCommand1_Click（）Text1.Text=LCase（SaveAll）+SaveAllEndSubPrivateSubForm_KeyPress（KeyAsciiAsInteger）SaveAll=SaveAll+Chr（KeyAscii）EndSub程序運(yùn)營(yíng)后，直接用鍵盤輸入：VB，再單擊命令按鈕則文本框中顯示的內(nèi)容為A）vbVBB）不顯示任何信息C）VBD）犯錯(cuò)

（32）設(shè)有以下程序PrivateSubForm_Click（）x=50Fori=1To4y=InputBox（"請(qǐng)輸入一個(gè)整數(shù)"）y=Val（y）IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序運(yùn)營(yíng)后，單擊窗體，在輸入對(duì)話框中依次輸入15,24,35,46,輸出結(jié)果為A）100B）50C）120D）70

（33）以下關(guān)于菜單的敘述中，錯(cuò)誤的是A）當(dāng)窗體為活動(dòng)窗體時(shí)，用Ctrl+E鍵可以打開菜單編輯器B）把菜單項(xiàng)的Enabled屬性設(shè)立為False,則可刪除該菜單項(xiàng)C）彈出式菜單在菜單編輯器中設(shè)計(jì)D）程序運(yùn)營(yíng)時(shí)，運(yùn)用控件數(shù)組可以實(shí)現(xiàn)菜單項(xiàng)的增長(zhǎng)或減少

（34）以下敘述中錯(cuò)誤的是A）在程序運(yùn)營(yíng)時(shí),通用對(duì)話框控件是不可見的B）調(diào)用同一個(gè)通用對(duì)話框控件的不同方法（如ShowOpen或ShowSave）可以打開不同的對(duì)話框窗口C）調(diào)用通用對(duì)話框控件的ShowOpen方法,可以直接打開在該通用對(duì)話框中指定的文獻(xiàn)D）調(diào)用通用對(duì)話框控件的ShowColor方法,可以打開顏色對(duì)話框窗口（35）設(shè)在工程文獻(xiàn)中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗體上畫一個(gè)名為Command1的命令按鈕，規(guī)定當(dāng)執(zhí)行事件過程Command1_Click時(shí)，在順序文獻(xiàn)Person.txt中寫入一條Books類型的記錄，下列可以完畢該操作的事件過程是A）PrivateSubCommand1_Click（）DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox（"輸入姓名"）B.Name=InputBox（"輸入電話號(hào)碼"）Write#1,B.Name,B.TelNumClose#1EndSubB）PrivateSubCommand1_Click（）DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox（"輸入姓名"）B.Name=InputBox（"輸入電話號(hào)碼"）Print#1,B.Name,B.TelNumClose#1EndSubC）PrivateSubCommand1_Click（）DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox（"輸入姓名"）B.Name=InputBox（"輸入電話號(hào)碼"）Write#1,BClose#1EndSubD）PrivateSubCommand1_Click（）DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox（"輸入姓名"）B.Name=InputBox（"輸入電話號(hào)碼"）Print#1,Name,TelNumClose#1EndSub二、填空題（每空2分，共30分）請(qǐng)將每空的對(duì)的答案寫在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分。（1）假設(shè)用一個(gè)長(zhǎng)度為50的數(shù)組（數(shù)組元素的下標(biāo)從0到49）作為棧的存儲(chǔ)空間,棧底指針bottom指向棧底元素,棧頂指針top指向棧頂元素,假如bottom=49,top=30（數(shù)租下標(biāo)）,則棧中具有【1】個(gè)元素（2）軟件測(cè)試可分為白盒測(cè)試和黑盒測(cè)試?；就緩綔y(cè)試屬于【2】測(cè)試（3）符合結(jié)構(gòu)化原則的三種基本控制結(jié)構(gòu)是:選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)和【3】（4）數(shù)據(jù)庫(kù)系統(tǒng)的核心是【4】（5）在E-R圖中，圖形涉及矩形框、菱形框、橢圓框。其中表達(dá)實(shí)體聯(lián)系的是【5】框（6）窗體如圖所示,其中汽車是名稱為Image1的圖像框，命令按鈕的名稱Command1，計(jì)時(shí)器的名稱為Timer1,直線的名稱為L(zhǎng)ine1。程序運(yùn)營(yíng)時(shí)，單擊命令按鈕，則汽車每0.1秒向左移動(dòng)100，車頭到達(dá)左邊的直線時(shí)停止移動(dòng)。請(qǐng)?zhí)羁胀戤呄旅娴膶傩栽O(shè)立和程序，以便實(shí)現(xiàn)上述功能。1）Timer1的Interval屬性的值應(yīng)事先設(shè)立為【6】2）PrivateSubCommand1_Click（）Timer1.Enabled=TrueEndSub3）PrivateSubTimer1_Timer（）IfImage1.Left>【7】ThenImage1.Left=【8】-100EndIfEndSub（7）設(shè)窗體上有一個(gè)名稱為Combo1的組合框，并有以下程序：PrivateSubCombo1_KeyPress（KeyAsciiAsInteger）If【9】=13ThenFork=0ToCombo1.ListCount-1IfCombo1.Text=Combo1.List（k）ThenCombo1.Text=""ExitForEndIfNextkIfCombo1.Text<>""ThenCombo1.AddItem【10】EndIfEndIfEndSub程序的功能是：在組合框的編輯區(qū)中輸入文本后按回車鍵，則檢查列表中有無(wú)與此文本相同的項(xiàng)目，若有，則把編輯區(qū)中的文本刪除，否則把編輯區(qū)中的文本添加到列表的尾部。請(qǐng)?zhí)羁铡＃?）在當(dāng)前目錄下有一個(gè)名為"myfile.txt"的文本文獻(xiàn),其中有若干行文本。下面程序的功能是讀入此文獻(xiàn)中的所有文本行，按行計(jì)算每行字符的ASCII碼之和，并顯示在窗體上。請(qǐng)?zhí)羁誔rivateSubCommand1_Click（）Dimch$,asciiAsIntegerOpen"myfile.txt"For【11】As#1WhileNotEOF（1）LineInput#1,chascii=toascii（【12】）PrintasciiWendClose#1EndSubPrivateFunctiontoascii（mystr$）AsIntegern=0Fork=1To【13】n=n+Asc（Mid（mystr,k,1））Nextktoascii=nEndFunction（9）本程序?qū)崿F(xiàn)文本加密。先給定序列:a1,a2,...,an,它們的取值范圍是1~n,并且互不相同。加密算法是:把原文本中第k個(gè)字符放到加密后文本的第ak個(gè)位置處。若原文本長(zhǎng)度大于n，則只對(duì)前面n個(gè)字符加密,后面的字符不變；若原文本長(zhǎng)度小于n，則在后面補(bǔ)字符"*"使文本長(zhǎng)度為n后再加密。例如：若給定序列a1,a2,...a7分別為2,5,3,7,6,1,4當(dāng)文本為“PROGRAM"時(shí)，加密后的文本為"APOMRRG"當(dāng)文本為"THANK"時(shí)，加密后的文本為"*TA*HKN"下面的過程code實(shí)現(xiàn)這一算法。其中參數(shù)數(shù)組a（）中存放給定序列（個(gè)數(shù)與數(shù)組a的元素個(gè)數(shù)相等）a1,a2,a3...的值，要加密的文本放在參數(shù)變量mystr中，過程執(zhí)行完畢，加密后的文本仍然放在變量mystr中。請(qǐng)?zhí)羁?。OptionBase1PrivateSubcode（a（）AsInteger,mystrAsString）DimchAsString,c1AsStringn=UBound（a）-Len（mystr）Ifn>0Thenmystr=mystr&String$（n,"*"）EndIfch=mystrFork=【14】ToUBound（a）c1=Mid（my