計算機(jī)vb歷年筆試真題講解（精品）

歷年筆試真題單元順序D碼的10TRUEa=a+1nnuma(j)=tempi+1*.txtForInputNotEof(1)2021.9〔1〕以下表達(dá)中正確的選項是A〕線性表的鏈?zhǔn)酱鎯Y(jié)構(gòu)與順序存儲結(jié)構(gòu)所需要的存儲空間是相同的B〕線性表的鏈?zhǔn)酱鎯Y(jié)構(gòu)所需要的存儲空間一般要多于順序存儲結(jié)構(gòu)C〕線性表的鏈?zhǔn)酱鎯Y(jié)構(gòu)所需要的存儲空間一般要少于順序存儲結(jié)構(gòu)D〕上述三種說法都不對〔2〕以下表達(dá)中正確的選項是A〕在棧中，棧中元素隨棧底指針與棧頂指針的變化而動態(tài)變化B〕在棧中，棧頂指針不變，棧中元素隨棧底指針的變化而動態(tài)變化C〕在棧中，棧底指針不變，棧中元素隨棧頂指針的變化而動態(tài)變化D〕上述三種說法都不對〔3〕軟件測試的目的是A〕評估軟件可靠性B〕發(fā)現(xiàn)并改正程序中的錯誤C〕改正程序中的錯誤D〕發(fā)現(xiàn)程序中的錯誤2021.9〔4〕下面描述中，不屬于軟件危機(jī)表現(xiàn)的是A〕軟件過程不標(biāo)準(zhǔn)B〕軟件開發(fā)生產(chǎn)率低C〕軟件質(zhì)量難以控制D〕軟件本錢不斷提高〔5〕軟件生命周期是指A〕軟件產(chǎn)品從提出、實現(xiàn)、使用維護(hù)到停止使用退役的過程B〕軟件從需求分析、設(shè)計、實現(xiàn)到測試完成的過程C〕軟件的開發(fā)過程D〕軟件的運(yùn)行維護(hù)過程〔6〕面向?qū)ο蠓椒ㄖ校^承是指A〕一組對象所具有的相似性質(zhì)B〕一個對象具有另一個對象的性質(zhì)C〕各對象之間的共同性質(zhì)D〕類之間共享屬性和操作的機(jī)制2021.9〔7〕層次型、網(wǎng)狀型和關(guān)系型數(shù)據(jù)庫劃分原那么是A〕記錄長度B〕文件的大小C〕聯(lián)系的復(fù)雜程度D〕數(shù)據(jù)之間的聯(lián)系方式〔8〕一個工作人員可以使用多臺計算機(jī)，而一臺計算機(jī)可被多個人使用，那么實體工作人員、與實體計算機(jī)之間的聯(lián)系是A〕一對一B〕一對多C〕多對多D〕多對一〔9〕數(shù)據(jù)庫設(shè)計中反映用戶對數(shù)據(jù)要求的模式是A〕內(nèi)模式B〕概念模式C〕外模式D〕設(shè)計模式2021.9〔10〕有三個關(guān)系R、S和T如下：那么由關(guān)系R和S得到關(guān)系T的操作是A〕自然連接B〕交C〕投影D〕并〔11〕在VisualBasic集成環(huán)境中，要添加一個窗體，可以單擊工具欄上的一個按鈕，這個按鈕是A〕B〕C〕D〕〔12〕在VisualBasic集成環(huán)境的設(shè)計模式下，用鼠標(biāo)雙擊窗體上的某個控件翻開的窗口是A〕工程資源管理器窗口B〕屬性窗口C〕工具箱窗口D〕代碼窗口2021.9〔13〕以下表達(dá)中錯誤的選項是A〕列表框與組合框都有List屬性B〕列表框有Selected屬性，而組合框沒有C〕列表框和組合框都有Style屬性D〕組合框有Text屬性、而列表框沒有〔14〕設(shè)窗體上有一個命令按鈕數(shù)組，能夠區(qū)分?jǐn)?shù)組中各個按鈕的屬性是A〕NameB〕IndexC〕CaptionD〕Left〔15〕滾動條可以響應(yīng)的事件是A〕LoadB〕ScrollC〕ClickD〕MouseDown〔16〕設(shè)a=5,b=6,c=7,d=8，執(zhí)行語句X=Ilf〔〔a＞b〕And〔c＞d〕,10,20〕后，x的值是A〕10B〕20C〕30D〕200〔17〕語句PrintSgn〔-6^2〕+Abs〔-6^2〕+Int〔-6^2〕的輸出結(jié)果是A〕-36B〕1C〕-1D〕-722021.9〔18〕在窗體上畫一個圖片框，在圖片框中畫一個命令按鈕，位置如下圖。那么命令按鈕的Top屬性值是A〕200B〕300C〕500D〕700〔19〕在窗體上畫一個名稱為Commandl的命令按鈕。單擊命令按鈕時執(zhí)行如下事件過程：PrivateSubCommand1_Click〔〕a$=〞softwareandhardware"b$=Right〔a$，8〕c$=Mid〔a$,1，8〕MsgBoxa$,，b$，c$,1EndSub那么在彈出的信息框標(biāo)題欄中顯示的標(biāo)題是A〕softwareandhardwareB〕hardwareC〕softwareD〕12021.9〔20〕在窗體上畫一個文本框〔名稱為Text1〕和一個標(biāo)簽〔名稱為Label1〕，程序運(yùn)行后，如果在文本框中輸入文本，那么標(biāo)簽中立即顯示相同的內(nèi)容。以下可以實現(xiàn)上述操作的事件過程是A〕PrivateSubText1_Change〔〕Label1.Caption=Text1.TextEndSubB〕PrivateSubLabel1_Change〔〕Label1.Caption=Text1.TextEndSubC〕PrivateSubText1_Click〔〕Label1.Caption=Text1.TextEndSubD〕PrivateSubLabel1_Click〔〕Label1.Caption=Text1.TextEndSub〔21〕以下說法中錯誤的選項是A〕如果把一個命令按鈕的Default屬性設(shè)置為True，那么按回車鍵與單擊該命令按鈕的作用相同B〕可以用多個命令按鈕組成命令按鈕數(shù)組C〕命令按鈕只能識別單擊〔Click〕事件D〕通過設(shè)置命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用〔22〕以下關(guān)于局部變量的表達(dá)中錯誤的選項是A〕在過程中用Dim語句或Static語句聲明的變量是局部變量B〕局部變量的作用域是它所在的過程C〕在過程中用Static語句聲明的變量是靜態(tài)局部變量D〕過程執(zhí)行完畢，該過程中用Dim或Static語句聲明的變量即被釋放〔23〕以下程序段的輸出結(jié)果是x=Iy=4DoUntily＞4x=x*yY=y＋I(xiàn)LoopPrintxA〕1B〕4C〕8D〕20〔24〕如果執(zhí)行一個語句后彈出如下圖的窗口，那么這個語句是A〕InputBox〔"輸入框〞，〞請輸入VB數(shù)據(jù)〞〕B〕x=InputBox〔"輸入框〞，〞請輸入VB數(shù)據(jù)〞〕C〕InputBox〔"請輸入VB數(shù)據(jù)〞，〞輸入框〞〕D〕x=InputBox〔"請輸入VB數(shù)據(jù)〞，〞輸入框〞〕〔25〕有如下事件過程：PrivateSubFormClick〔〕DimnAsIntegerx=0n=InputBox〔"請輸入一個整數(shù)〞〕Fori=1TonForj=1Toix=x＋I(xiàn)NextjNextiPrintxEndSub程序運(yùn)行后，單擊窗體，女口果在輸入對話框中輸入：，那么在窗體上顯示的內(nèi)容是A〕13B〕14C〕15D〕16〔26〕請閱讀程序：SubsubP〔b〔〕AsInteger〕Fori=1To4b〔i〕=2＊iNextiEndSubPrivateSubCommand1_Click〔〕Dima〔lTo4〕AsIntegerA〔l〕=5：a〔2〕=6：a〔3〕=7：a〔4〕=8subPa〔〕Fori=1To4Printa〔i〕NextiEndSub運(yùn)行上面的程序，單擊命令按鈕，那么輸出結(jié)果是A〕2B〕5C〕10D〕出錯461267148816〔27〕Fibonacci數(shù)列的規(guī)律是：前2個數(shù)為1，從第3個數(shù)開始，每個數(shù)是它前2個數(shù)之和，即：1，1，2,3,5,8,13,21，34,55,89,…。某人編寫了下面的函數(shù)，判斷大于1的整數(shù)x是否是Fibonacci數(shù)列中的某個數(shù)，假設(shè)是，那么返回True,否那么返回False。FunctionIsfab〔xAsInteger〕AsBooleanDimaAsInteger,bAsInteger,cAsInteger,flagAsBooleanflag=Falsea=1：b=IDoWhilex＜bc=a＋ba=bb=cIfx=bThenflag=TrueLoopIsfab=flagEndFunction測試時發(fā)現(xiàn)對于所有正整數(shù)x,函數(shù)都返回False,程序需要修改。下面的修改方案中正確的選項是A〕把a(bǔ)=b與b=c的位置互換B〕把c=a+b移到b=c之后C〕把DoWhilex＜b改為DoWhilex＞bD〕把ifx=bThenflag=True改為Ifx=aThenflag=True〔28〕在窗體上畫一個命令按鈕，其名稱為Commandl，然后編寫如下事件過程：PrivateSubCommand1_Click〔〕Dima$,b$，c$,k%a="ABCD〞b=〞123456〞c=""k=1DoWhilek＜=Len〔a〕Ork＜=Len〔b〕Ifk＜=Len〔a〕Thenc=c＆Mid〔a,k,1〕EndIfIfk＜=Len〔b〕Thenc=c＆Mid〔b,k,1〕EndIfk=k＋1LoopPrintcEndSub運(yùn)行程序，單擊命令按鈕，輸出結(jié)果是A〕123456ABCDB〕ABCD123456C〕D6C5B4A321D〕AlB2C3D456〔29〕請閱讀程序：PrivateSubForm_Click〔〕m=1Fori=4To1Step-1PrintStr〔m〕；m=m＋1Forj=1ToiPrint〞＊〞；NextjPrintNextiEndSub程序運(yùn)行后，單擊窗體，那么輸出結(jié)果是A〕1****B〕4****C〕****D〕*2***3********3**2*******4*1******〔30〕在窗體上畫一個命令按鈕〔其名稱為Commandl〕，然后編寫如下代碼：PrivateSubCommandl_Click〔〕Dimaa=Array〔1,2,3,4〕I=3：j=1DoWhilei＞=0s=s＋a〔i〕*ji=i-1j=j*10。LoopPrintsEndSub運(yùn)行上面的程序，單擊命令按鈕，那么輸出結(jié)果是A〕4321B〕123C〕234D〕1234〔31〕以下可以翻開隨機(jī)文件的語句是A〕Open"filel.dat"Forlnpu'tAs＃1B〕Open〞filel.dat"ForAppendAs＃1C〕Open〞file1.dat"ForOutputAs＃1D〕Open〞file1.dat"ForRandomAs＃1Len=20〔32〕有彈出式菜單的結(jié)構(gòu)如下表，程序運(yùn)行時，單擊窗體那么彈出如以下圖所示的菜單。下面的事件過程中能正確實現(xiàn)這一功能的是A〕PrivateSubForm_Click〔〕PopupMenucutEndSubB〕PrivateSubCommandlClick〔〕PopupMenueditEndSubC〕PrivateSubForm_Click〔〕PopupMenueditEndSubD〕PrivateSubForm_lick〔〕PopupMenucutPopupMenupasteEndSub〔33〕請閱讀程序：OptionBaseIPrivateSubForm_Click〔〕DimArr〔4,4〕AsIntegerFori=1To4Forj=ITo4Arr〔i,j〕=〔i-1〕*2＋jNextjNextiFori=3To4Forj=3To4PrintArr〔j,i〕;NextjPrintNextiEndSub程序運(yùn)行后，單擊窗體，那么輸出結(jié)果是A〕57B〕68C〕79D〕8106879810811〔34〕一下面函數(shù)的功能應(yīng)該是：刪除字符串str中所有與變量ch相同的字符，并返回刪除后的結(jié)果。例如：假設(shè)str="ABCDABCD",ch="B",那么函數(shù)的返回值為："ACDACD"Functiondelchar〔strAsString,chAsString〕AsStringDimkAsInteger,tempAsString,retAsStringret=""Fork=1ToLen〔str〕temp=Mid〔str,k,1〕Iftemp=chThenret=ret＆tempEndIfNextkdelchar=retEndFunction但實際上函數(shù)有錯誤，需要修改。下面的修改方案中正確的選項是A〕把ret=ret＆temp改為ret=tempB〕把Iftemp=chThen改為Iftemp＜＞chThenC〕把delchar=ret改為delchar=tempD〕把ret=""改為temp=""〔35〕在窗體上畫一個命令按鈕和兩個文本框，其名稱分別為Command1、TextI和Text2,在屬性窗口中把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下程序：DimSIAsString,S2AsStringPrivateSubFormLoad〔〕Text1.Text=""Text2.Text=""Text1．Enabled=FalseText2．Enabled=FalseEndSubPrivateSubForm_KeyDown〔KeyCodeAsInteger,ShiftAsInteger〕S2=S2＆Chr〔KeyCode〕EndSubPrivateSubForin_KeyPress〔KeyAsciiAsInteger〕S1=S1＆Chr〔KeyAscii〕EndSubPrivateSubCommandlClickTextl.Text=SlText2.Text=S2S1=""S2=""EndSub程序運(yùn)行后，先后按“a〞、“b〞、“c〞鍵，然后單擊命令按鈕，在文本框Textl和Text2中顯示的內(nèi)容分別為A〕abc和ABCB〕空白C〕ABC和abcD〕出錯二、填空題〔每空2分，共30分〕請將每空的正確答案寫在答題卡【1】至【15】序號的橫線上，答在試卷上不得分?！?〕一個棧的初始狀態(tài)為空。首先將元素5，4，3，2，1依次入棧，然后退棧一次，再將元素A,B,C,D依次入棧，之后將所有元素全部退棧，那么所有元素退?！舶ㄖ虚g退棧的元素〕的順序為1DCBA2345【1】__。〔2〕在長度為n的線性表中，尋找最大項至少需要比較Log2n【2】次。〔3〕一棵二叉樹有10個度為1的結(jié)點，7個度為2的結(jié)點，那么該二叉樹共有__【3】25個結(jié)點?！?〕僅由順序、選擇〔分支〕和重復(fù)〔循環(huán)〕結(jié)構(gòu)構(gòu)成的程序是結(jié)構(gòu)化程序設(shè)計【4】程序?！?〕數(shù)據(jù)庫設(shè)計的四個階段是：需求分析，概念設(shè)計，邏輯設(shè)計和物理設(shè)計【5】_?！?〕窗體上有一個名稱為Combo1的組合框，其初始內(nèi)容為空，有一個名稱為Command1、標(biāo)題為“添加工程〞的命令按鈕。程序運(yùn)行后，如果單擊命令按鈕，會將給定數(shù)組中的工程添加到組合框中，如下圖。請?zhí)羁?。OptionBase1PrivateSubCommand1_Click〔DimcityAsVariantcity=city(i)【6】〔"北京"，"天津"，"上海"，"武漢"，"重慶"，"西寧"〕Fori=1【7】_ToUBound〔citv〕Combo1.Addltem_【8】_NextEndSub〔7〕窗體上有一個名稱為Text1的文本框和一個名稱為Commandl、標(biāo)題為“計算〞的命令按鈕，如下圖。函數(shù)fun及命令按鈕的單擊事件過程如下，請?zhí)羁?。PrivateSubCommand1_Click〔〕DimxAsIntegerx=Val〔InputBOX〔"輸入數(shù)據(jù)"〕〕Text1=Str〔fun〔x〕+fun〔x〕+fun〔x〕〕EndSubPrivateFunctionfun〔ByRefnAsInteger〕IfnMod3=0Thenn=n+nElsen=n*nEndIffun【9】=nEndFunction當(dāng)單擊命令按鈕，在輸入對話框中輸入2時，文本框中顯示的是276【10】_〔8〕窗體上有一個名稱為List1的列表框，一個名稱為Picture1的圖片框。Form_Load事件過程的作用是，把Datal.txt文件中的物品名稱添加到列表框中。運(yùn)行程序，當(dāng)雙擊列表框中的物品名稱時，可以把該物品對應(yīng)的圖片顯示在圖片框中如下圖。以下是類型定義及程序，請?zhí)羁铡rivateTypePicgNameAsString*10‘物品名稱picFileAsString*20‘物品圖片的圖片文件名EndTypeDimp〔4〕AsPic，pRecAsPicPrivateSubFormLoad〔〕Open〞Datal.txt"ForRandomAs＃1Len【11】_=Len〔pRec〕Fori=0To4Get＃1，i+l，P〔i〕LIStI.AddItemp〔i〕.gNaineNextiClose＃1EndSubPrivateSubListI-DbICIickOFori=OTo4IfRTrim〔List一List〔i〕〕=RTrim〔p〔i〕.gName【12】〕ThenPicturel.，Picture=LoadPicture〔p〔i〕.picFile【13】〕ExitForEndIfNextEndSub〔9〕窗體上有一個名稱為CD1的通用對話框。通過菜單編輯器建立如圖1所示的菜單。程序運(yùn)行時，如果單擊“翻開〞菜單項，那么執(zhí)行翻開文件的操作，中選定了文件〔例如：G:\VB\2021-9\in.txt〕并翻開后，該文件的文件名會被添加到菜單中，如圖2所示。各菜單項的名稱和標(biāo)題等定義如下表。以下是單擊“翻開〞菜單項的事件過程，請?zhí)羁铡immnuCounterAsIntegerPrivateSubtnnuOpen_Click〔〕CD1．Show0penIfCD1．FileName＜＞""ThenOpenCD1.FileName【14】ForInputAs＃1mnuCounter=mnuCounter+1LoadFName〔mnuCounter〕FName〔mnuCounter〕.Caption=CD1.FileNameFName〔mnuCounter〕.Visible【15】_=TrueClose＃1EndIfEndSub 2021.3一、選擇題(每題2分，共70分)以下各題A)、B)、C)、D)四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應(yīng)位置上，答在試卷上不得分。(1)以下表達(dá)中正確的選項是A)對長度為n的有序鏈表進(jìn)行查找，最壞情況下需要的比較次數(shù)為nB)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)為(n/2)C)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)為(log2n)D)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)為(nlog2n)(2)算法的時間復(fù)雜度是指A)算法的執(zhí)行時間B)算法所處理的數(shù)據(jù)量C)算法程序中的語句或指令條數(shù)D)算法在執(zhí)行過程中所需要的根本運(yùn)算次數(shù)2021.3(3)軟件按功能可以分為：應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下面屬于系統(tǒng)軟件的是A)編輯軟件

