國(guó)家二級(jí)（VB）機(jī)試模擬試卷23（共391題）

國(guó)家二級(jí)（VB）機(jī)試模擬試卷23（共9套）（共391題）國(guó)家二級(jí)（VB）機(jī)試模擬試卷第1套一、選擇題(本題共40題，每題1.0分，共40分。)1、下面敘述中錯(cuò)誤的是A、由于窗體不能獲得焦點(diǎn)，所以窗體沒(méi)有鍵盤(pán)事件B、框架控件沒(méi)有鍵盤(pán)事件C、標(biāo)簽控件沒(méi)有鍵盤(pán)事件D、文本框有鍵盤(pán)事件，但當(dāng)Enabled屬性被設(shè)置為False時(shí)，其鍵盤(pán)事件無(wú)法被激活標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：KeyPreview屬性返回或設(shè)置一個(gè)值，以決定是否在控件的鍵盤(pán)事件之前激活窗體的鍵盤(pán)事件。鍵盤(pán)事件為：KeyDown、KeyUp和KeyPress。當(dāng)KeyPreview的值為T(mén)rue時(shí)窗體先接收鍵盤(pán)事件，然后是活動(dòng)控件接收事件；為False時(shí)（缺省值）活動(dòng)控件接收鍵盤(pán)事件，而窗體不接收。2、設(shè)窗體上有一個(gè)Text1文本框和一個(gè)HScroll1水平滾動(dòng)條，并有下面的事件過(guò)程：PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序運(yùn)行時(shí)，當(dāng)把滾動(dòng)框移動(dòng)到最左邊時(shí)，文本框中顯示的是100；當(dāng)把滾動(dòng)框移動(dòng)到最右邊時(shí)，文本框中顯示的是1。根據(jù)這些信息，下面的判斷中錯(cuò)誤的是A、滾動(dòng)條的Max和Min屬性的值分別是1和100B、滾動(dòng)條的Max和Min屬性的值分別是100和1C、文本框中顯示的是滾動(dòng)條Value屬性的值D、如果把滾動(dòng)框移動(dòng)到中間位置，文本框中將顯示50標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：在一般情況下，垂直滾動(dòng)條的值由上往下遞增，最上端代表最小值(Min)，最下端代表最大值(Max)；水平滾動(dòng)條的值從左到右遞增，最左端代表最小值(Min)，最右端代表最大值(Max)，其取值范圍為－32768～32768。3、設(shè)窗體上有1個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，程序運(yùn)行時(shí)，如果選中了第3個(gè)列表項(xiàng)（最上面的列表項(xiàng)為第0個(gè)列表項(xiàng)），則下面不成立的是A、List1.Selected(List1.ListIndex)的值為T(mén)rueB、List1.Selected(3)的值為T(mén)rueC、List1.List(3)的值為T(mén)rueD、List1.ListIndex的值為3標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：暫無(wú)解析4、利用通用對(duì)話(huà)框控件打開(kāi)字體對(duì)話(huà)框的操作是A、把通用對(duì)話(huà)框控件的Action屬性設(shè)置為4B、把通用對(duì)話(huà)框控件的Action屬性設(shè)置為5C、調(diào)用通用對(duì)話(huà)框控件的OpenFont方法D、調(diào)用通用對(duì)話(huà)框控件的ShowText方法標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：通用對(duì)話(huà)框(CommonDialog)提供諸如打開(kāi)文件、保存文件、設(shè)置打印選項(xiàng)、選擇顏色和字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話(huà)框，該控件運(yùn)行時(shí)不可見(jiàn)。通用對(duì)話(huà)框的Action屬性用于設(shè)置被打開(kāi)對(duì)話(huà)的類(lèi)型。5、為了顯示彈出式菜單，要使用A、窗體的PopupMenu方法B、窗體的OpenMenu方法C、菜單的PopupMenu方法D、菜單的OpenMenu方法標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：顯示彈出式菜單使用PopupMenu方法。6、為了實(shí)現(xiàn)對(duì)象的自動(dòng)拖放，應(yīng)該設(shè)置該對(duì)象的一個(gè)屬性。下面設(shè)置中正確的是A、DragMode=1B、DragMode=0C、DragIcon=1D、DragIcon=0標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：實(shí)現(xiàn)對(duì)象的自動(dòng)拖放應(yīng)設(shè)置DragMode=1。7、設(shè)工程中有2個(gè)窗體：Form1和Form2，每個(gè)窗體上都有一個(gè)名稱(chēng)為T(mén)ext1的文本框。若希望把Form1上文本框中的內(nèi)容復(fù)制到Form2上的文本框中，應(yīng)進(jìn)行的操作是A、執(zhí)行Form1中的語(yǔ)句：Form1.Text1=Form2.Text1B、執(zhí)行Form1中的語(yǔ)句：Text1=Form1.TextC、執(zhí)行Form2中的語(yǔ)句：Form1.Text1=Text1D、執(zhí)行Form2中的語(yǔ)句：Text1=Form1.Text1標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：把Form1上文本框中的內(nèi)容復(fù)制到Form2上的文本框中，所以應(yīng)該在Form2中添加語(yǔ)句：Text1=Form1.Text1。8、設(shè)窗體上有一個(gè)Picture1圖片框，要求在圖片框中的指定位置（坐標(biāo)為（500，300））輸出"OK"，下面可以實(shí)現(xiàn)這一功能的事件過(guò)程是A、PrivateSubForm_Click()Picture1.CurrentX=500Picture1.CurrentY=300Picture1.Print"OK"EndSubB、PrivateSubForm_Click()Picture1.Left=500Picture1.Top=300Picture1.Print"OK"EndSubC、PrivateSubForm_Click()Picture1.CurrentX=500Picture1.CurrentY=300Print"OK"EndSubD、PrivateSubForm_Click()Picture1.Left=500Picture1.Top=300Print"OK"EndSub標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：VB中，窗體和圖片框具有CurrentX、CurrentY屬性，經(jīng)常用這兩個(gè)屬性來(lái)設(shè)置當(dāng)前繪圖點(diǎn)。VB中在圖片框特定位置顯示文本：Picture1.CurrentX=x座標(biāo)’設(shè)置當(dāng)前X方向座標(biāo)Picture1.CurrentY=y座標(biāo)’設(shè)置當(dāng)前Y方向座標(biāo)Picture1.Print"文本內(nèi)容"’在當(dāng)前位置輸出文本三角形的構(gòu)成條件是：任意2邊之和大于第3邊。設(shè)變量a、b、c是3條直線(xiàn)的長(zhǎng)度，要求判斷這3條直線(xiàn)能否構(gòu)成一個(gè)三角形。9、下面有3個(gè)程序段可以正確判斷，另一個(gè)不能正確判斷的是A、Ifa+b>cAnda+c>bAndb+c>aThenPrint"可以構(gòu)成一個(gè)三角形"ElsePrint"不能構(gòu)成三角形"EndIfB、Ifa+b>cOra+c>bOrb+c>aThenPrint"可以構(gòu)成一個(gè)三角形"ElsePrint"不能構(gòu)成三角形"EndIfC、Ifa+b<=cOra+c<=bOrb+c<=aThenPrint"不能構(gòu)成三角形"ElsePrint"可以構(gòu)成一個(gè)三角形"EndIfD、Ifa+b<=cOra+c<=bThenPrint"不能構(gòu)成三角形"ElseIfb+c<=aThenPrint"不能構(gòu)成三角形"ElsePrint"可以構(gòu)成一個(gè)三角形"EndIf標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：三角形構(gòu)成的條件必須滿(mǎn)足任意2邊之和大于第3邊，即a，b，c任何兩個(gè)的和必須大于第三個(gè)。A）滿(mǎn)足。B）中的Or是或，條件不滿(mǎn)足。C）和D）可以通過(guò)判斷，均能進(jìn)行正確判斷。選B）。10、有下面程序代碼：PrivateSubCommand1_Click()i=1DoWhilei<5j=1Doj=j+1Print"*";LoopUntili+j>10Printi=i+2LoopEndSub程序運(yùn)行時(shí)輸出字符"*"的個(gè)數(shù)是A、50B、20C、16D、15標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：Do…LoopUntil循環(huán)和DoWhile…Loop循環(huán)都是滿(mǎn)足執(zhí)行條件時(shí)會(huì)一直執(zhí)行循環(huán)體內(nèi)的語(yǔ)句。直到條件不滿(mǎn)足退出。外循環(huán)i初值為1，條件是小于5，每次循環(huán)加2，則執(zhí)行2次。內(nèi)循環(huán)條件i=1時(shí)執(zhí)行10次，i=3時(shí)執(zhí)行6次。選C）。11、下面程序的功能是輸出100以?xún)?nèi)所有素?cái)?shù)：PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek<=n/2And__________IfnModk=0Thenisprime=Falsek=k+1LoopIfisprimeThenPrintnEndIfNextnEndSub為使上面程序可以實(shí)現(xiàn)該功能，程序代碼中橫線(xiàn)處應(yīng)填寫(xiě)的代碼是A、isprimeB、NotisprimeC、n<100D、n<=100標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：素?cái)?shù)是大于1的自然數(shù)，除了1和本身不能被任何數(shù)整除的數(shù)。程序用DoWhile循環(huán)對(duì)n進(jìn)行判斷，如能被整除isprime賦值為False。否則賦值為T(mén)rue。隨后的代碼檢測(cè)isprime為T(mén)rue時(shí)執(zhí)行打印。因此DoWhile判斷條件中除了判斷循環(huán)變量的上限還需要判斷isprime的值。根據(jù)執(zhí)行條件可知，選A）。12、設(shè)有下面程序代碼：PrivateSubCommand1_Click()DimaAsVarianta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1ToUBound(a)Ifa(k)>mThenn=mm=a(k)ElseIfa(k)>nAnda(k)<>mThenn=a(k)EndIfNextkPrintnEndSub程序運(yùn)行時(shí)的輸出是A、數(shù)組中最大的數(shù)（即98）B、數(shù)組中最小的數(shù)（即12）C、數(shù)組中第2大的數(shù)（即87）D、數(shù)組中第1個(gè)數(shù)（即22）標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：n和m都獲得數(shù)組元素a（0）的值。在For循環(huán)中，k=1時(shí)，a（k）=a（1）=43，If條件滿(mǎn)足，n=a（0），m=a（1）。ElseIf判斷的相同值的條件，只有在大于n并且不等于m的時(shí)候才賦值給n。因此n中存儲(chǔ)的數(shù)永遠(yuǎn)比m小。而m中的值是數(shù)組中最大的值。因此選C）。13、設(shè)有下面程序代碼：PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,str)Printstr,nEndSubPrivateFunctionfun(chAsString,strAsString)AsIntegerDimstrbufAsString,cAsString,nAsIntegerFork=1ToLen(str)c=Mid$(str,k,1)Ifc<>chThenstrbuf=strbuf&cElsestrbuf=strbuf&UCase(c)n=n+1EndIfNextkstr=strbuffun=nEndFunction程序運(yùn)行時(shí)的輸出是A、VisualBasicProgramming0B、VisuAlBAsicProgrAmming3C、VisulBsicProgrmming3D、VisualBasicProgramming2標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：Mid$(A$,4,2)是為了與老版本的VB兼容（$的作用是強(qiáng)制將函數(shù)的返回值設(shè)為字符型）。&用來(lái)連接字符串。If條件判斷字符是否和輸入的字符相等，相等則n加1。選B）。14、設(shè)有下面程序代碼：OptionBase1PrivateSubCommand1_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(64,24,98,27,58,41)Fork=1To6x(a(k))=b(k)NextkFork=1To6Printx(k);NextkEndSub程序運(yùn)行時(shí)的輸出是A、272441649858B、642498275841C、242741586498D、986458412724標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：第一個(gè)For循環(huán)對(duì)x數(shù)組元素賦初值。被賦的值根據(jù)下標(biāo)，從b數(shù)組中獲取。而x的下標(biāo)從數(shù)組a中的元素獲得。注意OptionBase1的影響，下標(biāo)從1開(kāi)始。因此x數(shù)組中的值實(shí)際上是按照a數(shù)組中值進(jìn)行了一個(gè)重新排序。即x（1）是數(shù)組b中第4個(gè)元素的值：27，其它值以此類(lèi)推。選A）。由高中數(shù)學(xué)可知，對(duì)于連續(xù)函數(shù)f(x)，若f(x1)與f(x2)值的符號(hào)相反，則在x1和x2之間必存在x0，使得f(x0)=0（該點(diǎn)稱(chēng)為"零點(diǎn)"）。15、設(shè)有VB函數(shù)：PrivateFunctionf(xAsSingle)AsSingle可以返回f(x)的值（函數(shù)體沒(méi)有給出）。下面程序的功能是從鍵盤(pán)輸入2個(gè)實(shí)數(shù)x1、x2，判斷在x1、x2之間是否存在零點(diǎn)。PrivateSubCommand1_Click()Dimx1AsSingle,x2AsSinglex1=InputBox("請(qǐng)輸入一個(gè)實(shí)數(shù)x1")x2=InputBox("請(qǐng)?jiān)佥斎胍粋€(gè)實(shí)數(shù)x2")If(____________)ThenPrint"在";x1;"與";x2;"之間存在零點(diǎn)"ElsePrint"不能確定在";x1;"與";x2;"之間是否存在零點(diǎn)"EndIfEndSubPrivateFunctionf(xAsSingle)AsSingle……EndFunction為使上面程序可以實(shí)現(xiàn)該功能，程序代碼中橫線(xiàn)處應(yīng)填寫(xiě)的代碼是A、f(x1)>0Orf(x2)<0B、f(x1)<0Andf(x2)<0C、f(x1)*f(x2)<0D、f(x1)*f(x2)>0標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：判斷x1和x2之間是否存在零點(diǎn)的條件是x1和x2符號(hào)相反。即x1和x2的積是負(fù)數(shù)。函數(shù)f可以返回f（x）的值，因此滿(mǎn)足上述條件的表達(dá)式是f(x1)*f(x2)<0，選C）。16、設(shè)窗體上有3個(gè)圖像框：Image1、Image2、Image3，并有下面的程序代碼：PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Picture=LoadPicture("OPEN.bmp")Image3.Visible=FalseEndSubPrivateSubImage1_Click()Image2.Picture=Image1.PictureEndSubPrivateSubImage2_Click()Image3.Picture=Image2.PictureImage2.Picture=Image1.PictureImage1.Picture=Image3.PictureEndSub在程序運(yùn)行期間單擊Image2，則在窗體上看到的結(jié)果是A、在Image3中顯示Image2中的圖片B、Image1、Image2中原有圖片被交換了C、Image1、Image2中都是原來(lái)Imege1中的圖片D、Image1、Image2中都是原來(lái)Imege2中的圖片標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：Form_Load過(guò)程中在圖相框里載入相應(yīng)圖片。點(diǎn)擊Image2時(shí)，激發(fā)Image2_Click事件，在事件中圖片進(jìn)行了交換。選B）。17、設(shè)窗體上有一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框和一個(gè)名稱(chēng)為Check1的復(fù)選框數(shù)組（下標(biāo)從0開(kāi)始）。程序運(yùn)行時(shí)，單擊某個(gè)復(fù)選框，如果列表框中沒(méi)有該復(fù)選框的標(biāo)題，則把該復(fù)選框的標(biāo)題添加到列表框中，否則從列表框中把該復(fù)選框標(biāo)題刪除。PrivateSubCheck1_Click(IndexAsInteger)Fork=0ToList1.ListCount-1IfCheck1(Index).Caption=List1.List(k)ThenExitForEndIfNextkIfk<List1.ListCountThenList1.RemoveItemkElseList1.AddItem______________________EndIfEndSub為使上面程序可以實(shí)現(xiàn)該功能，程序代碼中橫線(xiàn)上應(yīng)該填入的代碼是A、kB、Check1.CaptionC、Check1(k)D、Check1(Index).Caption標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：題干給出的是沒(méi)有該復(fù)選框的標(biāo)題時(shí)，把該復(fù)選框的標(biāo)題添加到列表框中。List1.AddItem可以為列表框添加新項(xiàng)。需要添加的項(xiàng)要根據(jù)索引添加。選D）。18、窗體上有一個(gè)名稱(chēng)為Shape1并顯示為圓的形狀控件（其Width和Height屬性值相等），一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器，并有下面程序代碼：DimrAsSingle,flagAsIntegerPrivateSubForm_Load()r=Shape1.WidthTimer1.Enabled=TrueTimer1.Interval=500EndSubPrivateSubTimer1_Timer()Ifflag=0ThenShape1.Width=Shape1.Width-10IfShape1.Width<=100Thenflag=1EndIfElseShape1.Width=Shape1.Width+10IfShape1.Width>=rThenflag=0EndIfEndIfEndSub運(yùn)行程序后產(chǎn)生的結(jié)果是A、圓逐漸縮小，再逐漸增大，然后再逐漸縮小，依此往復(fù)B、圓一直在縮小C、圓每隔0.5秒向右移動(dòng)一次D、圓每隔1秒向下移動(dòng)一次標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：Form_Load過(guò)程中設(shè)定timer事件定時(shí)觸發(fā)；在Timer1_Timer過(guò)程中，圓圈先變小后變大，然后退出。下一次timer事件觸發(fā)時(shí)繼續(xù)這個(gè)過(guò)程。因此，選A）。19、下列敘述中正確的是A、程序執(zhí)行的效率與數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)密切相關(guān)B、程序執(zhí)行的效率只取決于程序的控制結(jié)構(gòu)C、程序執(zhí)行的效率只取決于所處理的數(shù)據(jù)量D、以上說(shuō)法均錯(cuò)誤標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：程序執(zhí)行的效率與數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)、數(shù)據(jù)的邏輯結(jié)構(gòu)、程序的控制結(jié)構(gòu)、所處理的數(shù)據(jù)量等有關(guān)。20、下列與隊(duì)列結(jié)構(gòu)有關(guān)聯(lián)的是A、函數(shù)的遞歸調(diào)用B、數(shù)組元素的引用C、多重循環(huán)的執(zhí)行D、先到先服務(wù)的作業(yè)調(diào)度標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：隊(duì)列的修改是依先進(jìn)先出的原則進(jìn)行的，D正確。21、一個(gè)棧的初始狀態(tài)為空?，F(xiàn)將元素1,2,3,A,B,C依次入棧，然后再依次出棧，則元素出棧的順序是A、1,2,3,A,B,CB、C,B,A,1,2,3C、C,B,A,3,2,1D、1,2,3,C,B,A標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：棧的修改是按后進(jìn)先出的原則進(jìn)行的，所以順序應(yīng)與入棧順序相反，故選C。22、下面屬于白盒測(cè)試方法的是A、等價(jià)類(lèi)劃分法B、邏輯覆蓋C、邊界值分析法D、錯(cuò)誤推測(cè)法標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：白盒測(cè)試法主要有邏輯覆蓋、基本路徑測(cè)試等。邏輯覆蓋測(cè)試包括語(yǔ)句覆蓋、路徑覆蓋、判定覆蓋、條件覆蓋、判斷-條件覆蓋，選擇B。其余為黑盒測(cè)試法。23、下面對(duì)對(duì)象概念描述正確的是A、對(duì)象間的通信靠消息傳遞B、對(duì)象是名字和方法的封裝體C、任何對(duì)象必須有繼承性D、對(duì)象的多態(tài)性是指一個(gè)對(duì)象有多個(gè)操作標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：對(duì)象之間進(jìn)行通信的構(gòu)造叫做消息，A正確。多態(tài)性是指同一個(gè)操作可以是不同對(duì)象的行為，D錯(cuò)誤。對(duì)象不一定必須有繼承性，C錯(cuò)誤。封裝性是指從外面看只能看到對(duì)象的外部特征，而不知道也無(wú)須知道數(shù)據(jù)的具體結(jié)構(gòu)以及實(shí)現(xiàn)操作，B錯(cuò)誤。24、軟件設(shè)計(jì)中模塊劃分應(yīng)遵循的準(zhǔn)則是A、低內(nèi)聚低耦合B、高耦合高內(nèi)聚C、高內(nèi)聚低耦合D、以上說(shuō)法均錯(cuò)誤標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：根據(jù)軟件設(shè)計(jì)原理提出如下優(yōu)化準(zhǔn)則：①劃分模塊時(shí)，盡量做到高內(nèi)聚、低耦合，保持模塊相對(duì)獨(dú)立性，并以此原則優(yōu)化初始的軟件結(jié)構(gòu)。②一個(gè)模塊的作用范圍應(yīng)在其控制范圍之內(nèi)，且判定所在的模塊應(yīng)與受其影響的模塊在層次上盡量靠近。③軟件結(jié)構(gòu)的深度、寬度、扇入、扇出應(yīng)適當(dāng)。④模塊的大小要適中。C正確。25、下面描述中不屬于數(shù)據(jù)庫(kù)系統(tǒng)特點(diǎn)的是A、數(shù)據(jù)共享B、數(shù)據(jù)完整性C、數(shù)據(jù)冗余度高D、數(shù)據(jù)獨(dú)立性高標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：數(shù)據(jù)庫(kù)系統(tǒng)的特點(diǎn)為高共享、低冗余、獨(dú)立性高、具有完整性等，C錯(cuò)誤。26、數(shù)據(jù)庫(kù)設(shè)計(jì)過(guò)程不包括A、概念設(shè)計(jì)B、邏輯設(shè)計(jì)C、物理設(shè)計(jì)D、算法設(shè)計(jì)標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：數(shù)據(jù)庫(kù)設(shè)計(jì)過(guò)程主要包括需求分析、、概念結(jié)構(gòu)設(shè)計(jì)、邏輯結(jié)構(gòu)分析、數(shù)據(jù)庫(kù)物理設(shè)計(jì)、數(shù)據(jù)庫(kù)實(shí)施、數(shù)據(jù)庫(kù)運(yùn)行和維護(hù)階段。答案為D選項(xiàng)。27、下面為單精度實(shí)型（即單精度浮點(diǎn)型）變量的是A、x$B、x&C、x!D、x#標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：$：字符串型，&：長(zhǎng)整型，!：?jiǎn)尉葘?shí)型，#：雙精度實(shí)型。28、語(yǔ)句：PrintInt(Rnd*5+20)的輸出不可能是A、20B、22C、24D、25標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：本題考查Rnd隨機(jī)函數(shù)和Int取整函數(shù)，首先Rnd隨機(jī)函數(shù)的范圍為[0,1)，Int函數(shù)的作用是返回不大于自變量的最大整數(shù)，所以當(dāng)Rnd*5后變?yōu)閇0,5)，再加上20變?yōu)閇20,25)，經(jīng)取整后變?yōu)閇20,24]，所以本題的正確答案是選項(xiàng)D。29、設(shè)變量x的值是845，則下面語(yǔ)句的輸出是Printx\100+(xMod100)\10+xMod10A、17B、548C、845D、485標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：整除運(yùn)算(\)的結(jié)果是商的整數(shù)部分。例如，7\2表示整除，商為4.5,結(jié)果取整數(shù)部分3,不進(jìn)行四舍五入。如果參加整除的操作數(shù)是浮點(diǎn)數(shù)，則先按四舍五入的原則將它們變成整數(shù)，然后再執(zhí)行整除運(yùn)算。例如，對(duì)于8.5\2,先將8.5變成9再進(jìn)行整除，商為4.5,結(jié)果為4。取余運(yùn)算(Mod)是求兩個(gè)整數(shù)相除后的余數(shù)。如果參加取余運(yùn)算的操作數(shù)是浮點(diǎn)數(shù)，則先按四舍五入的原則將它們變成整數(shù)，然后再執(zhí)行取余運(yùn)算。例如，對(duì)于8.5\2.1,先將8.5變成9,2.1變成2,然后9除以2與1,因此取余結(jié)果為1。算術(shù)運(yùn)算符的優(yōu)先級(jí)：先乘除，后加減；乘方優(yōu)先于乘除；函數(shù)優(yōu)先于乘方；Mod次于乘除而優(yōu)先于加減；括號(hào)最優(yōu)先。本題中，x\100結(jié)果為8，(xMod100)\10結(jié)果為4，xMod10結(jié)果為5，所以輸出為17，選項(xiàng)A）正確。30、有下面的程序段：x=InputBox("字符串","輸入","請(qǐng)輸入")Printx如果執(zhí)行上面程序段時(shí)沒(méi)有從鍵盤(pán)輸入任何內(nèi)容就直接按了回車(chē)鍵，則輸出內(nèi)容是A、字符串B、輸入C、請(qǐng)輸入D、空白（即未輸出任何內(nèi)容）標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：在題目已給語(yǔ)句中，InputBox函數(shù)使用了3個(gè)參數(shù)：第一個(gè)參數(shù)"字符串"用于顯示信息；第二個(gè)參數(shù)"輸入"用來(lái)顯示對(duì)話(huà)框的標(biāo)題；第三個(gè)參數(shù)"請(qǐng)輸入"是默認(rèn)輸入值，在輸入?yún)^(qū)顯示出來(lái)。選項(xiàng)C）正確。31、在下面語(yǔ)句或函數(shù)中，不能描述選擇結(jié)構(gòu)的是A、If語(yǔ)句B、IIf函數(shù)C、SelectCase語(yǔ)句D、While語(yǔ)句標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：While語(yǔ)句不能描述選擇結(jié)構(gòu)。32、如果要在語(yǔ)句：a=Array(1,2,3,4,5)的前面聲明變量a，則正確的聲明是A、Dima(4)AsIntegerB、Dima(5)AsVariantC、Dima(1To5)AsIntegerD、DimaAsVariant標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：Array函數(shù)只能給變體類(lèi)型變量數(shù)組初始化，所以選項(xiàng)D正確。33、在VB中，函數(shù)過(guò)程與子程序過(guò)程的區(qū)別之一是A、函數(shù)過(guò)程必須有參數(shù)，而子程序過(guò)程可以沒(méi)有B、函數(shù)過(guò)程的參數(shù)傳遞只采用值傳遞，而子程序過(guò)程只采用地址傳遞C、在程序中，子程序過(guò)程調(diào)用的代碼可以寫(xiě)在表達(dá)式中，而函數(shù)過(guò)程不能D、函數(shù)過(guò)程有返回值，而子程序過(guò)程沒(méi)有標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：在VisualBasic中有兩類(lèi)過(guò)程：一類(lèi)是系統(tǒng)提供的內(nèi)部函數(shù)和事件過(guò)程；另一類(lèi)是用戶(hù)根據(jù)自己的需要定義的，供事件過(guò)程的多次調(diào)用。在第二類(lèi)過(guò)程中，涉及最多的是子過(guò)程。它們的共同點(diǎn)是完成某種特定功能的一組程序代碼；不同的是函數(shù)是可以直接返回值的特殊過(guò)程，所以函數(shù)過(guò)程定義時(shí)有返回值的類(lèi)型說(shuō)明。兩者最大的區(qū)別就是Sub過(guò)程的過(guò)程不能直接返回值，而Function過(guò)程能直接返回值。34、設(shè)有以下定義語(yǔ)句：PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面語(yǔ)句中正確的是A、a=12B、a.x=12C、point=12D、point.x=12標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：用戶(hù)可以利用Type語(yǔ)句定義自己的數(shù)據(jù)類(lèi)型，其格式如下：Type自定義類(lèi)型名元素名(下標(biāo))As類(lèi)型名…[元素名(下標(biāo))As類(lèi)型名]EndType要表示某個(gè)自定義數(shù)據(jù)類(lèi)型的變量中某個(gè)元素時(shí)，形式如下：變量名.元素名。所以選項(xiàng)B)是正確的。35、VB應(yīng)用程序不能把一個(gè)二維表格中的數(shù)據(jù)存入文件A、VB數(shù)據(jù)文件不包括VB的窗體文件B、VB應(yīng)用程序可以用隨機(jī)方式讀寫(xiě)數(shù)據(jù)文件C、VB應(yīng)用程序在讀寫(xiě)數(shù)據(jù)文件之前，必須用Open語(yǔ)句打開(kāi)該文件D、VB應(yīng)用程序不能把一個(gè)二維表格中的數(shù)據(jù)存入文件標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：VB應(yīng)用程序可以把一個(gè)二維表格中的數(shù)據(jù)存入文件。36、為使文本框具有初始值"VB"，在設(shè)計(jì)階段正確的操作是A、選中該文本框，在屬性窗口中把Text屬性的值改為"VB"B、選中該文本框，在屬性窗口中把Caption屬性的值改為"VB"C、雙擊該文本框，在彈出的窗口中輸入"VB"D、單擊該文本框，在該文本框中直接輸入"VB"標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：根據(jù)題意，選中該文本框，在屬性窗口中把Text屬性的值改為"VB"。37、下列控件中，不響應(yīng)Click事件的是A、框架B、標(biāo)簽C、圖像框D、形狀標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：形狀控件不響應(yīng)Click事件。38、下面關(guān)于命令按鈕的敘述中錯(cuò)誤的是A、命令按鈕上可以顯示圖片B、命令按鈕上的文字就是其Caption屬性的值C、在程序運(yùn)行過(guò)程中，不能改變命令按鈕的標(biāo)題D、運(yùn)行程序時(shí)，當(dāng)命令按鈕獲得焦點(diǎn)后，按下回車(chē)鍵也能激活它的Click事件標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：在程序運(yùn)行過(guò)程中，可以改變命令按鈕的標(biāo)題。39、設(shè)窗體上有一個(gè)名稱(chēng)為Check1的復(fù)選框，并有下面程序代碼：PrivateSubCheck1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Check1.Value=1EndSub根據(jù)上面的事件過(guò)程，可以得出結(jié)論A、鼠標(biāo)單擊該復(fù)選框，復(fù)選框的標(biāo)題被改為"1"B、鼠標(biāo)右鍵單擊該復(fù)選框，可以選中該復(fù)選框C、鼠標(biāo)左鍵單擊該復(fù)選框，它被選中，右鍵單擊它，取消選中D、鼠標(biāo)右鍵單擊該復(fù)選框，它被選中，左鍵單擊它，取消選中標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：在鼠標(biāo)單擊事件過(guò)程中，Button屬性值為1時(shí)代表按下鼠標(biāo)左鍵，值為2時(shí)代表按下鼠標(biāo)右鍵，單擊鼠標(biāo)左鍵或者右鍵都能觸發(fā)MouseDown事件。Value屬性值決定每個(gè)復(fù)選框的選中狀態(tài)：0為未選、1為選中、2為不可用(以灰色呈現(xiàn))。選B）。40、設(shè)窗體上有1個(gè)名稱(chēng)為HScroll1的水平滾動(dòng)條，其Max、Min屬性分別設(shè)置為100、1；有2個(gè)名稱(chēng)分別為Option1、Option2的單選按鈕，其標(biāo)題分別為"30"、"50"；還有下面程序代碼：PrivateSubOption1_Click()HScroll1=Val(Option1.Caption)EndSubPrivateSubOption2_Click()HScroll1=Val(Option2.Caption)EndSub程序運(yùn)行時(shí)，單擊Option2單選按鈕，則滾動(dòng)條上滾動(dòng)框的位置是A、在最左邊B、在最右邊C、在中間D、在中間偏左的位置標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：滾動(dòng)條的Value屬性用于設(shè)置滾動(dòng)滑塊所處的位置。Max和Min屬性分別設(shè)置滾動(dòng)條的最大值和最小值，水平滾動(dòng)條的最左端為Min，最右端為Max，Max的值減去Min的值得到當(dāng)前滾動(dòng)條的刻度個(gè)數(shù)。單擊Option2單選按鈕，滾動(dòng)滑塊的位置設(shè)置為50，正好在整個(gè)滾動(dòng)條的中間位置。因此，答案為C）。二、基本操作題(本題共1題，每題1.0分，共1分。)41、(1)在名稱(chēng)為Forml的窗體上添加一個(gè)名稱(chēng)為L(zhǎng)abel1標(biāo)題為“列表框的使用”的標(biāo)簽。再添加一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，列表中含有5個(gè)表項(xiàng)，其內(nèi)容分別為“北京”、“山西”、“遼寧”、“浙江”和“廣東”，并且可以在列表中同時(shí)選擇多個(gè)表項(xiàng)。程序運(yùn)行后的窗體如圖所示。要求：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名保存為sjt1．vbp，窗體文件名保存為sjt1．frm。(2)在名稱(chēng)為Form1的窗體上添加一個(gè)名稱(chēng)為Image1的圖像框，其高、寬分別為2000、3000，且不隨圖片大小而變化；再添加兩個(gè)命令按鈕，標(biāo)題分別是“顯示圖片”和“隱藏圖片”，名稱(chēng)分別為Cmd1、Cmd2，如圖所示。需編寫(xiě)兩個(gè)命令按鈕的Click事件過(guò)程，使得當(dāng)單擊“顯示圖片”按鈕時(shí)，當(dāng)前文件夾下的圖片文件“圖片．jpg”顯示在圖像框中；如果單擊“隱藏圖片”按鈕，則清除圖像框中的圖片。要求：程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名保存為sjt2．vbp，窗體文件名保存為sjt2．frm。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見(jiàn)表3.136。步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。(2)【操作步驟】步驟1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見(jiàn)表3.137。步驟2：編寫(xiě)程序代碼。參考答案PrivateSubCmd1_Click()Image1.Picture=LoadPicture(App.Path&"\圖片.jpg")EndSubPrivateSubCmd2_Click()Image1.Picture=LoadPicture("")EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析三、簡(jiǎn)單應(yīng)用題(本題共1題，每題1.0分，共1分。)42、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp，請(qǐng)?jiān)诖绑w上建立一個(gè)菜單，主菜單項(xiàng)為“項(xiàng)目”(名稱(chēng)為Item)，它有兩個(gè)名稱(chēng)分別為Add和Delete的子菜單項(xiàng)，標(biāo)題分別為“添加項(xiàng)目”和“刪除項(xiàng)目”，然后添加一個(gè)列表框(名稱(chēng)為L(zhǎng)ist1)和一個(gè)文本框(名稱(chēng)為T(mén)ext1)，如圖1所示。編寫(xiě)適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果執(zhí)行“添加項(xiàng)目”命令，則從鍵盤(pán)上輸入要添加到列表框中的項(xiàng)目(內(nèi)容任意，不少于三個(gè))；如果執(zhí)行“刪除項(xiàng)目”命令，則從鍵盤(pán)上輸入要?jiǎng)h除的項(xiàng)目?jī)?nèi)容，將其從列表框中刪除。程序的運(yùn)行情況如圖2所示。在考生文件夾下的工程文件sjt3．vbp(相應(yīng)的窗體文件名為sjt3．frm)，可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的?改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤(pán)。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp(相應(yīng)的窗體文件名為sjt4．frm)，其功能是通過(guò)調(diào)用過(guò)程Sort將數(shù)組按升序排序。程序運(yùn)行后，在4個(gè)文本框中輸入一組整數(shù)(如圖1所示)，然后單擊命令按鈕，即可使數(shù)組從小到大排序，并顯示在文本框中(如圖2所示)。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：打開(kāi)本題工程文件，添加一個(gè)名稱(chēng)為L(zhǎng)ist1列表框和一個(gè)名稱(chēng)為T(mén)ext1文本框，然后建立一個(gè)菜單，其屬性見(jiàn)表3.101。[*343]步驟2：分析并編寫(xiě)程序代碼。程序提供代碼PrivateSubAdd_Click()Text1.Text=InputBox("請(qǐng)輸入要添加的項(xiàng)目")’List1.AddItem?EndSubPrivateSubDelete_Click()Text1.Text=InputBox("請(qǐng)輸入要?jiǎng)h除的項(xiàng)目")’Fori=0To?’IfList1.List(i)=?Then’List1.RemoveItem?EndIfNextiEndSub程序結(jié)束參考答案第1個(gè)？處填入：Text1.Text第2個(gè)？處填入：List1.ListCount-1第3個(gè)？處填入：Text1.Text第4個(gè)？處填入：i步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。(2)【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼OptionBase1PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsInteger’Start=？(a)’Finish=？(a)’Fori=?To2Step-1’Forj=1To?’Ifa(j)?a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4arr2(i)=CInt(arr1(i))NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Text4.Text=arr2(4)EndSub程序結(jié)束參考答案第1個(gè)？處填入：LBound第2個(gè)？處填入：UBound第3個(gè)？處填入：4第4個(gè)？處填入：3第5個(gè)？處填入：>步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析四、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)43、在考生文件夾下有一個(gè)工程文件sjt5．vbp，在其窗體中有一個(gè)實(shí)心圓。程序運(yùn)行時(shí)，當(dāng)用鼠標(biāo)左鍵單擊窗體任何空白位置時(shí)，實(shí)心圓則向單擊位置直線(xiàn)移動(dòng)；若用鼠標(biāo)右鍵單擊窗體，則實(shí)心圓停止移動(dòng)。窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運(yùn)行，不能修改程序的其他部分和控件屬性。最后將修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼DimstepyAsInteger’縱向移動(dòng)增量DimstepxAsInteger’橫向移動(dòng)增量ConstLEFTBUTTON=1PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsIntegerradius=Shape1.Width/2’圓的半徑IfButton=LEFTBUTTONThenx0=Shape1.Left+radius’圓心的x坐標(biāo)y0=Shape1.Top+radius’圓心的y坐標(biāo)Ifx=x0Thenstepy=Sgn(y-y0)*50’stepx=？Elsea=(y-y0)/(x-x0)’斜率stepx=Sgn(x-x0)*50’？=a*stepxIfAbs(stepy)>Abs(stepx)Thenstepy=Sgn(y-y0)*50stepx=stepy/aEndIfEndIf’？=TrueElse’？=FalseEndIfEndSubPrivateSubTimer1_Timer()’Shape1.MoveShape1.Left+stepx,Shape1.Top+?EndSub程序結(jié)束參考答案第1個(gè)？處填入：0第2個(gè)？處填入：stepy第3個(gè)？處填入：Timer1.Enabled第4個(gè)？處填入：Timer1.Enabled第5個(gè)？處填入：stepy步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析國(guó)家二級(jí)（VB）機(jī)試模擬試卷第2套一、選擇題(本題共40題，每題1.0分，共40分。)1、下列敘述中正確的是()。A、程序執(zhí)行的效率與數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)密切相關(guān)B、程序執(zhí)行的效率只取決于程序的控制結(jié)構(gòu)C、程序執(zhí)行的效率只取決于所處理的數(shù)據(jù)量D、以上說(shuō)法均錯(cuò)誤標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：程序執(zhí)行的效率與數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)、數(shù)據(jù)的邏輯結(jié)構(gòu)、程序的控制結(jié)構(gòu)和所處理的數(shù)據(jù)量等有關(guān)。2、下列與隊(duì)列結(jié)構(gòu)有關(guān)聯(lián)的是()。A、函數(shù)的遞歸調(diào)用B、數(shù)組元素的引用C、多重循環(huán)的執(zhí)行D、先到先服務(wù)的作業(yè)調(diào)度標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：隊(duì)列的修改是依“先進(jìn)先出”的原則進(jìn)行的，D正確。3、對(duì)下列二叉樹(shù)進(jìn)行前序遍歷的結(jié)果為()。A、DYBEAFCZXB、YDEBFZXCAC、ABDYECFXZD、ABCDEFXYZ標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：前序遍歷是指在訪(fǎng)問(wèn)根節(jié)點(diǎn)、遍歷左子樹(shù)與遍歷右子樹(shù)這j者中，首先訪(fǎng)問(wèn)根節(jié)點(diǎn)，然后遍歷左子樹(shù)，最后遍歷右子樹(shù)；并且，在遍歷左右子樹(shù)時(shí)，仍然先訪(fǎng)問(wèn)根節(jié)點(diǎn)，然后遍歷左子樹(shù)，最后遍歷右子樹(shù)。前序遍歷描述為：若二叉樹(shù)為空，則執(zhí)行空操作。否則①訪(fǎng)問(wèn)根節(jié)點(diǎn)；②前序遍歷左子樹(shù)；③前序遍歷右子樹(shù)。C正確。4、—個(gè)棧的初始狀態(tài)為空?，F(xiàn)將元素1，2，3，A，B，C依次入棧，然后再依次出棧，則元素出棧的順序是()。A、1，2，3，A，B，CB、C，B，A，1，2，3C、C，B，A，3，2，1D、1，2，3，C，B，A標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：棧的修改是按“后進(jìn)先出”的原則進(jìn)行的，所以順序應(yīng)與入棧順序相反，故選C。5、下面屬于白盒測(cè)試方法的是()。A、等價(jià)類(lèi)射分法B、邏輯覆蓋C、邊界值分析法D、錯(cuò)誤推測(cè)法標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：白盒測(cè)試法主要有邏輯覆蓋、基本路徑測(cè)試等。邏輯覆蓋測(cè)試包括語(yǔ)句覆蓋、路徑覆蓋、判定覆蓋、條件覆蓋、判斷一條件覆蓋，選擇B。其余為黑盒測(cè)試法。6、下面對(duì)對(duì)象概念描述正確的是()。A、對(duì)象間的通信靠消息傳遞B、對(duì)象是名字和方法的封裝體C、任何對(duì)象必須有繼承性D、對(duì)象的多態(tài)性是指一個(gè)對(duì)象有多個(gè)操作標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：對(duì)象之問(wèn)進(jìn)行通信的構(gòu)造叫做消息，A正確。多態(tài)性是指同一個(gè)操作可以是不同對(duì)象的行為，D錯(cuò)誤。對(duì)象不一定必須有繼承性，C錯(cuò)誤。封裝性是指從外面看只能看到對(duì)象的外部特征，而不知道也無(wú)須知道數(shù)據(jù)的具體結(jié)構(gòu)以及實(shí)現(xiàn)操作，B錯(cuò)誤。7、軟件設(shè)計(jì)中模塊劃分應(yīng)遵循的準(zhǔn)則是()。A、低內(nèi)聚低耦合B、高耦合高內(nèi)聚C、高內(nèi)聚低耦合D、以上說(shuō)法均錯(cuò)誤標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：根據(jù)軟件設(shè)計(jì)原理提出如下優(yōu)化準(zhǔn)則：①劃分模塊時(shí)，盡量做到高內(nèi)聚、低耦合，保持模塊相對(duì)獨(dú)立性，并以此原則優(yōu)化初始的軟件結(jié)構(gòu)。②一個(gè)模塊的作用范圍應(yīng)在其控制范圍之內(nèi)，且判定所在的模塊應(yīng)與受其影響的模塊在層次上盡量靠近。③軟件結(jié)構(gòu)的深度、寬度、扇入、扇出應(yīng)適當(dāng)。④模塊的劃、要適中。C正確。8、下面描述中不屬于數(shù)據(jù)庫(kù)系統(tǒng)特點(diǎn)的是()。A、數(shù)據(jù)共享B、數(shù)據(jù)完整性C、數(shù)據(jù)冗余度高D、數(shù)據(jù)獨(dú)立性高標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：數(shù)據(jù)庫(kù)系統(tǒng)的特點(diǎn)為高共享、低冗余、獨(dú)立性高、具有完整性等，C錯(cuò)誤。9、數(shù)據(jù)庫(kù)設(shè)計(jì)過(guò)程不包括()。A、概念設(shè)計(jì)B、邏輯設(shè)計(jì)C、物理設(shè)計(jì)D、算法設(shè)計(jì)標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：數(shù)據(jù)庫(kù)設(shè)計(jì)過(guò)程主要包括需求分析、概念結(jié)構(gòu)設(shè)計(jì)、邏輯結(jié)構(gòu)分析、數(shù)據(jù)庫(kù)物理設(shè)計(jì)、數(shù)據(jù)庫(kù)實(shí)施、數(shù)據(jù)庫(kù)運(yùn)行和維護(hù)階段。答案為D選項(xiàng)。10、有三個(gè)關(guān)系R、S和T如下：則由關(guān)系R和S得到關(guān)系T的操作是()。A、皂簽連接B、交C、投影D、并標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：關(guān)系R和關(guān)系s有公共域，關(guān)系T是通過(guò)公共域的等值進(jìn)行連接的結(jié)果，符合自然連接，選A。11、下面操作中，不能正確保存正在編輯的工程的是()。A、鼠標(biāo)右鍵單擊“工程資源管理器窗口”中該工程的圖標(biāo)，在彈出的菜單中選“保存工程”B、單擊“文件”菜單，在下拉菜單中選“保存工程”C、單擊“工程”菜單，在下拉菜單中選“保存工程”D、直接單擊工具欄上的安鈕標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：“工程”的下拉菜單中沒(méi)有“保存工程”。12、下面為單精度實(shí)型(即單精度浮點(diǎn)型)變量的是()。A、x$B、x&C、x!D、x#標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：$：字符串型，&：長(zhǎng)整型，!：?jiǎn)尉葘?shí)型，#：雙精度實(shí)型。13、語(yǔ)句：PrintInt(Rnd*5+20)的輸出不可能是()。A、20B、22C、24D、25標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：本題考查Rnd隨機(jī)函數(shù)和Int取整函數(shù)，首先Rnd隨機(jī)函數(shù)的范圍為[0，1)，Int函數(shù)的作用是返回不大于自變量的最大整數(shù)，所以當(dāng)Rnd*5后變?yōu)閇0，5)，再加上20變?yōu)閇20，25)，經(jīng)取整后變?yōu)閇20，24]，所以本題的正確答案是選項(xiàng)D。14、設(shè)變量x的值是845，則下面語(yǔ)句的輸出是()。Printx＼100+(xMod100)＼10+xMod10A、17B、548C、845D、485標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：整除運(yùn)算(＼)的結(jié)果是商的整數(shù)部分。例如，7、2表示整除，商為4．5，結(jié)果取整數(shù)部分3，不進(jìn)行四舍五入。如果參加整除的操作數(shù)是浮點(diǎn)數(shù)，則先按四舍五入的原則將它們變成整數(shù)，然后再執(zhí)行整除運(yùn)算。例如，對(duì)于8．5＼2，先將8．5變成9再進(jìn)行整除，商為4．5，結(jié)果為4。取余運(yùn)算(Mod)是求兩個(gè)整數(shù)相除后的余數(shù)。如果參加取余運(yùn)算的操作數(shù)是浮點(diǎn)數(shù)，則先按四舍五入的原則將它們變成整數(shù)，然后再執(zhí)行取余運(yùn)算。例如，對(duì)于8．5、2．1，先將8．5變成9，2．1變成2，然后9除以2與1，因此取余結(jié)果為1。算術(shù)運(yùn)算符的優(yōu)先級(jí)：先乘除，后加減；乘方優(yōu)先于乘除；函數(shù)優(yōu)先于乘方；Mod次于乘除而優(yōu)先于加減；括號(hào)最優(yōu)先。本題中，x＼100結(jié)果為8，(xMod100)＼10結(jié)果為4，xMod10結(jié)果為5，所以輸出為17，選項(xiàng)A正確。15、有下面的程序段：x=InputBox(”字符串”，”輸入”，”請(qǐng)輸入”)Printx如果執(zhí)行上面程序段時(shí)沒(méi)有從鍵盤(pán)輸入任何內(nèi)容就直接按了回車(chē)鍵，則輸出內(nèi)容是()。A、字符串B、輸入C、請(qǐng)輸入D、空白(即未輸出任何內(nèi)容)標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：在題目已給語(yǔ)句中，：InputBox函數(shù)使用了3個(gè)參數(shù)：第一個(gè)參數(shù)“字符串”用于顯示信息；第二個(gè)參數(shù)“輸入”用來(lái)顯示對(duì)話(huà)框的標(biāo)題；第三個(gè)參數(shù)“請(qǐng)輸入”是默認(rèn)輸入值，在輸入?yún)^(qū)顯示出來(lái)。選項(xiàng)c正確。16、在下面語(yǔ)句或函數(shù)中，不能描述選擇結(jié)構(gòu)的是()。A、If語(yǔ)句B、IIf函數(shù)C、SelectCase語(yǔ)句D、While語(yǔ)句標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：While語(yǔ)句不能描述選擇結(jié)構(gòu)。17、如果要在語(yǔ)句：a=Array(1，2，3，4，5)的前面聲明變量a，則正確的聲明是()。A、Dima(4)AsIntegerB、Dima(5)AsVariantC、Dima(1To5)．AsIntegerD、DimaAsVariant標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：Array．函數(shù)只能初始化變體類(lèi)型變量數(shù)組，所以選項(xiàng)D正確。18、在VB中，函數(shù)過(guò)程與子程序過(guò)程的區(qū)別之一是()。A、函數(shù)過(guò)程必須有參數(shù)，而子程序過(guò)程可以沒(méi)有B、函數(shù)過(guò)程的參數(shù)傳遞只采用值傳遞，而子程序過(guò)程只采用地址傳遞C、在程序中，子程序過(guò)程調(diào)用的代碼可以寫(xiě)在表達(dá)式中，而函數(shù)過(guò)程不能D、函數(shù)過(guò)程有返回值，而子程序過(guò)程沒(méi)有標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：在VisualBasic中有兩類(lèi)過(guò)程：一類(lèi)是系統(tǒng)提供的內(nèi)部函數(shù)和事件過(guò)程；另一類(lèi)是用戶(hù)根據(jù)自己的需要定義的，供事件過(guò)程的多次調(diào)用。在第二類(lèi)過(guò)程中，涉及最多的是子過(guò)程。它們的共同點(diǎn)是完成某種特定功能的一組程序代碼；不同的是函數(shù)是可以直接返回值的特殊過(guò)程，所以函數(shù)過(guò)程定義時(shí)有返回值的類(lèi)型說(shuō)明。兩者最大的區(qū)別就是Sub過(guò)程不能直接返回值，而Function過(guò)程能直接返回值。19、設(shè)有以下定義語(yǔ)句：PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面語(yǔ)句中正確的是()。A、a=12B、a．x=12C、point=12D、point．x=12標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：用戶(hù)可以利用Type語(yǔ)句定義自己的數(shù)據(jù)類(lèi)型，其格式如下：Type自定義類(lèi)型名元素名(下標(biāo))As類(lèi)型名…[元素名(下標(biāo))As類(lèi)型名]EndType要表示某個(gè)自定義數(shù)據(jù)類(lèi)型的變量中某個(gè)元素時(shí)，形式如下：變量名，元素名。所以選項(xiàng)B是正確的。20、下面關(guān)于VB數(shù)據(jù)文件的敘述中錯(cuò)誤的是()。A、VB數(shù)據(jù)文件不包括VB的窗體文件B、VB應(yīng)用程序可以用隨機(jī)方式讀寫(xiě)數(shù)據(jù)文件C、VB應(yīng)用程序在讀寫(xiě)數(shù)據(jù)文件之前，必須用Open語(yǔ)句打開(kāi)該文件D、VB應(yīng)用程序不能把一個(gè)二維表格中的數(shù)據(jù)存入文件標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：VisualBasic應(yīng)用程序可以把一個(gè)二維表格中的數(shù)據(jù)存入文件。21、為使文本框具有初始值“VB”，在設(shè)計(jì)階段正確的操作是()。A、選中該文本框，在屬性窗口中把Text屬性的值改為“VB”B、選中該文本框，在屬性窗口中把Caption屬性的值改為“VB”C、雙擊該文本框，在彈出的窗口中輸入“VB”D、單擊該文本框，在該文本框中直接輸入“VB”標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：根據(jù)題意，執(zhí)行選中文本框操作，在屬性窗口中把Text屬性的值改為“VB”。22、下列控件中，不響應(yīng)Click事件的是()。A、框架B、標(biāo)簽C、圖像框D、形狀標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：形狀控件不響應(yīng)Click事件。23、下面關(guān)于命令按鈕的敘述中錯(cuò)誤的是()。A、命令按鈕上可以顯示圖片B、命令按鈕上的文字就是其Caption屬性的值C、在程序運(yùn)行過(guò)程中，不能改變命令按鈕的標(biāo)題D、運(yùn)行程序時(shí)，當(dāng)命令按鈕獲得焦點(diǎn)后，按下Enter鍵也能激活它的Click事件標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：在程序運(yùn)行過(guò)程中，可以改變命令按鈕的標(biāo)題。24、設(shè)窗體上有一個(gè)名稱(chēng)為Check1的復(fù)選框，并有下面程序代碼：PrivateSubChecki_MouseDown(ButtonAsInteger，XAsSingle，YAsSingle)Check1．Value=1EndSub根據(jù)上面的事件過(guò)程，可以得出結(jié)論()。A、鼠標(biāo)單擊該復(fù)選框，復(fù)選框的標(biāo)題被改為“1”B、鼠標(biāo)右鍵單擊該復(fù)選框，可以選中該復(fù)選框C、鼠標(biāo)左鍵單擊該復(fù)選框，它被選中，右鍵單擊它，取消選中D、鼠標(biāo)右鍵單擊該復(fù)選框，它被選中，左鍵單擊它，取消選中標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：在鼠標(biāo)單擊事件過(guò)程中，Button屬性值為1時(shí)代表按下鼠標(biāo)左鍵，值為2時(shí)代表按下鼠標(biāo)右鍵，單擊鼠標(biāo)左鍵或者右鍵都能觸發(fā)MouseDown事件。Vague屬性值決定每個(gè)復(fù)選框的選中狀態(tài)：0為未選、1為選中、2為不可用(以灰色呈現(xiàn))。選B。25、設(shè)窗體上有1個(gè)名稱(chēng)為HScroll1的水平滾動(dòng)條，其Max、Min屬性分別設(shè)置為100、1；有2個(gè)名稱(chēng)分別為Optionl、Option2的單選按鈕，其標(biāo)題分別為“30”、“50”；還有下面程序代碼：PrivateSubOption1_Click()HScroll1=Val(Option1．Caption)EndSubPrivateSubOption2_Click()HScroll1=Val(Option2．Caption)EndSub程序運(yùn)行時(shí)，單擊Option2單選按鈕，則滾動(dòng)條上滾動(dòng)框的位置是()。A、在最左邊B、在最右邊C、在中間D、在中間偏左的位置標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：滾動(dòng)條的Value屬性用于設(shè)置滾動(dòng)條所處的位置。Max和Min屬性分別設(shè)置滾動(dòng)條的最大值和最小值，水平滾動(dòng)條的最左端為Min，最右端為Max，Max的值減去Min的值得到當(dāng)前滾動(dòng)條的刻度個(gè)數(shù)。單擊Option2單選按鈕，滾動(dòng)條的位置設(shè)置為50，正好在整個(gè)滾動(dòng)條的中間。因此，答案為C。26、設(shè)窗體上有一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，并有若干列表項(xiàng)。下面語(yǔ)句中不能在所有列表項(xiàng)之后追加一個(gè)列表項(xiàng)的是()。A、List1．List(List1．ListCount)="VB程序"B、List1．List(List1．ListCount-1)="VB程序"C、List1．AddItem"VB程序"D、List1．Addhem"VB程序"，Listl．ListCount標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：List控件的ListCount屬性返回列表部分項(xiàng)目的個(gè)數(shù)。List1．ListCount-1是倒數(shù)第二個(gè)。故答案選B。27、設(shè)窗體上有一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件，其Interval屬性被設(shè)置為500，Enabled屬性被設(shè)置為T(mén)rue；還有一個(gè)名稱(chēng)為T(mén)ext1的文本框和下面的事件過(guò)程：PrivateSubTimer1_Timer()StaticxAsLongx=x+1Text1=xEndSub程序運(yùn)行一段時(shí)間后，文本框中顯示的是100，則表示()。A、程序已經(jīng)運(yùn)行了100秒B、程序已經(jīng)運(yùn)行了100毫秒C、程序已經(jīng)運(yùn)行了50秒D、文本框到窗體左邊框的距離是100標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：過(guò)程Timer1-Timer()按計(jì)時(shí)器的Interval屬性值定時(shí)運(yùn)行。該屬性用來(lái)設(shè)置計(jì)時(shí)器事件之間的間隔，以毫秒為單位，取值范圍為0～65535，因此其最大時(shí)間間隔不能超過(guò)65秒。文本框中顯示值是100時(shí)，表示Timer1_Timer()運(yùn)行了100次，則運(yùn)行時(shí)間是100*500毫秒=50秒。所以本題答案為C。28、有下面事件過(guò)程：PrivateSubForm_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)IfButton=2ThenForm1．PSet(X，Y)PSet方法可以在X，Y處畫(huà)一個(gè)點(diǎn)EndIfEndSub程序運(yùn)行后，產(chǎn)生的效果是()。A、在窗體上每單擊鼠標(biāo)左鍵一次，就在鼠標(biāo)位置處畫(huà)一個(gè)點(diǎn)B、按著鼠標(biāo)左鍵，移動(dòng)鼠標(biāo)，可在窗體上畫(huà)出鼠標(biāo)的運(yùn)動(dòng)軌跡C、按著鼠標(biāo)右鍵，移動(dòng)鼠標(biāo)，可在窗體上畫(huà)出鼠標(biāo)的運(yùn)動(dòng)軌跡D、不按任何鼠標(biāo)鍵，移動(dòng)鼠標(biāo)，可在窗體上畫(huà)出鼠標(biāo)的運(yùn)動(dòng)軌跡標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：MouseMove中Button是一個(gè)整數(shù)，它對(duì)應(yīng)鼠標(biāo)各個(gè)按鈕的狀態(tài)，如果某個(gè)按鈕按下，其中就有一個(gè)二進(jìn)制位被設(shè)置。Button參數(shù)是具有相應(yīng)于左按鈕(位0)，右按鈕(位1)，以及中間按鈕(位2)的一個(gè)位字段。這些位的值分別等于l，2，和4。它指示這些鼠標(biāo)按鈕的整體狀態(tài)；三個(gè)二進(jìn)制位中的一些、全部、或一個(gè)也沒(méi)有被設(shè)置，指示這些按鈕中的一些、全部、或一個(gè)也沒(méi)有被按下。程序中Button=2表示鼠標(biāo)右鍵被按下。故答案選C。29、下面關(guān)于控件數(shù)組的敘述中正確的是()。A、控件數(shù)組中所有控件的名稱(chēng)相同，但其Index屬性值各不相同B、控件數(shù)組中所有控件的名稱(chēng)相同，但其Value屬性值各不相同C、控件數(shù)組中每個(gè)元素都是獨(dú)立的控件，因此都有各自的事件過(guò)程D、上述都是錯(cuò)誤的標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：控件數(shù)組的Index屬性，標(biāo)識(shí)數(shù)組中的每個(gè)控件，使之與其他控件能夠區(qū)分開(kāi)來(lái)，索引在內(nèi)部必須是唯一的，不能與其他相同。表示在一個(gè)集合中，其他集合的索引與這個(gè)集合的索引無(wú)關(guān)。故答案選A。30、下面關(guān)于菜單的敘述中正確的是()。A、為了使得選中一個(gè)菜單項(xiàng)就可以執(zhí)行某種操作，要為它的Click事件過(guò)程編寫(xiě)執(zhí)行該操作的代碼B、同一級(jí)菜單中的菜單項(xiàng)不能同名，但不同級(jí)菜單中的菜單項(xiàng)可以同名C、只能使用鼠標(biāo)右鍵把彈出式菜單彈出來(lái)D、彈出式菜單中的菜單項(xiàng)不能再有自己的子菜單標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：Click事件在鼠標(biāo)單擊時(shí)觸發(fā)，要選中菜單項(xiàng)就執(zhí)行某種操作，可以在Click事件過(guò)程中編寫(xiě)需要執(zhí)行的操作代碼。A正確。VisualBasic中的菜單項(xiàng)不管是同級(jí)還是不同級(jí)都不允許同名，B錯(cuò)誤。一般情況下，不顯示彈出式菜單。需要時(shí)用PopupMenu方法顯示彈出式菜單。C錯(cuò)誤。VisualBasic中允許有多級(jí)彈出式菜單，D錯(cuò)誤。31、有下面程序代碼：PrivateSubCommand1_Click()Fork=5To1Step-1x=k+x*10NextkPrintxEndSub程序運(yùn)行后，單擊命令按鈕Commandl，輸出結(jié)果是()。A、12345B、54321C、15D、150標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：For循環(huán)用來(lái)對(duì)x賦值。步長(zhǎng)為-1，一共執(zhí)行5次，第一次執(zhí)行完后x=5，第二次執(zhí)行完后x=54，以此類(lèi)推，選B。32、有下面程序代碼：PrivateSubCommand1_Click()a=3s=0Fork=1To5s=s+aModka=a+kNextkPrintsEndSub程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果是()。A、15B、13C、4D、1標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：Mod為求余函數(shù)。For循環(huán)執(zhí)行5次。第一次執(zhí)行時(shí)aModk的值為0，則8=0，8=4；循環(huán)繼續(xù)直到k=5退出。分步計(jì)算可得最后s=4，選C。33、有下面程序代碼：PrivateSubCommand1_Click()DimsignAsIntegersign=1a=1b=2Fork=1To5c=a+sign*ba=bb=cPrintC；sign=-signNextkEndSub程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果是()。A、3-12-3-1B、3581321C、-11-2-1-1D、34567標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：For循環(huán)執(zhí)行5次，運(yùn)行程序，按公式計(jì)算，可依次得出答案，結(jié)果選A。34、有下面程序代碼：PrivateSubCommand1_Click()DimaAsStringa="COMPUTER"n=search(a，"T")PrintIIf(n=0，"未找到"，n)EndSUdPrivateFunctionsearch(strAsString，chAsString)AsIntegerFork=1ToLen(str)c=Mid(str，k，1)Ifc=chThensearch=kExitFunctionEndIfNextksearch=0EndFuncfion程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果是()。A、0B、8C、6D、未找到標(biāo)準(zhǔn)答案：C知識(shí)點(diǎn)解析：Mid函數(shù)從字符串中獲取指定位置的字符值。search函數(shù)中找到相同的字符時(shí)退出循環(huán)，并返回該字符在字符串中的位置。Command1_Click事件中打印查找的結(jié)果。選C。35、有下面程序代碼：PrivateSubCommand1_Click()a=Array(1，2，3，4，5，6，7，8，9，10)n=UBound(a)Fork=0ToUBound(a)／2Printa(k)*a(n)；n=n-1NextkEndSub程序運(yùn)行后，單擊命令按鈕Commandl，輸出結(jié)果是()。A、26122030B、212205690C、3028241810D、1018242830標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：UBound獲取數(shù)組a的上標(biāo)值，n=9。For循環(huán)邊界為0至4。每次執(zhí)行For的循環(huán)體時(shí)均會(huì)進(jìn)行打印。選D。36、有下面程序代碼：PrivateSubCommand1_Click()DimxAsInteger，sAsIntegerx=1Fork=1To3x=x+1procxs=s+xNextkPrintsEndSubPrivateSubproc(ByValaAsInteger)StaticxAsIntegerx=x+1a=a+xEndSub程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果是()。A、6B、9C、15D、19標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：ByVal表示參數(shù)傳遞時(shí)是值傳遞。不改變實(shí)參的值。Command1_Click事件中procx語(yǔ)句不改變x的值。因此可直接按照For循環(huán)的規(guī)律計(jì)算s的值。選B。37、窗體上有1個(gè)Timerl計(jì)時(shí)器，1個(gè)Shape1形狀控件，還有下面程序代碼：DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1．Enabled=TrueTimer1．Interval=1000EndSubPrivateSubTimer1_Timer()IfflagThenShape1．Height=Shape1．Height*2Shape1．Width=Shape1．Width*2ElseShape1．Height=Shape1．Height*0．5Shape1．Width=Shape1．Width*0．5EndIfflag=NotflagEndSub執(zhí)行程序所產(chǎn)生的效果是()。A、Shape1形狀的尺寸在縮小到原來(lái)一半和恢復(fù)原狀這2種狀態(tài)間切換，每秒切換一次B、Shape1形狀的尺寸在擴(kuò)大到原來(lái)2倍和恢復(fù)原狀這2種狀態(tài)間切換，每秒切換一次C、Shape1形狀的尺寸在縮小到原來(lái)一半和擴(kuò)大到原來(lái)2倍這2種狀態(tài)間切換，每秒切換一次D、Shape1形狀的尺寸會(huì)不斷擴(kuò)大標(biāo)準(zhǔn)答案：B知識(shí)點(diǎn)解析：Form_Load過(guò)程中設(shè)定Timer事件定時(shí)觸發(fā)，定時(shí)時(shí)間為1秒；在Timer1_Timer過(guò)程中，Shape1形狀的尺寸在擴(kuò)大到原來(lái)2倍和恢復(fù)原狀，然后退出。下一次Timer事件觸發(fā)時(shí)繼續(xù)這個(gè)過(guò)程。因此，選B。38、有下面程序代碼：OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger，x，bx=InputBox("請(qǐng)輸入一個(gè)多位整數(shù)")Fork=1ToLen(x)b=Mid(x，k，1)a(Val(b)+1)=a(val(b)+1)+1NextkFork=1To10Printa(k)；NextkEndSub程序運(yùn)行時(shí)，單擊命令按鈕Command1，輸入2355270224，則輸出是()。A、1.04112e+009B、4.11201e+008C、2.35527e+009D、4.22073e+009標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：Len函數(shù)獲取整數(shù)的位數(shù)并作為For循環(huán)的邊界。Mid函數(shù)從循環(huán)變量指定的地方獲取字符并賦值給b。Val函數(shù)取b的數(shù)值。For循環(huán)完成對(duì)數(shù)組a的元素賦值。第二個(gè)For循環(huán)進(jìn)行打印。選A。39、設(shè)窗體上有Text1、Text2兩個(gè)文本框，并編寫(xiě)了下面的程序代碼：PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"＜=Chr(KeyAscii)A．ndChr(KeyAscii)＜="Z"ThenKeyAscii=KeyAscii+(Asc("a")-Asc("A"))EndIfn=0IfKeyAscii=13ThenFork=1ToLen(Text1)ch＄=Mid(Textl，k，1)If"a"＜=chAndch＜="z"Thenn=n+1NextkText2=nEndIfEndSub程序運(yùn)行時(shí)，在Text1文本框中輸入“VisualBasic6．0”后按回車(chē)鍵，則在Text2文本框顯示的是()。A、11B、16C、VisualBasic6．0D、visualbasic6．0標(biāo)準(zhǔn)答案：A知識(shí)點(diǎn)解析：Text1_KeyPress過(guò)程中，先把輸入的字符串字母變成小寫(xiě)的。當(dāng)按下Enter鍵后，執(zhí)行For循環(huán)統(tǒng)計(jì)小寫(xiě)字母的個(gè)數(shù)。退出循環(huán)后把n值賦給。Text2。選A。40、工程中有Form1、Form2兩個(gè)窗體(Forml中有文本框Text1，F(xiàn)orm2中有Text1文本框和command1命令按鈕)。Form1是啟動(dòng)窗體。在這些模塊中編寫(xiě)下面的程序代碼：Form1中的代碼如下：PrivateSubText1_DblClick()Text1="VisualBasic"Form2．ShowEndSubForm2中的代碼如下：PrivateSubConmmnd1_Click()Text1=Form1．Text1Form1．ShowEndSub下面關(guān)于程序的敘述中錯(cuò)誤的是()。A、雙擊Form1的Text1后，Text1中顯示“VisualBasic”，彈出Form2B、雙擊Rorm1的Text1后，F(xiàn)orm2成為當(dāng)前窗體C、單擊Form2的命令按鈕，F(xiàn)orm1成為當(dāng)前窗體D、Form2的Text1=Form1．Text1語(yǔ)句不能正確執(zhí)行標(biāo)準(zhǔn)答案：D知識(shí)點(diǎn)解析：本題考查窗體切換的知識(shí)。雙擊Forml的Text1時(shí)觸發(fā)Text1_DblClick事件，Text1中顯示“VisualBasic”，彈出Form2，此時(shí)，F(xiàn)orm2成為當(dāng)前窗體；單擊Form2的命令按鈕時(shí)觸發(fā)Command1_Click事件，F(xiàn)orml成為當(dāng)前窗體。選D。二、基本操作題(本題共1題，每題1.0分，共1分。)41、請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱(chēng)為Form1、標(biāo)題為“控件數(shù)組”的窗體上，添加1個(gè)名稱(chēng)為Cmd1的控件數(shù)組，該控件數(shù)組由三個(gè)命令按鈕組成，其標(biāo)題分別是“插入”、“刪除”和“更新”，索引號(hào)分別為0、1、2。程序運(yùn)行后的窗體如圖所示。*注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名保存為Sjt1．vbp，窗體文件名保存為sjt1．frm。(2)在名稱(chēng)為Forml的窗體上添加1個(gè)名稱(chēng)為T(mén)ext1、內(nèi)容為“計(jì)算機(jī)”的文本框，且文本內(nèi)容顯示為小四號(hào)字；再添加3個(gè)命令按鈕，名稱(chēng)分別為“Command1”、“Command2”和“Command3”，標(biāo)題分別是“居左”、“居中”、“居右”，如圖所示。要求：編寫(xiě)3個(gè)命令按鈕的Click事件過(guò)程，使得單擊“居右”按鈕時(shí)，文本框的內(nèi)容靠右對(duì)齊；單擊“居中”按鈕時(shí)，文本框的內(nèi)容居中對(duì)齊；單擊“居左”按鈕時(shí)，文本框的內(nèi)容將靠左對(duì)齊。程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。*注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名保存為sjt2．vbp，窗體文件名保存為sjt2．frm。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：建立界面，并設(shè)置控件的屬性。程序中涉及控件及屬性見(jiàn)表1。步驟2：調(diào)試并運(yùn)行程