2023年全國計算機等級考試二級筆試試卷VisualBasic語言程序設(shè)計

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

R

S

T

BCDf3h2a0k1n2x1BCDa0k1B1n1

BCDa0k1

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

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

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

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

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

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

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

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

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

（10）將E-R圖轉(zhuǎn)換為關(guān)系模式時,實體和聯(lián)系都可以表達(dá)為A）屬性B）鍵C）關(guān)系D）域（11）執(zhí)行語句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）下列敘述中對的的是A）MsgBox語句的返回值是一個整數(shù)B）執(zhí)行MsgBox語句并出現(xiàn)信息框后,不用關(guān)閉信息框即可執(zhí)行其他操作C）MsgBox語句的第一個參數(shù)不能省略D）假如省略MsgBox語句的第三個參數(shù)（Title）,則信息框的標(biāo)題為空（15）在窗體上畫一個文本框（名稱為Text1）和一個標(biāo)簽（名稱為Label1）,程序運營后,在文本框中每輸入一個字符，都會立即在標(biāo)簽中顯示文本框中字符的個數(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）在窗體上畫兩個單選按鈕（名稱分別為Option1,Option2,標(biāo)題分別為"宋體"和"黑體"）,1個復(fù)選框（名稱為Check1,標(biāo)題為粗體）和1個文本框（名稱為Text1,Text屬性為"改變文字字體"），窗體外觀如圖所示。程序運營后，規(guī)定“宋體”單選按鈕和“粗體”復(fù)選框被選中，則以下可以實現(xiàn)上述操作的語句序列是A）Option1.Value=FalseCheck1.Value=TrueB）Option1.Value=TrueCheck1.Value=0C）Option2.Value=FalseCheck1.Value=2D）Option1.Value=TrueCheck1.Value=1（17）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click（）c=1234c1=Trim（Str（c））Fori=1To4Print____NextEndSub程序運營后,單擊命令按鈕，規(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則語句Printi*j的執(zhí)行次數(shù)是A）15B）16C）17D）18（19）在窗體上畫兩個文本框（名稱分別為Text1和Text2）和一個命令按鈕（名稱為Command1），然后編寫如下事件過程：PrivateSubCommand1_Click（）x=0DoWhilex<50x=（x+2）*（x+3）n=n+1LoopText1.Text=Str（n）Text2.Text=Str（x）EndSub程序運營后，單擊命令按鈕，在兩個文本框中顯示的值分別為A）1和0B）2和72C）3和50D）4和168（20）閱讀程序：PrivateSubCommand1_Click（）a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序運營后，單擊窗體，輸出結(jié)果是A）105B）1C）120D）15

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

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

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

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

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

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

（27）在窗體上畫兩個標(biāo)簽按鈕和一個命令按鈕，其名稱分別為Label1、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程序運營后，單擊命令按鈕，則在兩個標(biāo)簽中顯示的內(nèi)容分別為A）ABCD和10B）1234和100C）ABCD和100D）1234和10

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

（29）以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是A）過程的參數(shù)可以是控件名稱B）調(diào)用過程時使用的實參的個數(shù)應(yīng)與過程形參的個數(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在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕。然后編寫如下事件過程PrivateSubCommand1_Click（）DimS1AsStringS1="ABCDEF"Text1.Text=LCase（Fun（S1））EndSub程序運營后，單擊命令按鈕，文本框中顯示的是A）ABCDEFB）abcdefC）defdefD）defabc

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

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

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

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