B)操作系統(tǒng)C)教務(wù)管理系統(tǒng)D)瀏覽器(4)軟件(程序)調(diào)試的任務(wù)是A)診斷和改正程序中的錯誤B)盡可能多地發(fā)現(xiàn)程序中的錯誤C)發(fā)現(xiàn)并改正程序中的所有錯誤D)確定程序中錯誤的性質(zhì)(5)數(shù)據(jù)流程圖(DFD圖)是A)軟件概要設(shè)計的工具B)軟件詳細(xì)設(shè)計的工具

C)結(jié)構(gòu)化方法的需求分析工具D)面向?qū)ο蠓椒ǖ男枨蠓治龉ぞ?021.3(6)軟件生命周期可分為定義階段，開發(fā)階段和維護(hù)階段。詳細(xì)設(shè)計屬于

A)定義階段B)開發(fā)階段C)維護(hù)階段D)上述三個階段

(7)數(shù)據(jù)庫管理系統(tǒng)中負(fù)責(zé)數(shù)據(jù)模式定義的語言是

A)數(shù)據(jù)定義語言B)數(shù)據(jù)管理語言C)數(shù)據(jù)操縱語言D)數(shù)據(jù)控制語言

(8)在學(xué)生管理的關(guān)系數(shù)據(jù)庫中，存取一個學(xué)生信息的數(shù)據(jù)單位是A)文件B)數(shù)據(jù)庫C)字段D)記錄

(9)數(shù)據(jù)庫設(shè)計中，用E-R圖來描述信息結(jié)構(gòu)但不涉及信息在計算機(jī)中的表示，它屬于數(shù)據(jù)庫設(shè)計的A)需求分析階段B)邏輯設(shè)計階段C)概念設(shè)計階段D)物理設(shè)計階段2021.3(10)有兩個關(guān)系R和T如下：那么由關(guān)系R得到關(guān)系T的操作是

A)選擇B)投影C)交D)并(11)在VB集成環(huán)境中要結(jié)束一個正在運(yùn)行的工程，可單擊工具欄上的一個按鈕，這個按鈕是2021.3(12)設(shè)x是整型變量，與函數(shù)Ⅱf(x>0,-x,x)有相同結(jié)果的代數(shù)式是A)|x|B)-|x|C)xD)-x

(13)設(shè)窗體文件中有下面的事件過程：PrivateSubCommand1_Click()Dimsa%=100PrintaEndSub其中變量a和s的數(shù)據(jù)類型分別是A)整型，整型B)變體型，變體型

C)整型，變體型D)變體型，整型2021.3(14)下面哪個屬性肯定不是框架控件的屬性A)TextB)CaptionC)LeftD)Enabled

(15)下面不能在信息框中輸出“VB〞的是A)MsgBox“VB〞B)x=MsgBox("VB")C)MsgBox(“VB〞)D)CallMsgBox"VB"

(16)窗體上有一個名稱為Option1的單項選擇按鈕數(shù)組，程序運(yùn)行時，當(dāng)單擊某個單項選擇按鈕時，會調(diào)用下面的事件過程PrivateSubOption1_C1ick(IndexAsInteger)…EndSub下面關(guān)于此過程的參數(shù)Index的表達(dá)中正確的選項是A)Index為1表示單項選擇按鈕被選中，為O表示未選中B)Index的值可正可負(fù)C)Index的值用來區(qū)分哪個單項選擇按鈕被選中D)Index表示數(shù)組中單項選擇按鈕的數(shù)量2021.3(16)窗體上有一個名稱為Option1的單項選擇按鈕數(shù)組，程序運(yùn)行時，當(dāng)單擊某個單項選擇按鈕時，會調(diào)用下面的事件過程PrivateSubOption1_C1ick(IndexAsInteger)…EndSub下面關(guān)于此過程的參數(shù)Index的表達(dá)中正確的選項是A)Index為1表示單項選擇按鈕被選中，為O表示未選中B)Index的值可正可負(fù)C)Index的值用來區(qū)分哪個單項選擇按鈕被選中D)Index表示數(shù)組中單項選擇按鈕的數(shù)量

(17)設(shè)窗體中有一個文本框Text1，假設(shè)在程序中執(zhí)行了Text1.SetFocus，那么觸發(fā)A)Text1的SetFocus事件B)Text1的GotFocus事件C)Text1的LostFocus事件D)窗體的GotFocus事件2021.3(18)VB中有3個鍵盤事件：KeyPress、KeyDown、KeyUp，假設(shè)光標(biāo)在Text1文本框中，那么每輸入一個字母A)這3個事件都會觸發(fā)B)只觸發(fā)KeyPress事件C)只觸發(fā)KeyDown、KeyUp事件D)不觸發(fā)其中任何一個事件

(19)下面關(guān)于標(biāo)準(zhǔn)模塊的表達(dá)中錯誤的選項是A)標(biāo)準(zhǔn)模塊中可以聲明全局變量B)標(biāo)準(zhǔn)模塊中可以包含一個SubMain過程，但此過程不能被設(shè)置為啟動過程C)標(biāo)準(zhǔn)模塊中可以包含一些Public過程D)一個工程中可以含有多個標(biāo)準(zhǔn)模塊

(20)設(shè)窗體的名稱為Form1，標(biāo)題為Win，那么窗體的MouseDown事件過程的過程名是A)Form1_MouseDownB)Win_MouseDownC)Form_MouseDownD)MouseDown_Form12021.3(21)下面正確使用動態(tài)數(shù)組的是

A)Dimarr()AsInteger

…

ReDimarr(3,5)

B)Dimarr()AsInteger

…

ReDimarr(50)AsString

C)Dimarr()

…

ReDimarr(50)AsInteger

D)Dimarr(50)AsInteger

…ReDimarr(20)2021.3(22)下面是求最大公約數(shù)的函數(shù)的首部Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger假設(shè)要輸出8、12、16這3個數(shù)的最大公約數(shù)，下面正確的語句是A)Printgcd(8,12)，gcd(12,16)，gcd(16,8)B)Printgcd(8,12,16)C)Printgcd(8)，gcd(12)，gcd(16)D)Printgcd(8,gcd(12,16))2021.3(23)有下面的程序段，其功能是按圖1所示的規(guī)律輸出數(shù)據(jù)Dima(3,5)AsIntegerFori=1To3Forj=1To5A(i,j)=i+jPrinta(i,j);NextPrintNext假設(shè)要按圖2所示的規(guī)律繼續(xù)輸出數(shù)據(jù)，那么接在上述程序段后面的程序段應(yīng)該是

A)Fori=1To5Forj=1To3Printa(j,i);NextPrintNextB)Fori=1To3Forj=1To5Printa(j,i);NextPrintNextC)Forj=1To5Fori=1To3Printa(j,i);NextPrintNextD)Fori=1To5

Forj=1To3Printa(i,j);NextPrintNext2021.3(24)窗體上有一個Text1文本框，一個Command1命令按鈕，并有以下程序PrivateSubCommandl_Click()DimnIfText1.Text<>"23456"Thenn=n+1Print"口令輸入錯誤"&n&"次"EndIfEndSub希望程序運(yùn)行時得到左圖所示的效果，即：輸入口令，單擊“確認(rèn)口令〞命令按鈕，假設(shè)輸入的口令不是“123456〞，那么在窗體上顯示輸入錯誤口令的次數(shù)。但上面的程序?qū)嶋H顯示的是右圖所示的效果，程序需要修改。下面修改方案中正確的選項是A)在Dimn語句的下面添加一句：n=OB)把Print"口令輸入錯誤"&n&"次"改為Print"口令輸入錯誤"+n+"次"C)把Print"口令輸入錯誤"&n&"次"改為Print"口令輸入錯誤"&Str(n)&"次"D)把Dimn改為Staticn2021.3(25)要求當(dāng)鼠標(biāo)在圖片框P1中移動時，立即在圖片框中顯示鼠標(biāo)的位置坐標(biāo)。下面能正確實現(xiàn)上述功能的事件過程是A)PrivateSubP1_MouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)PrintX,YEndSubB)PrivateSubP1_MouseDown(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picture.PrintX,YEndSub

C)PrivateSubP1_MouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)P1.PrintX,YEndSubD)PrivateSubForm_MouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)P1.PrintX,YEndSub(26)計算二的近似值的一個公式是。某人編寫下面的程序用此公式計算并輸出π的近似值：PrivateSubComand1_Click()PI=1Sign=1n=20000Fork=3TonSign=-Sign/kPI=PI+Sign/kNextkPrintPI*4EndSub運(yùn)行后發(fā)現(xiàn)結(jié)果為3.22751，顯然，程序需要修改。下面修改方案中正確的選項是A)把Fork=3Ton改為Fork=1TonB)把n=20000改為n=20000000C)把Fork=3Ton改為Fork=3TonStep2D)把PI=1改為PI=02021.3(27)下面程序計算并輸出的是PrivateSubComand1_Click()a=10

s=0

Do

s=s+a*a*aa=a-1LoopUntila<=0PrintsEndSub

A)13+23+33+…+103的值B)10!+…+3!+2!+1!的值C)(1+2+3+…+10)3的值D)10個103的和2021.3(28)假設(shè)在窗體模塊的聲明局部聲明了如下自定義類型和數(shù)組PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec那么下面的輸出語句中正確的選項是A)Printarr.Code(2),arr.Caption(2)B)Printarr.Code,arr.CaptionC)Printarr(2).Code,arr(2).CaptionD)PrintCode(2),Caption(2)2021.3(29)設(shè)窗體上有一個通用對話框控件CD1，希望在執(zhí)行下面程序時，翻開如下圖的文件對話框PrivateSubComand1_Click()CD1.DialogTitle="翻開文件"CD1.InitDir="C:"CD1.Filter="所有文件|*.*|Word文檔|*.doc|文本文件|*.Txt"CD1.FileName=""CD1.Action=1IfCD1.FileName=""ThenPrint"未翻開文件"ElsePrint"要翻開文件"&CD1.FileNameEndIfEndSub2021.3但實際顯示的對話框中列出了C:下的所有文件和文件夾，“文件類型〞一欄中顯示的是“所有文件〞。下面的修改方案中正確的選項是A)把CD1.Action=1改為CD1.Action=2B)把“CD1.Filter=〞后面字符串中的“所有文件〞改為“文本文件〞C)在語句CD1.Action=1的前面添加：CD1.FilterIndex=3D)把CD1.FileName=""改為CD1.FileName="文本文件"(30)下面程序運(yùn)行時，假設(shè)輸入395，那么輸出結(jié)果是PrivateSubComand1_Click()Dimx%x=InputBox("請輸入一個3位整數(shù)")PrintxMod10,x100,(xMod100)10EndSubA)395B)539C)593D)3592021.3(31)窗體上有List1、List2兩個列表框，List1中有假設(shè)干列表項(見圖)，并有下面的程序：PrivateSubComand1_Click()Fork=List1.ListCount-1To0Step-1IfList1.Selected(k)ThenList2.AddItemList1.List(k)List1.RemoveItemkEndIfNextkEndSub程序運(yùn)行時，按照圖示在List1中選中2個列表項，然后單擊Commandl命令按鈕，那么產(chǎn)生的結(jié)果是A)在List2中插入了“外語〞、“物理〞兩項B)在List1中刪除了“外語〞、“物理〞兩項C)同時產(chǎn)生A)和B)的結(jié)果D)把List1中最后1個列表項刪除并插入到List2中2021.3(32)設(shè)工程中有2個窗體：Form1、Form2，F(xiàn)orm1為啟動窗體。Form2中有菜單。其結(jié)構(gòu)如表。要求在程序運(yùn)行時，在Form1的文本框Text1中輸入口令并按回車鍵(回車鍵的ASCII碼為13)后，隱藏Form1，顯示Form2。假設(shè)口令為“Teacher〞，所有菜單項都可見;否那么看不到“成績錄入〞菜單項。為此，某人在Form1窗體文件中編寫如下程序：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfText1.Text="Teacher"ThenForm2.input.visible=TrueElseForm2.input.visible=FalseEndIfEndIfForm1.HideForm2.ShowEndSub2021.3程序運(yùn)行時發(fā)現(xiàn)剛輸入口令時就隱藏了Form1，顯示了Form2，程序需要修改。下面修改方案中正確的選項是A)把Form1中Text1文本框及相關(guān)程序放到Form2窗體中B)把Form1.Hide、Form2.Show兩行移到2個EndIf之間C)把IfKeyAscii=13Then改為IfKeyAscii="Teaeher"ThenD)把2個中的“Form2〞刪去2021.3(33)某人編寫了下面的程序，希望能把Text1文本框中的內(nèi)容寫到out.txt文件中PrivateSubComand1_Click()Open"out.txt"ForOutputAs#2Print"Text1"Close#2EndSub調(diào)試時發(fā)現(xiàn)沒有到達(dá)目的，為實現(xiàn)上述目的，應(yīng)做的修改是A)把Print"Text1"改為Print#2,Text1B)把Print"Text1"改為PrintText1C)把Print"Text1"改為Write"Text1"D)把所有#2改為#12021.3(34)窗體上有一個名為Command1的命令按鈕，并有下面的程序：PrivateSubComand1_Click()Dimarr(5)AsIntegerFork=1To5arr(k)=kNextk

progarr()

Fork=1To5Printarr(k)NextkEndSubSubprog(a()AsInteger)n=Ubound(a)Fori=nTo2step-1Forj=1Ton-1ifa(j)t=a(j):a(j)=a(j+1):a(j+1)=tEndIfNextjNextiEndSub程序運(yùn)行時，單擊命令按鈕后顯示的是A)12345B)54321C)01234D)432102021.3(35)下面程序運(yùn)行時，假設(shè)輸入“VisualBasicProgramming〞，那么在窗體上輸出的是PrivateSubComand1_Click()Dimcount(25)AsInteger,chAsStringch=Ucase(InputBox("請輸入字母字符串"))Fork=1ToLen(ch)n=Asc(Mid(ch,k,1))-Asc("A")Ifn>=0ThenCount(n)=Count(n)+1EndIfNextkm=count(0)Fork=1To25Ifmm=count(k)EndIfNextkPrintmEndSub

A)0B)1C)2D)3

2021.3二、填空題(1)一個隊列的初始狀態(tài)為空?，F(xiàn)將元素A,B,C,D,E,F,5,4,3,2,1依次入隊，然后再依次退隊，那么元素退隊的順序為【1】。(2)設(shè)某循環(huán)隊列的容量為50，如果頭指針front=45(指向隊頭元素的前一位置)，尾指針rear=10(指向隊尾元素)，那么該循環(huán)隊列中共有【2】個元素。(3)設(shè)二叉樹如下：對該二叉樹進(jìn)行后序遍歷的結(jié)果為【3】。(4)軟件是【4】、數(shù)據(jù)和文檔的集合。(5)有一個學(xué)生選課的關(guān)系，其中學(xué)生的關(guān)系模式為：學(xué)生(學(xué)號，姓名，班級，年齡)，課程的關(guān)系模式為：課程(課號，課程名，學(xué)時)，其中兩個關(guān)系模式的鍵分別是學(xué)號和課號，那么關(guān)系模式選課可定義為：選課(學(xué)號，【5】，成績)。(6)為了使復(fù)選框禁用(即呈現(xiàn)灰色)，應(yīng)把它的Value屬性設(shè)置為2【6】。(7)在窗體上畫一個標(biāo)簽、一個計時器和一個命令按鈕，其名稱分別為Labl1、Timer1和Command1，如圖1所示。程序運(yùn)行后，如果單擊命令按鈕，那么標(biāo)簽開始閃爍，每秒鐘“歡送〞二字顯示、消失各一次，如圖2所示。以下是實現(xiàn)上述功能的程序，請?zhí)羁?。PrivateSubForm_Load()Label1.Caption="歡送"Timer1.Enabled=FalseTimer1.Interval=500【7】EndSubPrivateSubTimer1_Timer()Label1.Visible=False【8】EndSubPrivateSubcommand1_Click()【9】Timer1.Enabled=TrueEndSub(8)有如下程序：PrivateSubForm_Click()

n=10

i=0

Do

i=i+n

n=n-2

LoopWhilen>2PrintiEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為28【10】。(9)在窗體上畫一個名稱為Command1的命令按鈕。然后編寫如下程序：OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger

Fori=1To10

a(i)=iNextCallswap(a()【11】)Fori=1To10Printa(i);NextEndSubSubswap(b()AsInteger)n=Ubound(b)Fori=1Ton/2t=b(i)b(i)=b(n)b(n)=t

n=n-1【12】NextEndSub上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……。請?zhí)羁铡?10)在窗體上畫一個文本框，其名稱為Text1，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True，然后編寫如下的事件過程：PrivateSubForm_Click()Open"d:testsmtext1.Txt"ForInputAs#1DoWhileNot【13】EOf(1)LineInput#1,aspect$Whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$【14】Close#1Open"d:testsmtext2.Txt"ForOutputAs#1Print#1,【15】Text1.TextClose#1EndSub運(yùn)行程序，單擊窗體，將把磁盤文件smtext1.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt。請?zhí)羁铡?021.91)以下數(shù)據(jù)結(jié)構(gòu)中，屬于非線性結(jié)構(gòu)的是

A)循環(huán)隊列B)帶鏈隊列C)二叉樹D)帶鏈

(2)以下數(shù)據(jù)結(jié)構(gòu)中，能夠按照“先進(jìn)先出〞原那么存取數(shù)據(jù)的是：

A)循環(huán)隊B)C)隊列D)

二叉樹

(3)對于循環(huán)隊列，以下表達(dá)中正確的選項是

A)隊頭指針是固定不變的

B)隊頭指針是一定大于隊尾指針

C)隊頭指針一定小于隊尾指針

D)隊頭指針可以大于隊尾指針，也可以小于隊尾指針2021.9(4)算法的空間復(fù)雜度是指

A)算法在執(zhí)行過程中所需要的計算機(jī)存儲空間

B)算法所處理的數(shù)據(jù)量

C)算法程序中的語句或指令條數(shù)

D)隊頭指針可以大于隊尾指針，也可以小于隊尾指針

(5)軟件設(shè)計中劃分模塊一個準(zhǔn)那么是

A)低內(nèi)聚低耦合B)

高內(nèi)聚低耦合

C)

低內(nèi)聚高耦合

D)

高內(nèi)聚高耦合

(6)以下選項中不屬于結(jié)構(gòu)化程序設(shè)計原那么的是

A)可封裝B)自頂向下C)模塊化D)逐步求精2021.9(7)軟件詳細(xì)設(shè)計產(chǎn)生的圖如下：

該圖是：

A)N-S圖B)PAD圖C)程序流程圖D)E-R圖

(8)數(shù)據(jù)庫管理系統(tǒng)是

A)操作系統(tǒng)的一局部B)在操作系統(tǒng)支撐下的系統(tǒng)軟件

C)一種編譯系統(tǒng)D)一種操作系統(tǒng)

(9)在E-R中，用來表示實體聯(lián)系的圖形是

A)橢形圖B)矩形C)菱形D)三角形

(10)有三個關(guān)系R,S和T如下：

其中關(guān)系T由關(guān)系R和S通過某種操作得到，該操作為

A)選擇B)投影C)交D)并〔11〕以下變量名中合法的是：

A)x2-1

B)Print

C)Str_n

D)2x

〔12〕把數(shù)學(xué)表達(dá)式(5x+3)/(2y-6)表示為正確的VB表達(dá)式應(yīng)該是：

A)

(5x+3)/(2y-6)

B)x*5+3/2*y-6C)(5*X+3)

D)(X*5+3)/(y*2-6)

(13)下面有關(guān)標(biāo)準(zhǔn)模塊的表達(dá)中，錯誤的選項是：

A)標(biāo)準(zhǔn)模塊不完全由代碼組成，還可以有窗體。

B)標(biāo)準(zhǔn)模塊中的Private過程中不能被工程中的其他模塊調(diào)用。

C〕標(biāo)準(zhǔn)模塊中文件擴(kuò)展名為.bas

D)標(biāo)準(zhǔn)模塊中的全局變量可以被工程中的任何模塊引用。

(14)下面控件中，沒有Caption

屬性的是

A)復(fù)選框

B〕單項選擇按鈕

C〕組合框

D〕框架

(15)用來設(shè)置文字字體是否斜體的屬性是：

A)FonUnderline

B)FontBold

C)Fontslope

D)FontItalic(16)假設(shè)看到程序中有以下事件過程，那么可以肯定的是，當(dāng)程序運(yùn)行時

Private

Sub

Form_MouseDown(Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

Print

"VB

program"

End

Sub

A)用鼠標(biāo)左鍵單擊名稱為“Command1〞的命令按鈕時，執(zhí)行此過程。

B)用鼠標(biāo)左鍵單擊名稱為“MouseDown〞的命令按鈕時，執(zhí)行此過程。

C)用鼠標(biāo)右鍵單擊名稱為“MouseDown〞的命令按鈕時，執(zhí)行此過程。

D)用鼠標(biāo)左鍵或右鍵單擊名稱為“Click〞的控件時，執(zhí)行此過程。〔17〕可以產(chǎn)生30-50(含30和50)之間的隨機(jī)整數(shù)的表達(dá)式是

A)Int

(Rnd*21+30)

B)Int(Rnd*20+30)

C)

Int(Rnd*50-Rnd*30)

D)Int(Rnd*20+50)

(18)在程序運(yùn)行時，下面的表達(dá)中正確的選項是

A)用鼠標(biāo)右鍵單擊窗體中無控件的局部，會執(zhí)行窗體的Form_load事件過程。

B)用鼠標(biāo)左鍵單擊窗體的標(biāo)題欄，會執(zhí)行窗體的Form_Click事件過程。

C)只裝入而不顯示窗體，也會執(zhí)行窗體的Form_Load事件過程。

D〕裝入窗體后，每次顯示該窗體時，都會執(zhí)行窗體的Form_Click事件過程。(19)名稱為Command1的命令按鈕和名稱為Text1的文本框

Private

Sub

Command1_Click()

Text1.Text

=

"程序設(shè)計"

Text1.Text

=

"程序設(shè)計"

Text1.SetFocus

End

Sub

Private

Sub

Text1_GotFocus()

Text1.Text

=

"等級考試"

End

Sub

運(yùn)行以上程序，單擊命令按鈕后：

A)

文本框中顯示的是“程序設(shè)計〞，且焦點在文本框中。

B)

文本框中顯示的是“等級考試〞，且焦點在文本框中。

C)

文本框中顯示的是“程序設(shè)計〞，且焦點在命令按鈕上。

D)

文本框中顯示的是“等級考試〞，且焦點在命令按鈕上。(20)有名稱為Opiton1的單項選擇按鈕，且程序中有語句：

If

Option1.value=True

then

下面語句中與該語句不等價的是

A)

Option1.Vulue

then

B)If

Option1=True

then

C)If

value=True

then

D)If

Option

then

(21)設(shè)窗體上有1個水平滾動條，已經(jīng)通過屬性窗口把它的Max屬性設(shè)置為1,Min屬性設(shè)置為100。下面表達(dá)中正確的選項是：

A)程序運(yùn)行時，假設(shè)使?jié)L動塊向左移動，滾動條胡value屬性值就增加。

B)程序運(yùn)行時，假設(shè)使?jié)L動塊向左移動，滾動條的value屬性值就減少。

C)由于滾動條的MAX屬性值小于Min屬性值，程序會出錯。

D)由于滾動條的Max屬性值小于Min屬性值，程序運(yùn)行時滾動條的長度會縮為滾動塊無法移動。

(22)有如下過程代碼

連續(xù)3次調(diào)用var_dim過程，第3次調(diào)用時的輸出是：

A)

2

1

B)2

3

C)

6

1

D)

6

3

(23)在窗體上畫1個命令按鈕，并編寫如下事件過程：

運(yùn)行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為：

A)

5

3

1

1

B)5

4

3

2

1

C)4

3

2

1

1

D)4

4

3

2

1

1(24)在窗體上面１個命令按鈕，并編寫如下事件過程：

Private

Sub

Command1_Click()

Dim

a(3,

3)

For

m

=

1

To

3

For

n

=

1

To

3

If

n

=

m

Or

n

=

4

-

m

Then

a(m,

n)

=

m

+

n

Else

a(m,

n)

=

0

End

If

Print

a(m,

n);

Next

n

Print

Next

m

End

Sub

運(yùn)行程序單擊命令按鈕，窗體上顯示的內(nèi)容為：

A)

2

0

0

B)2

0

4

C)2

3

0

D)

2

0

0

0

4

0

0

4

0

3

4

0

0

4

5

0

0

6

4

0

6

0

0

6

0

5

6(25)設(shè)有以下函數(shù)過程：

Function

fun(a

As

Integer,

b

As

Integer)

Dim

c

As

Integer

If

a

<

b

Then

c

=

a:

a

=

b:

b

=

c

End

If

c

=

0

Do

c

=

c

+

a

Loop

Until

c

Mod

b

=

0

fun

=

c

End

Function

假設(shè)調(diào)用函數(shù)fun時的實際參數(shù)都是自然數(shù)，那么函數(shù)返回的是：

A)a、b的最大公約數(shù)

B)a、b的最小公約數(shù)

C)a除以b的余數(shù)

D)a除以b

的商的整數(shù)局部(26)窗體上有1個名稱為text1文本框，1個名稱為Timer1的計時器控件，其Iterval屬性值為5000，Enabled屬性值是True。Timer1的事件過程如下：

Private

Sub

Timer1_Timer()

Static

flag

As

Integer

If

flag

=

0

Then

flag

=

1

flag

=

-flag

If

flag

=

1

Then

Text1.ForeColor

=

&HFF&

'&HFF&為紅色'

Else

Text1.ForeColor

=

&HC000&

'&HC000&為綠色'

End

If

End

Sub

以下表達(dá)中正確的選項是

A)

每次執(zhí)行此事件過程時，flag的初始值均為0

B)

Flag的值只可能取0或1

C)

程序執(zhí)行后，文本框中的文字每5秒改變一次顏色

D)

程序有邏輯錯誤，Else分支總也不能被執(zhí)行(27)為計算1+2+2^2+2^3+2^4+…+2^10的值，并把結(jié)果顯示在文本框text1中，假設(shè)編寫如下事件過程：

Private

Sub

Command1_Click()

Dim

a%,

s%,

k%

s

=

1

a

=

2

For

k

=

2

To

10

a

=

a

*

2

s

=

s

+

a

Next

k

Text1.Text

=

s

End

Sub

執(zhí)行此事件過程中發(fā)現(xiàn)結(jié)果是錯誤的，為能夠得到正確結(jié)果，應(yīng)做的修改是：

A)

把s=1

改為

s=0

B)把For

k=2

to

10

改為

For

k=1

to

10

C)交換語句

s=s+a和a=a*2的順序

D)同時進(jìn)行B)、C)兩種修改(28)標(biāo)準(zhǔn)模塊中有如下程序代碼：

Public

x

As

Integer,

y

As

Integer

Sub

var_pub()

x

=

10:

y

=

20

End

Sub

在窗體上有1個命令按鈕，并有如下事件過程：

Private

Sub

Command1_Click()

Call

var_pub

x

=

x

+

100

y

=

y

+

100

Print

x,

y

End

Sub

運(yùn)行程序后單擊命令按鈕，窗體上顯示的是：

A)100

100

B)100

120

C)110

100

D)110

120

(29)設(shè)a、b都是自然數(shù)，為求a除以b的余數(shù)，某人編寫了以下函數(shù)：

Funciton

fun(a

as

Integer

,b

as

Integer

)

While

a

>

b

a

=

a

-

b

Wend

fun

=

a

End

Function

在調(diào)試時發(fā)現(xiàn)函數(shù)是錯誤的，為使函數(shù)能產(chǎn)生正確的返回值，應(yīng)做的修改是：

A)把a(bǔ)=a-b改為a=b-a

B)把a(bǔ)=a-b改為a=a\b

C)把while

a>b改為

while

a<b

D)

把while

a>b改為

while

a>=b

(30)以下關(guān)于通用對話框CommanDialog1的表達(dá)中，錯誤的選項是

A)只要在“翻開〞對話框中選擇了文件，并單擊“翻開〞按鈕，就可以將選中的文件翻開。

B)使用CommonDialog1.showcolor方法，可以顯示“顏色〞對話框。

C)Cancelerror屬性用于控制用戶單擊“取消〞按鈕關(guān)閉對話框時，是否顯示出錯警告。

D)在顯示“字體〞對話框前，必須先設(shè)置CommonDialog1.showcolor的Flags屬性，否那么會出錯。(31)在利用菜單編輯器設(shè)計菜單時，為了把組合鍵〞Alt+X〞設(shè)置為“退出〔X〕菜單項的訪問鍵，可以將該菜單項的標(biāo)題設(shè)置為

A)退出〔X&〕

B)退出〔&X〕

C)退出〔X#〕

D)退出〔#X〕

(32)在窗體上畫１個命令按鈕和１個文本框，其名稱分別為command1和text1，再編寫如下程序：

Dim

ss

As

String

Private

Sub

text1_keypress(keyascii

As

Integer)

If

Chr(keyascii)

<>

""

Then

ss

=

ss

+

Chr(keyascii)

End

Sub

Private

Sub

Command1_Click()

Dim

m

As

String,

i

As

Integer

For

i

=

Len(ss)

To

1

Step

-1

m

=

m

+

Mid(ss,

i,

1)

Next

End

Sub

(33)窗體的左右兩端各有1條直線，名稱分別為Line1、Line2；名稱為shape１的圓靠在左邊的Line1直線上〔見圖〕；另有1個名稱為Timer1的計時器控件，其Enabed屬性值是True。要求程序運(yùn)行后，圓每秒向右稱動100，當(dāng)圓遇到Line2時那么停此移動。為實現(xiàn)上述功能，某人把計時器的Interval屬性設(shè)置為1000，并編寫了如下程序：

Private

Sub

Timer1_Timer()

For

k

=

Line1.X1

To

Line2.X1

Step

100

If

Shape1.Left

+

Shape1.Width

<

Line2.X1

ThenShape1.Left

=

Shape1.Left

+

End

If

Next

k

End

Sub

運(yùn)行程序時發(fā)現(xiàn)圓立即移動了右邊的直線處，與題目要求的移動方式不符。為得到與題目要求相符的結(jié)果，下面修改方案中正確的選項是：

A)

把計時器的Interval屬性設(shè)置為1

B)

把For

K=Line1.X1

To

Line2.X1

Step

100和Next

兩行刪除

C)把For

K=Line1.X1

To

Line2.X1

Step

100改為For

K=Line2.X1

To

Line1.X1

Step

100

D)把

If

shape1.left+shape1.width<line2.x1

then

改為if

shape1.left<line2.x1

then(34)以下有關(guān)文件的表達(dá)中，正確的選項是：

A)以O(shè)utput方式翻開一個不存在的文件時，系統(tǒng)將顯示出錯信息

B)

以Append方式翻開的文件，既可以進(jìn)行讀操作，也可以進(jìn)行寫操作

C)在隨機(jī)文件中，每個記錄的長度是固定的。

D)無論是順序文件還是隨機(jī)文件，其翻開的語句和翻開方式都是完全相同的。(35)窗體如圖1所示，要求程序運(yùn)行時，在文本框text1中輸入一個姓氏，單擊“刪除“按鈕〔名稱為command1〕，那么可刪除列表框中l(wèi)ist1中所有該姓氏的工程，假設(shè)編寫以下程序來實現(xiàn)此功能：

Private

Sub

Command1_Click()

Dim

n%,

k%

n

=

Len(Text1.Text)

For

k

=

0

To

List1.ListCount

-

1

If

Left(List1.List(k),

n)

=

Text1.Text

Then

List1.RemoveItem

k

End

If

Next

k

End

Sub

在調(diào)試時發(fā)現(xiàn)，如輸入“陳〞，可以正確刪除所有姓“陳〞的工程，但輸入“劉〞那么只刪除了“劉邦〞、“劉備〞2項，結(jié)果如圖2所示。這說明程序不能適應(yīng)所有情況，需要修改。正確的改方案是把

For

k=0

to

list1.listcount-1改為

A)

For

k=list1.listcount-1

to

0

step

-1

B)

For

k=0

to

list1.listcount

C)

For

k=1

to

list1.listcount-1

D)

For

k=1

to

list1.listcount請將每空的正確答案寫在答題卡上，答在試卷上不得分

(1)某二叉樹有5個度為2的結(jié)占以及3個度為1的結(jié)點，那么該二叉樹中共有14【1】個結(jié)點。

(2)程序流程圖中的菱形框表示的是邏輯條件【2】

(3)軟件開發(fā)過程主要分為需求分析、設(shè)計、編碼與測試四個階段，其中需求分析【3】階段產(chǎn)生軟件需求規(guī)格說明書。

(4)在數(shù)據(jù)庫中，實體集之間的聯(lián)系可以是一對一或一對多或多對多的，那么“學(xué)生〞和“可選課程〞的聯(lián)系為多對多【4】

(5)人員根本信息一般包括：身份證號、姓名、性別、年齡等。其中可以作為主關(guān)鍵字的是身份證號【5】(6)工程中有Form1、Form2兩個窗體，F(xiàn)orm1窗體外觀如圖1所示，程序運(yùn)行時在form1中名稱為text1的文本框中輸入一個值〔圓的半徑〕，然后單擊命令按鈕“計算并顯示〞〔其名稱為command1〕，那么顯示form2窗體，且根據(jù)輸入的圓的半徑計算圓的面積，并在Form2的窗體上顯示出來，如圖2所示，如果單擊命令按鈕時，那么文本框中輸入的不是數(shù)值，那么用信息框顯示“請輸入數(shù)值數(shù)據(jù)！

，請?zhí)羁眨簣D１圖２

Private

Sub

Command1_Click()

If

Text1.Text

=

""

Then

MsgBox

"請輸入半徑"

ElseIf

Not

IsNumeric(

Text1.Text

【6】)

then

MsgBox

"請輸入數(shù)值數(shù)據(jù)"

Else

r

=

Val(Text1.Text【7】)

Form2.Show

Form2【8】.Print"圓的面積是"&

3.14*r*r

End

If

End

Sub

(7)設(shè)有整型變量s，取值范圍為0-100，表示學(xué)生的成績。有如下程序段：

If

s

>

90

Then

Level

=

"A"

ElseIf

s

>=

75

Then

Level

=

"B"

ElseIf

s

>=

60

Then

Level

=

"C"

Else

Level

=

"D"

End

If

下面用Select

case

結(jié)構(gòu)改寫上述程序，使兩段程序所實現(xiàn)的功能完全相同，請?zhí)羁眨篜rivate

Sub

Form_Load()

Select

Case

s

Case

【9】Is

>=

90

Level

=

"A"

Case

75

To

89

Level

=

"B"

Case

60

To74

Level

=

"C"

Case

【10】Else

Case

75

To

89

Level

=

"D"

【11】

End

Select

(8)窗體上有名稱為command1的命令按鈕，事件過程及2個函數(shù)過程如下：

Private

Sub

Command1_Click()

Dim

x

As

Integer,

y

As

Integer

x

=

3

y

=

5

z

=

fy(y)

Print

fx(fx(x)),

y

End

Sub

Function

fx(ByVal

a

As

Integer)a

=

a

+

a

fx

=

a

End

Function

Function

fy(ByVal

a

As

Integer)

a

=

a

+

a

fy

=

a

End

Function

運(yùn)行程序，并單擊命令按鈕，那么窗體上顯示的2個值依次是12【12】和【13】10.(9)窗體上有稱稱為command1的命令按鈕及名稱為text1，能顯不多行文本的文本框，程序運(yùn)行后，如果單擊命令按鈕，那么可翻開磁盤文件c:\test.txt，并將文件中的內(nèi)容〔多行文本〕顯示在文本框中，下面是實現(xiàn)此功能的程序，請?zhí)羁眨?/p>

Private

Sub