大學(xué)VB考試題庫(kù)一、單項(xiàng)選擇題1、與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比,VisualBasic最突出的特點(diǎn)是()。A、結(jié)構(gòu)化程序設(shè)計(jì)B、程序開發(fā)環(huán)境C、事件驅(qū)動(dòng)編程機(jī)制D、程序調(diào)試技術(shù)2、賦值語(yǔ)句:a=123&MID("123456”,3,2)執(zhí)行后，a變量中的值是().A、”12334”B、123C、12334D、1573、保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是(B)。A、文本文件和工程文件B、窗體文件和工程文件C、窗體文件和標(biāo)準(zhǔn)模塊文件D、類模塊文件和工程文件4、以下能在窗體Forml的標(biāo)題欄中顯示"VisualBasic窗體”的語(yǔ)句是(C).A、Forml.Name="VisualBasic窗體”B、Forml.Title="VisualBasic窗體”C、Forml.Caption=*VisualBasic窗體”D、Forml.Text="VisualBasic窗體”5、為了裝入一個(gè)VisualBasic應(yīng)用程序，應(yīng)當(dāng)(D)A、只裝入窗體文件(.frm)B,只裝入工程文件(.vbp)C、分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)D、分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件6、賦給一個(gè)數(shù)組的數(shù)據(jù)類型一定要(A).A、相同B、不相同C、兩可D、都不對(duì)7、下面正確的賦值語(yǔ)句是(C)oA、x+y=30B、y=it*r*rC、y=x+30D、3y=xA、標(biāo)題欄B、菜單欄C、狀態(tài)欄D、工具欄9、以下敘述中錯(cuò)誤的是(C)。A、VisualBasic是事件驅(qū)動(dòng)型可視化編程工具B、VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句C、VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性(計(jì)時(shí)器)D、VisualBasic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置10、要使Print方法在Form_Load事件中起作用，要對(duì)窗體的(C)屬性進(jìn)行設(shè)置。A、BackcolorB、ForeColorC>AutoRedrawD>BackStyle11、若要使命令按鈕不可操作，要對(duì)(A)屬性進(jìn)行設(shè)制。A、EnabledB、VisibleC、BackColorD、Caption12、以下敘述中錯(cuò)誤的是(B)。A、一個(gè)工程中可以包含多個(gè)窗體文件B、在一個(gè)窗體文件中用Private定義的通用過(guò)程能被其他窗體調(diào)用C、在設(shè)計(jì)VB程序時(shí)，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文件。D、一個(gè)工程默認(rèn)的啟動(dòng)對(duì)象是Forml13、Cis方法可以清除窗體或圖片框中的(C)內(nèi)容。A、在設(shè)計(jì)階段使用Picture設(shè)置的背景位圖B、在設(shè)計(jì)階段放置的控件C、在運(yùn)行階段產(chǎn)生的圖形和文字D、以上均可14、設(shè)x=3,y=5,則以下表達(dá)式值為真的是(C)A、(-3+5>x)And(y>0)B、(x<0)Eqv(y>0)C、(x>y)Or(y>0)D、x>=yAndy>1015、為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)將進(jìn)行(D)設(shè)置。A、將控件的Tabindex屬性設(shè)置為0B、將控件的TabStop屬性設(shè)置為TrueC、將控件的TabStop屬性設(shè)置為FalseD、將控件的Enabled屬性設(shè)置為False16、要判斷在文本框是否按了Enter鍵，應(yīng)在文本框的(D)事件中判斷。A-.ChangeB、KeyDownC、ClickD、KeyPress17、以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是(A)。A、如果文本框的TabStop屬性為False,則不能接收從鍵盤上輸入的數(shù)據(jù)B、當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件C、當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用D、可以用TabIndex屬性改變Tab順序18、如果文本框的Enabled屬性設(shè)為False,則(A)。A,文本框的文本將變成灰色，并且此時(shí)用戶不能將光標(biāo)置于文本框上。B、文本框的文本將變成灰色，用戶仍然能將光標(biāo)置于文本框上，但是不能改變文本框中的內(nèi)容。C、文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容。D、文本框的文本正常顯示，用戶能將光標(biāo)置于文本框上，但是不能改變文本框中的內(nèi)容。19、程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件是(C)。A、MouseDownB、MouseUpC>LoadD、Click20、圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是(B)。A、AutosizeB、StretchC-.AutoRedrawD、Appearance21、為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)設(shè)置的屬性是(D)。A、將控件的Tabindex屬性設(shè)置為0B、將控件的TabStop屬性設(shè)置為TrueC、將控件的TabStop屬性設(shè)置為FalseD、將控件的Enabled屬性設(shè)置為False22、不論何控件，共同具有的是(B)屬性。A、TextB、NameC>ForeColorD、Caption23、以下關(guān)于窗體的描述中，錯(cuò)誤的是(A)。A、執(zhí)行UnloadForml語(yǔ)句后，窗體Forml消失，但仍在內(nèi)存中B、窗體的Load事件在加載窗體時(shí)發(fā)生C、當(dāng)窗體的Enabled屬性為False時(shí)，通過(guò)鼠標(biāo)和鍵盤對(duì)窗體的操作都被禁止D、窗體的Height、Width屬性用于設(shè)置窗體的高和寬24、當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行窗體的(A)事件過(guò)程。A、LoadB>ClickC、UnloadD、GotFocus25、窗體設(shè)計(jì)器是用來(lái)設(shè)計(jì)(B)。A、應(yīng)用程序的代碼段B、應(yīng)用程序的界面C、對(duì)象的屬性D、對(duì)象的事件26、VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了(A)的編程機(jī)制。A、事件驅(qū)動(dòng)B、按過(guò)程順序執(zhí)行C、從主程序開始執(zhí)行D、按模塊順序執(zhí)行27、確定一個(gè)控件在窗體上的位置的屬性是(D)。A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left28、如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是(A)。卜、CaptionB、NameC、BackColorD、BorderStyle29、以下敘述中錯(cuò)誤的是(C)。A、打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B、保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文件及工程文件C、VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)30、以下敘述中錯(cuò)誤的是(B)。A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件B、窗體或控件的事件的名稱可以由編程人員確定C、移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件D、控件的名稱可以由編程人員設(shè)定31、在VisualBasic中最基本的對(duì)象是(C)。它是應(yīng)用程序的基石，是其他控件的容器。A、文本框B、命令按鈕C、窗體D、標(biāo)簽32、以下敘述中正確的是(A)。A、窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體B、窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C、可以在運(yùn)行期間改變對(duì)象的Name屬性的值D、對(duì)象的Name屬性值可以為空33、在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是(0。A、工程資源管理器窗口B、工具箱窗口C、代碼窗口D、屬性窗口34、VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了的編程機(jī)制是(A)。A、事件驅(qū)動(dòng)B、按過(guò)程順序執(zhí)行C、從主程序開始執(zhí)行D、按模塊順序執(zhí)行35、用來(lái)設(shè)置粗體字的屬性是(C)。A、FontltalicB、FontNameC,FontBoldD、FontSize36、如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是(A)。A、如果工程中含有SubMain過(guò)程，則程序一定首先執(zhí)行該過(guò)程B、不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C、用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D、任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體37、為了把焦點(diǎn)移到文本框，所使用的方法是(A)。A、SetFocusB、VisibleC、RefreshD、GetFocus38>INT(100*RND)產(chǎn)生的隨機(jī)整數(shù)的閉區(qū)間是(A)?A、[0,99]B、[1,100]C,[0,100]D、[1,99]39、如果要在命令按鈕上顯示圖形文件，應(yīng)設(shè)置命令按鈕的(B)。A、Style屬性和Graphics屬性B、Style屬性和Picture屬性C、Caption屬性D、Graphics屬性40、若要使命令按鈕不可操作，要對(duì)(A)屬性進(jìn)行設(shè)制。A、EnabledB、VisibleC、BackColorD、Caption41、假定窗體的名稱為Forml,則把窗體的標(biāo)題設(shè)置為"VB_Test”的語(yǔ)句為(B)。A、Forml="VB_Test”B、Forml.Caption="VBTest”C、Forml.Text=wVB_TestwD、F=,<VB_TestM42、以下敘述中錯(cuò)誤的是(A)。A、在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件B、以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件C、窗體文件包含該窗體及其控件的屬性D、一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件43、要使文本框獲得輸入焦點(diǎn)，則應(yīng)采用文本框控件的哪個(gè)方法(A)。A,GotFocusB、LostFocusC、KeyPressD、SetFocus44、以下不能在“工程資源管理器”窗口中列出的文件類型是(B)。A,.basB、.resC、.frmD、.ocx45、剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是(C)。A、單選按鈕B、圖片框C、通用對(duì)話框D、文本框46、以下敘述中錯(cuò)誤的是(B)。A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件B、窗體或控件的事件的名稱可以由編程人員確定C、移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件D、控件的名稱可以由編程人員設(shè)定47、以下能夠觸發(fā)文本框Change事件的操作是(D)。A、文本框失去焦點(diǎn)B、文本框獲得焦點(diǎn)C、設(shè)置文本框的焦點(diǎn)D、改變文本框的內(nèi)容48、以下敘述中錯(cuò)誤的是(0。A、一個(gè)工程中只能有一個(gè)SubMain過(guò)程B、窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體C、窗體的Hide方法和Unload方法的作用完全相同D、若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體49、語(yǔ)句PrintAbs(-6"2)+Int(-6*2)的輸出結(jié)果是(A).A、0B、1C、-1D、-7250、如果將布爾常量值TRUE賦值給一個(gè)整型變量，則整型變量的值為(B)。A、0B、-1C、TRUED、FALSE51、函數(shù)String(n,"str")的功能是(B)。A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串B、返回由n個(gè)字符組成的字符串C、從字符串中取出n個(gè)字符D、從字符串中第n個(gè)字符的位置開始取子字符串52、語(yǔ)句PrintFormat("HelloWorld",)的輸出結(jié)果是(C)。A、helloWORLDB、helloworldC、HELi.OWORLDD、HELLOworld53、聲明符號(hào)常量應(yīng)該用關(guān)鍵字(B)。A、StaticB、ConstC、PrivateD、Variant54、要強(qiáng)制顯示聲明變量，可在窗體模塊或標(biāo)準(zhǔn)模塊的聲明段中加入語(yǔ)句(B)。A、OptionBase0B、OptionExplicitC、OptionBase1D、OptionCompare55、下列可作為VisualBasic變量名的是(D).A、A#AB、4AC、?xyD、constA56、設(shè)a=10,b=5,c=l,執(zhí)行語(yǔ)句Printa>b>c后，窗體上顯示的是(B)。A、TrueB、FalseC、1D,出錯(cuò)信息57、執(zhí)行x$=String(6,"124abc")后，x的值是(B)。A、124abcB、111111C,124D、abc58、設(shè)a=6,則執(zhí)行x=Ilf(a>5,7,0)后，x的值為(D)A、5B、6C、0D、-159、執(zhí)行語(yǔ)句:c$="Glad"&Mid$("Nicetomeetyou"，5,3),則變量c$的值為(C)。A、NicetomeetyouB、GladNicetomeetyouC>GladtoD,Glad60、下面(D)是合法的字符常數(shù)。A、ABC$B、"ABC"C、’ABC'D、ABC61、對(duì)于語(yǔ)句Ifx=lTheny=l,下列說(shuō)法正確的是(C)oA、x=l和y=l均為賦值語(yǔ)句B、x=l和y=l均為關(guān)系表達(dá)式C、x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句D、x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式62、設(shè)有聲明：DimXAsInteger,如果Sgn(X)的值為T,則X的值是(D)。A、任何整數(shù)B、0C、等于0的整數(shù)D、小于0的數(shù)63、在一行內(nèi)寫多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用(B)符號(hào)分隔。A、，B>：C、、D、；64、從鍵盤上輸入兩個(gè)字符串，分別保存在變量strl、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是(D)。A、LeftB、MidC>StringD、Instr65、設(shè)S="中華人民共和國(guó)”，表達(dá)式Left(S,l)+Right(S,1)+Mid(S,3,2)的值為(B)A、"中華民國(guó)"B、"中國(guó)人民”C、"中共人民"D、"人民共和”66、下列可作為VisualBasic中的變量名的是(A).A、FilenameB,A(A+B)C>254DD、Print67、下面(A)是合法的變量名。A、X_yzB、123abcC、IntegerD、X-Y68、以下變量命名非法的是(C).A、xyzl23B、printaaC、booleanD、Bernald69、設(shè)有變量聲明:DimTestDateAsDate,為變量TestDate正確賦值的表達(dá)方式是(A)。A、TextDate=#l/l/2002#B、TestDate=#"1/1/2002''#TextDate=date(a1/1/2002")TestDate-Format("m/d/yy”,“1/1/2002”)70、設(shè)a=2,b=3,c=4,d=5,表達(dá)式a〉bANDc<=d的值是(B)。A、TrueB、FalseC、-1D、171、表達(dá)式6*8Mod9的值是(B)。A、4B、3C、6D、772、假設(shè)變量bool_x是一個(gè)布爾型(邏輯型)的變量，則下面正確的賦值語(yǔ)句是(D)A、bool_x="False"B^bool_x=.False.C、bool_x=#False#D、bool_x=False73、設(shè)2="VisualBasic"，下面使b="Basic”的語(yǔ)句是(B)。A、b=Left(a,8,12)B、b=Mid(a,8,5)C、b=Rigth(a,5,5)D、b=Left(a,8,5)74、語(yǔ)句PrintFormat$(32548.5, 的輸出結(jié)果是(B)oA>32548.5B、32,548.5C、032,548.50D、32,548.5075、以下聲明語(yǔ)句中錯(cuò)誤的是(D)。A、Constvarl=123B、Dimvar2='ABC'C^Dimx_yz%D、Staticvar3AsInteger76、可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是(C)。A、LtrimB、RtrimC、TrimD、Mid77、下列可為合法變量名的是(D)。A、IntegerB、FalseC、publicD、thanksgiving78、變量未賦值時(shí)，數(shù)值型變量的值為(A)oA、0B、空C、1D、無(wú)任何值79、表達(dá)式16/4-23*8/4Mod5\2的值為(B)。14B、4C、20D、280、下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正語(yǔ)句是(D)oA、Ifsex="男"Andage<40And(duty="教授"Orduty="副教授")Thenn=n+lB、Ifsex="男"Andage<40AndInStr(duty,‘教授”)>0Thenn=n+lC、Ifsex="男"Andage<40AndRight(duty,2)=〃教授〃Thenn=n+lD、Ifsex="男"Andage<40Andduty="教授"Andduty="副教授"Thenn=n+l81、設(shè)a=3,b=5,則以下表達(dá)式值為真的是(B)。A^a>=bAndb>10(a>b)0r(b>0)(a<0)or(b<0)(-3+5>a)And(b>0)82、執(zhí)行語(yǔ)句a=InputBox("Today","Tomorrow","Yesterday",,,z，Daybeforeyesterday*,5),將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是(A)。A、TodayB、TomorrowC、YesterdayD、DaybeforeYesterday83、VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的3種基本結(jié)構(gòu)，這3種基本結(jié)構(gòu)是(B)oA、遞歸結(jié)構(gòu)，分支結(jié)構(gòu)，循環(huán)結(jié)構(gòu)B、選擇結(jié)構(gòu)，過(guò)程結(jié)構(gòu)，順序結(jié)構(gòu)C、過(guò)程結(jié)構(gòu)，輸入、輸出結(jié)構(gòu)，轉(zhuǎn)向結(jié)構(gòu)D、分支結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，順序結(jié)構(gòu)84、下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語(yǔ)句是(D).A、Ifsex="男"Andage<40AndInStr(duty,“教授")>0Thenn=n+lIfsex="男"Andage<40And(duty="教授"Orduty="副教授")Thenn=n+lC、Ifsex="男"Andage<40AndRight(duty,2)-"教授"Thenn=n+lD、Ifsex="男"Andage<40Andduty="教授"Andduty="副教授"Thenn=n+l85、當(dāng)語(yǔ)句w=Hf(4>10,“Red"，“Green")執(zhí)行后，變量w中的值是(C).A,NullB、“Red”C、“Green”D、-186、賦值語(yǔ)句：2=123州2(“123456”，3,2)執(zhí)行后,a變量中的值是(D).A,“12334”B、123C、12334D、15787、設(shè)有語(yǔ)句x=lnputBox(“AAAA”，“BBBB”,“")，程序運(yùn)行后，所產(chǎn)生的對(duì)話框的標(biāo)題應(yīng)為⑹。A、AAAAB、空C、BBBBD、出錯(cuò)，不能產(chǎn)生對(duì)話框88、下面正確的賦值語(yǔ)句是(C)oA、x+y=30B、y=n*r*rC、y=x+30D>3y=x89、VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是(D)。A、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)B、選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu)C、過(guò)程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)D、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)90、下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確的是(D).A、Max=IIf(x>y,x,y)B、Ifx>yThenMax=xElseMax=yC、Max=x：Ify>=xThenMax=yD、Ify>xThenMax=y：Max=x91、下列程序段：DimxIfxThenPrintxElsePrintx+1運(yùn)行后，顯示的結(jié)果是(A)oA、1B、0C、-1D、出錯(cuò)92、以下不屬于vb的三種基本結(jié)構(gòu)的是(C)?A、順序結(jié)構(gòu)B、選擇結(jié)構(gòu)C、遞歸結(jié)構(gòu)D、循環(huán)結(jié)構(gòu)93、語(yǔ)句Ifx=lTheny=l,下列說(shuō)法正確的是(C),A、x=l和y=l均為賦值語(yǔ)句B、x=l和y=l均為關(guān)系表達(dá)式C、x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句D、x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式94、賦值語(yǔ)句:a=123&MID(“123456”，3,2)執(zhí)行后,a變量中的值是(C).A,“12334”B、123C、12334D、15795、下面程序段顯示的結(jié)果是(A)oDimxx=Int(Rnd)+5SelectCasexCase5“優(yōu)秀”Case4Print“良好”Case3Print“通過(guò)”CaseElsePrint"不通過(guò)"EndSelectA、優(yōu)秀B、良好C、通過(guò)D、不通過(guò)96、為了給x,y,z這3個(gè)變量賦初值1,下面正確的賦值語(yǔ)句是(A)oA、x=l：y=l：z=lB、x=l,y=l,z=lC^x=y=z=lD、xyz=l97、下列語(yǔ)句正確的是(C)A、IfA#BThenPrint"A不等于B”B、IfAOBThenPrintA不等于BC、IfAOBThenPrint"A不等于B”D、IfArBPrint"A不等于B”98、設(shè)有語(yǔ)句x$=InputBox(“輸入數(shù)值”，“0”，“示例”)，程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是(D)。A、變量X的值是數(shù)值10B、在InputBox對(duì)話框標(biāo)題欄中顯示的是“示例”C,0是默認(rèn)值D、變量X的值是字符串“10”99、運(yùn)行下列程序段后，顯示的結(jié)果為(B)Jl=4:J2=9IfJKJ2ThenPrintJ2ElsePrintjlA、4B、9C,13D、49100、InputBox函數(shù)返回值的類型為(B)。A、數(shù)值B、字符串C、變體D、數(shù)值或字符串(視輸入的數(shù)據(jù)而定)101,一個(gè)數(shù)組說(shuō)明為Dima(0to5,1to5)AsInteger,則該數(shù)組共有(C)個(gè)元素。A、25B>36C>30D、不確定102、數(shù)組聲明語(yǔ)句Dima(2to3,-2to2,3to5)中，數(shù)組a包含元素的個(gè)數(shù)為(C).A、120B、75C、30D、13103>如果在上題語(yǔ)句前加入OptionBase1,則該數(shù)組共有(D)個(gè)元素。A、15B、16C、13D、不確定104>如果有聲明Dima(15)AsInteger,則該數(shù)組共有(B)個(gè)元素。A、15B、16C、13D、不確定105、一個(gè)數(shù)組說(shuō)明為Dima(5,1to5)AsInteger,則該數(shù)組共有(C)個(gè)元素。A、25B、36C、30D、不確定106、在VB中，默認(rèn)的數(shù)組下標(biāo)的下界從0開始，要想在通用聲明段界定下界，則應(yīng)使用(A)oOptionBaseOptionExplicitExplicitD>LowBase107、如下數(shù)組聲明語(yǔ)句，正確的是(B)。A^Dima[3,4]asIntegerB>Dima(3,4)asIntegerC、Dima(n,n)asIntegerD>Dima[3][4)asInteger108、賦給一個(gè)數(shù)組的數(shù)據(jù)的值的類型一定要(A)oA、相同B、不相同C、兩可D、都不對(duì)109、數(shù)組的下標(biāo)可取的變量類型是(A)。A、數(shù)值型B、字符型C、日期型D、可變型110、數(shù)組聲明語(yǔ)句Dima(0to3,-2to2,0to5)中，數(shù)組a包含元素的個(gè)數(shù)為(A)。A、120B、75C、60D、13111>假定有如下的Sub過(guò)程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEndSub程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果(D)oA、54B、11C、1.254D、1.251112、用以下方式聲明的變量，(B)可以在整個(gè)程序中通用？A、在窗體模塊用Dim進(jìn)行聲明B、在窗體模塊用Public進(jìn)行聲明C、在窗體模塊用Private進(jìn)行聲明D、在窗體模塊用Static進(jìn)行聲明113、在窗體上添加一個(gè)命令按鈕和三個(gè)標(biāo)簽，編寫事件過(guò)程：PrivatexAsIntegerPrivateSubCommandl_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+zLabel1.Caption=xLabel2.Caption=yLabe13.Caption=zEndSub程序運(yùn)行后,連續(xù)三次單擊命令按鈕，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是(A)o101010303030303010103030114、以下敘述中錯(cuò)誤的是(D)。A、如果過(guò)程被定義為Static類型，則該過(guò)程中的局部變量都是Static類型B、Sub過(guò)程中不能嵌套定義Sub過(guò)程C、Sub過(guò)程中可以嵌套調(diào)用Sub過(guò)程D、事件過(guò)程可以像通用過(guò)程一樣由用戶定義過(guò)程名115、在在窗體上添加一個(gè)命令按鈕Commandl和一個(gè)文本框Text1,然后編寫如下事件過(guò)程：PrivateSubCommand1Click()DimxAsInteger,yAsInteger,zAslntegerx=5y=7z=0Text1.TextCal1pl(x,y,z)Textl.Text=Str(z)EndSubPrivateSubpl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)c=a+bEndSub程序運(yùn)行后，單擊命令按鈕得到的結(jié)果是(A)oA、12B>0C、Str(z)D、沒有顯示結(jié)果116、如果在程序中要將a定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語(yǔ)句是：(B)RedimaAsIntegerStaticaAsIntegerPublicaAsIntegerDimaAsInteger117、以下程序的運(yùn)行結(jié)果是(C)Subsl(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_C1ick()Dima(lTo4)AsIntegerFori=1To4a(i)=i+5Nextisia()Fori=1To4Printa(i)NextiEndSubTOC\o"1-5"\h\z1214 16186 7 8 92 4 6 81 2 3 4118、以下程序的運(yùn)行結(jié)果是(D)oFunctionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+lc=c+lf=m*b*cEndFunctionPrivateSubCommandl_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEndSubA、12B、28C、32D、24119、下列程序輸出結(jié)果(C)oPrivateSubCommand1_C1ick()Fori=1To10GetValueiNextiPrintGetValue(i)EndSubPrivateFunctionGetValue(ByVaiaAsInteger)StaticSAsIntegerS=S+aGetValue=SEndFunctionA、10B、65C、66D、11120、在過(guò)程定義的變量，若希望在離開該過(guò)程后，還能保存過(guò)程中局部變量的值，則應(yīng)使用(D)關(guān)鍵字在過(guò)程中定義局部變量。A、DimPrivatePublicStatic121、在過(guò)程定義中用(C)表示形參的傳值。A、VarByDefByVaiValue122、在在窗體上添加一個(gè)命令按鈕Commandl和兩個(gè)名稱分別為L(zhǎng)abel1和Label2的標(biāo)簽，然后編寫如下事件過(guò)程:PrivateXAslntegerPrivateSubCommand1_C1ick()X=5:y=3Callproc(X,y)Label1.Caption=XLabe12.Caption=yEndSubSubproc(ByVaiaAsInteger,ByVaibAsInteger)X=a*ay=b+bEndSub程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽labell和labe租中顯示的內(nèi)容分別是(B)。A、25,3B、25,6C、5,3D、5,6123、以下程序的運(yùn)行結(jié)果是(C)。DimxAsInteger,yAsInteger,zAsIntegerSubsl(aAsInteger,bAsInteger)DimcAsIntegera=2*ab=b+2c=a+bEndSubSubs2(aAsInteger,ByValbAsInteger)DimcAsIntegerc=a+bEndSubPrivateSubCommand1Click()x=4：y=：4z=6Callsi(x,y)Printx+y+zCalls2(x,y)Printx+y+zEndSub2428202820182020124、以下關(guān)于過(guò)程及過(guò)程參數(shù)的描述中，錯(cuò)誤的是(C)。A、過(guò)程的參數(shù)可以是控件名稱B、用數(shù)組作為過(guò)程的參數(shù)時(shí)，使用的是“傳地址”方式C、只有函數(shù)過(guò)程能夠?qū)⑦^(guò)程中處理的信息傳回到調(diào)用的程序中D、窗體可以作為過(guò)程的參數(shù)125、以下屬于VisualBasic合法的數(shù)組元素是(C)x8x[8]s(0)v[8]126、下列敘述中正確的是(C)。A,在窗體的Formjoad事件過(guò)程中定義的變量是全局變量B、局部變量的作用域可以超出所定義的過(guò)程C、在某個(gè)Sub過(guò)程中定義的局部變量可以與其它事件過(guò)程中定義的局部變量同名，但其作用域只限于該過(guò)程D、在調(diào)用過(guò)程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串127、假定有以下函數(shù)過(guò)程：FunctionFun(SAsString)AsStringDimsiAsStringFori=1ToLen(S)si=UCase(Mid(S,i,1))+siNextiFun=siEndFunction在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1ClickODimstrlAsString,str2Asstringstrl=lnputBox(“請(qǐng)輸入一個(gè)字符串')str2=Fun(strl)Printstr2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串"abcdefg",單擊“確定〃按鈕后程序在窗體上輸出結(jié)果(D)oabcdefggfedcbaGFEDCBAABCDEFG128、若已編寫了一個(gè)Sort子過(guò)程，在該工程中有多個(gè)窗體，為了方便的調(diào)用Sort子過(guò)程，應(yīng)該將該過(guò)程放在(B)。A、窗體模塊B、標(biāo)準(zhǔn)模塊C、類模塊D、工程129、下面子過(guò)程語(yǔ)句說(shuō)明合法的是(D)Subfl(ByVain()Aslnteger)Functionfl(flAsInteger)AsIntegerSubfl(n()Aslnteger)AsIntegerFunctionfl(ByVainAsInteger)AsInteger130、在過(guò)程定義的變量，若希望在離開該過(guò)程后，還能保存過(guò)程中局部變量的值，則應(yīng)使用(D)關(guān)鍵字在過(guò)程中定義局部變量。A、DimPrivatePublicD、Static131、在窗體上畫三個(gè)單選按鈕，組成一個(gè)名為chkOption的控件數(shù)組。用于標(biāo)識(shí)各個(gè)控件數(shù)組元素的參數(shù)是(D)。A、TagIndexListindexName132、假如列表框(Listl)有四個(gè)數(shù)據(jù)項(xiàng)，那么把數(shù)據(jù)項(xiàng)“China”添加到列表框的最后，應(yīng)使用(D)語(yǔ)句。A、Listl.Additem3,"China”B、Listl.Additem"China”,Listl.ListlCount-1C、Listl.Additem"China”,3D、Listl.Additem"China”133、如果列表框(Listl)中沒有被選定的項(xiàng)目，則執(zhí)行Listl.RemoveItemListl.ListIndex語(yǔ)句的結(jié)果是(D)。A、移去第一項(xiàng)B、移去最后一項(xiàng)C、移去最后加入列表的一項(xiàng)D、以上都不對(duì)134、以下敘述中錯(cuò)誤的是(C)。A、在KeyUp和KeyDown事件過(guò)程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的KeyCode)B、在KeyUp和KeyDown事件過(guò)程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作不同的數(shù)字(具有不同的KeyCode)C、KeyPress事件中不能識(shí)別鍵盤上某個(gè)鍵的按下與釋放D、KeyPress事件中可以識(shí)別鍵盤上某個(gè)鍵的按下與釋放135、設(shè)組合框Combol中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是(B)。A、Combo1.RemoveItemTextB、Combo1.RemoveItem2C>Combo1.RemoveItem3D、Combo1.RemoveItemCombol.Listcount136、下列控件中，沒有Caption屬性的是(B)。A、框架B、列表框C、復(fù)選框D、單選按鈕137、引用列表框(Listl)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是(C)A、Listl.List(Listl.ListCount)B^Listl.List(ListCount)C、Listl.List(Listl.ListCount-1)D、Listl.List(ListCount-1)138、窗體的MouseDown事件過(guò)程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是(A)。A、通過(guò)Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵B,Shift參數(shù)只能用來(lái)確定是否按下Shift鍵C、Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵D、參數(shù)x,y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)139、復(fù)選框的Value屬性為1時(shí)，表示(B)。A、復(fù)選框未被選中B、復(fù)選框被選中C、復(fù)選框內(nèi)有灰色的勾D、復(fù)選框操作有錯(cuò)誤。140、引用列表框的最后一項(xiàng)應(yīng)使用(A)。A、Listl.List(Listl.ListCount-1)B、Listl.List(Listl.ListCount)C-.Listl.List(ListCount)D-.Listl.List(ListCount-1)141、設(shè)窗體上有一個(gè)列表框控件Listl,且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是(D)。A、Listl.ListB、Listl.ListindexC、Listl.IndexD、Listl.Text142、表示滾動(dòng)條控件取值范圍最大值的屬性是(A)。A、MaxLargeChangeValueMax-Min143、為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過(guò)程，需要把該命令按鈕的一個(gè)屬性設(shè)置為True,這個(gè)屬性是(D)。ValueDefaultCancelEnabled144、假如列表框(Listl)有四個(gè)數(shù)據(jù)項(xiàng),那么把數(shù)據(jù)項(xiàng)“China”添加到列表框的最后，應(yīng)使用語(yǔ)句(D)。A、Listl.Additem3,"China”B、Listl.Additem"China”,Listl.ListlCount-1C>Listl.Additem"China”,3D、Listl.Additem"China”,Listl.ListlCount145、復(fù)選框的Value屬性為2時(shí)，表示(C)。A、復(fù)選框未被選中B、復(fù)選框被選中C、復(fù)選框內(nèi)有灰色的勾D、復(fù)選框操作有錯(cuò)誤。146、為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過(guò)程，需要把該命令按鈕的一個(gè)屬性設(shè)置為True,這個(gè)屬性是（A）。ValueDefaultCancelCaption147、下面說(shuō)法不正確的是（D）?A、層菜單不允許設(shè)置快捷鍵B、使菜單項(xiàng)中的文字具有下畫線，可在標(biāo)題文字前加&符號(hào)C、一菜單項(xiàng)名為MenuTerm,則語(yǔ)句MenuTerm.Enable=Flase將使該菜單項(xiàng)失效D、希望在菜單中顯示符號(hào)，則在標(biāo)題欄中輸入符號(hào)148、以下敘述中錯(cuò)誤的是（0。A、在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見的B、在同一個(gè)程序中，用不同的方法（如ShowOpen或ShowSave等）打開的通用對(duì)話框具有不同的作用C、調(diào)用通用對(duì)話框控件的ShowOpen方法，可以直接打開在該通用對(duì)話框中指定的文件D、調(diào)用通用對(duì)話框控件的ShowColor方法，可以打開顏色對(duì)話框149、菜單編輯器中，輸入哪一個(gè)選項(xiàng)（A）會(huì)在菜單欄上顯示文本A、標(biāo)題B、名稱C,索引D、訪問(wèn)鍵150、菜單控件只有一個(gè)事件（B）A、MousellpB、ClickC、DBClickD、KeyPress151、在用通用對(duì)話框控件建立“打開”或“保存”文件對(duì)話框時(shí)，如果需要指定文件列表框所列出的文件類型是文本文件(即.txt文件)，則正確的描述格式是(A)。A、"text(.txt)I(*.txt)”B、“文本文件(,txt)|(.txt)”C、text(.txt)|I(*.txt)”D、Mtext(.txt)(*.txt)ff152、下面哪個(gè)屬性可以控制菜單項(xiàng)可見或不可見(C)HideCheckedVisibleEnabled153、下面說(shuō)法不正確的是(D)A、層菜單不允許設(shè)置快捷鍵B、使菜單項(xiàng)中的文字具有下畫線，可在標(biāo)題文字前加&符號(hào)。C、一菜單項(xiàng)名為MenuTerm,則語(yǔ)句MenuTerm.Enabled=Flase將使該菜單項(xiàng)失效。D、希望在菜單中顯示符號(hào)，則在標(biāo)題欄中輸入符號(hào)。154、下面哪個(gè)屬性可以控制菜單項(xiàng)可見或不可見(C)?A、HideB^CheckedVisibleEnabled155、改變驅(qū)動(dòng)器列表框的Drive屬性將激活(A)事件。A、ChangeB^ScrollC、KeyDownD、KeyUp156、在窗體上建立通用對(duì)話框需要添加的控件是(C)A、Data控件B、Form控件C、CommonDialog控件D、VBComboBox控件157、下面幾個(gè)關(guān)鍵字均表示文件的打開方式，只能進(jìn)行讀不能寫的是(A).InputOutputC^RandomD、Append158、為建一個(gè)隨機(jī)文件，其中每一條記錄由多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成，應(yīng)使用(A),A、記錄類型B、數(shù)組C、字符串類型D、變體類型159、下列說(shuō)法錯(cuò)誤的是(B)oA、當(dāng)用Write#語(yǔ)句寫順序文件時(shí)，文件必須以O(shè)utput或Append方式打開B、用Open語(yǔ)句打開一個(gè)文件時(shí)，對(duì)同一個(gè)文件可以用幾個(gè)不同的文件號(hào)打開C、用Output和Append方式打開文件時(shí)，不用將文件關(guān)閉，就能重新打開文件D、用Append方式打開文件時(shí)，進(jìn)行寫操作，寫入文件的數(shù)據(jù)附加到原來(lái)文件的后面160>執(zhí)行語(yǔ)句Open"Sample.dat"ForRandomAs#1Len=50后，對(duì)文件"Sample,dat”中的數(shù)據(jù)能夠進(jìn)行的操作是(C)?A、只能寫不能讀B、只能讀不能寫C、即可以讀，也可以寫D、不能讀，也不能寫二、填空題1，下面程序?qū)褐獢?shù)組a,刪除數(shù)組中數(shù)組元素中某個(gè)元素PrivateSubCommandl_Click()Dima(),key%,i%,j%a=Array(1,6,8,3,5,9,10,2,7,4)key=Vai(InputBox(〃輸入要?jiǎng)h除的值”))Fori=0ToUBound(a)Ifkey=a(i)ThenForj=i+1ToUBound(a)a(j-1)=a(j)NextjReDimPreservea(UBound(a)-1)MsgBox("刪除完成”)ExitSubEndIfNextiMsgBox(〃找不到要?jiǎng)h除的元素〃)EndSub2,下列程序表示將輸入的一個(gè)數(shù)插入到按遞減的有序數(shù)列中，插入后使該序列仍有序PrivateSubForm_Click()Dima,i%,n%,m%a=Array(19,17,15,13,11,9,7,5,3,1)n=UBound(a)ReDimPreservea(n+1)m=Vai(InputBox("輸入欲插入的數(shù)”))Fori=UBound(a)-1To0Step-1Ifm>=a(i)Thena(i+1)=a(i)Ifi=0Thena(i)=mElsea(i+1)=mExitForEndIfNextiFori=0ToUBound(a)Printa(i)NextiEndSub3,下列程序在1000、9999之間查找滿足如下條件的整數(shù)：該整數(shù)，逆向排列得到的另一個(gè)四位數(shù)是它自身的倍數(shù)(2倍以上)。查找結(jié)果和逆向排列數(shù)分別顯示在對(duì)應(yīng)的列表框PrivateSubCommand1Click()DimnAsIntegerDimmAsIntegerDimiAsIntegerFori=1000To9999m=0n二iDoWhilen>0m=m*10+nMod10n=n\10LoopIfmModi=0Andm\i>1Thenlist1.AdditemiIist2.Additemm&"="&i&&m\iEndIfNextiEndSub4,將100150之間的偶數(shù)，拆分成兩個(gè)素?cái)?shù)之和，最后輸出格式如圖。其中，prime函數(shù)判斷參數(shù)x是否為質(zhì)數(shù)PrivateFunctionprime(ByVaixAsInteger)AsBooleanprime=tureFori=2ToSqr(x)IfxModi=0Thenprime=FalseExitFunctionEndIfNextiEndFunctionPrivateSubForm_Load()i=1Forn=100Tol50Fork=3Ton/2Ifprime(k)Andprime(n-k)ThenPrint1;:;=;k;+;n-kExitForEndIfNextki=i+1Nextn10,子過(guò)程F(N,M,T)對(duì)一個(gè)四位數(shù)n整整數(shù)判斷：已知該整數(shù)n,逆向排列獲得另一個(gè)4位數(shù)m是特自身的倍數(shù)，則t為true表示滿足上述條件。。。PrivateSubCommand1Click()DimtAsBoolean,i%,k%textl=text2=Fori=1000To9999Callf(i,k,t)IftThentextl=textl&i&vbCrLftext2=text2&k& &i&"*"&k\i&vbCrLfEndIfNextiEndSubSubf(ByVain%,ByRefm%,byreyftagAsBoolean)Dimi%Tag=Falsem=0i=nDoWhilei>0m=m*10+iMod10i=i\10LoopIfmModn=0Andm\n>1ThenTag=TrueEndIfEndSub6.8.子過(guò)程MoveStr()是把字符組移動(dòng)m個(gè)位置，當(dāng)Tag為Ture是左移，則前m個(gè)字符一道字符數(shù)組尾,例如，“abcdefghij”左移3個(gè)位置后，結(jié)果為“defghijabc”；。。。。。PublicSubMoveStr(a$(),m%,TagAsBoolean)Dimi%,j%,t$IfTagThenFori=1Tomc=a(0)Forj=0ToUBound(a)-1a(j)=a(j+1)Nextja(UBound(a))-1NextiElseFori=1Tomc=a(UBound(a))Forj=UBound(a)To1Step-1a(j)=a(j-1)Nextja(0)=cNexti9.子過(guò)程CountN用來(lái)統(tǒng)計(jì)字符串中各數(shù)字字符(0-9)出現(xiàn)的個(gè)數(shù)：主調(diào)程序?qū)υ趖extbox1框輸入的文本，每次單擊“統(tǒng)計(jì)”按鈕，調(diào)用該子過(guò)程，在Labell框顯示結(jié)果。PrivateSubCommandl_Click()Dimn(9)AsInteger,i%CallCountN(n(),textl.Text)listl.ClearFori=0To9Ifn(i)Thenlistl.Additem"字符"&i&”出現(xiàn)的次數(shù)為"&n(i)NextEndSubSubCountN(ByRefnum%(),ByVaisAsString)DimcAsString*1,i%,m%,j%Fori=0To9num(i)=0Nextim=Len(s)Fori=1Tomc=Mid(s,i,1)Ifc>="0"Andc<=〃9"Thenj=Vai(c)num(j)=num(j)+1EndIfNextiEndSubL下列程序中的子過(guò)程myplit。。用于實(shí)現(xiàn)split函數(shù)的功能，即將數(shù)字字符S鞍分隔符“，”分離到sArry數(shù)組中，分離的個(gè)數(shù)為n。。。。PrivateSubTextl_KeyPress(KeyAsciiAslnteger)DimstrlAsString,num(100)AsInteger,n%,i%IfKeyAscii=13Thenstrl=Trim(Textl.Text)CallMySplit(strl,num,n)listl.Text=Fori=1Tonlistl.Additemnum(i)NextEndIfEndSubSubMySplit(ByVaistrlAsString,ByRefsnOAsInteger,ByRefnAsInteger)Dimi%,j%,ch$i=0j=InStr(Str,DoWhilej>0sn(i)=Vai(Mid(strl,1,j-D)strl=Mid(strl,j+1)i=i+1j=InStr(strl,Loopsn(i)=Vai(strl)n=iEndSub1工程中有兩個(gè)窗體forml和form2,一個(gè)標(biāo)準(zhǔn)模塊modulel,設(shè)在forml中定義了過(guò)程aa*在modulel中定義了過(guò)程bb。Subaa(x,y,z)z=x*x+y*yEndSubSubbb(x,y,z)z=x3+y3EndSub當(dāng)在forml中單擊命令按鈕時(shí)，調(diào)用以上過(guò)程計(jì)算兩個(gè)數(shù)的平方和和立方和，并分別將計(jì)算結(jié)果顯示在文本框text3和text4中，請(qǐng)?zhí)羁胀瓿烧{(diào)用語(yǔ)句。PrivateSubCommand1Click()a=Val(Textl.Text)b=Val(Text2.Text)Call[aa(a,b,cl)]Text3.Text=clbb[a,b,c2]Text4.Text=c2EndSub2下面的程序用于根據(jù)文本框X中輸入的內(nèi)容進(jìn)行以下處理：若X為2、4、6,則打印"X的值為2、4、6”；若X在11到15之間，則打印”X的值為大于等于11小于等于15"：若X大于20,則打印”X的值大于20”；否則,打印”X不在范圍內(nèi)”。PrivateSubCommand1_C1ick()SelectCaseVai(X.Text)Case[2,4,6]Print"X的值為2,4,6”Case[llto15]Print"X的值為大于等于11小于等于15〃CaseIs>20Print〃X的值大于20〃CaseElsePrint"X不在范圍內(nèi)”EndSelectEndSub3下面的程序是使用冒泡法對(duì)數(shù)組進(jìn)行排序，請(qǐng)將程序補(bǔ)充完整。OptionBase1PrivateSubCommandl_Click()DimiA(0To10)n=6iA(0)=8:iA(l)=6:iA(2)=9:iA(3)=3:iA(4)=2:iA(5)=7Fori=1Ton-11進(jìn)行nT遍比較對(duì)第i遍比較時(shí)，大數(shù)沉底For[j=lton-i]'在數(shù)組i'n個(gè)元素中選最小元素的下標(biāo)If[iA(j)>iA(j+l)]Thent=iA(j)iA(j)=iA(j+1)iA(j+1)=tEndIfNextjEndSub4程序的功能是使用輾轉(zhuǎn)相除法求兩個(gè)數(shù)的最大公約數(shù)。PrivateSubCommandl_Click()Dimm%,n%m=Int(InputBox(^inputaninteger*))n=Int(InputBox(z，inputanotherinteger'))Printgcd(m,n)EndSubPublicFunctiongcd%(m%,n%)Dimt%If[m<n]Thent=m:m=n:n=tDor=mModnIfr=0ThenExitDom=n[n=r]Loopgcd=n5、輸入任意長(zhǎng)度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEF”變換成“FEDCBA”。請(qǐng)將程序補(bǔ)充完整。PrivateSubCommand1Click()Dima$,i%,c$,n%'n存放字符串的長(zhǎng)度a=InputBox(z，inputastring")n=[Len(a)]Fori=1ToInt(n/2)c=Mid(a,i,1)Mid(a,i,1)=[Mid(a,n-i+l,1)]Mid(a,n-i+1,1)=cNextiEndSub6、下面的程序允許用戶按Enter(回車)鍵后，將組合框中沒有的項(xiàng)目添加到組合框。請(qǐng)將程序補(bǔ)充完整。PrivateSubCombo1KeyPress(KeyAsciiAslnteger)DimflagAsBooleanIfKeyAscii=13Thenflag=FalseFori=0ToCombo1.ListCount-1'查找項(xiàng)目是否已存在If[combol.text=combol.list(i)]Thenflag=TrueExitForEndIfNextiIfflag=FalseThen'不存在則添加combol.Additemcombol.TextEndIfEndIfEndSub7、下面的程序是使用選擇法對(duì)數(shù)組進(jìn)行升序排列，請(qǐng)將程序補(bǔ)充完整。OptionBase1PrivateSubCommand1_C1ick()DimiA(lTo10)n=6iA(l)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7Fori=1Ton-11進(jìn)行nT遍比較iMin=i'對(duì)第i遍比較時(shí)，初始假定第i個(gè)元素最小For[j=i+lton]'在數(shù)組i"n個(gè)元素中選最小元素的下標(biāo)If[a(j)<a(imin)]TheniMin=jNextjt=iA(i)'i、n個(gè)元素中選出的最小元素與第i個(gè)元素交換iA(i)=iA(iMin)iA(iMin)=tNextiEndSub8、找出被3、5、7除，余數(shù)均為1的最小的5個(gè)正整數(shù)。PrivateSubCommandl_Click()Dimcountn%,n%n=1:countn=0Don=n+1If[nmod3=1Andnmod5=1Andnmod7=1]ThenPrintncountn=countn+1EndIfLoop[untilcountn=5]EndSub9、下面程序段是檢查輸入的算術(shù)表達(dá)式中圓括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果。本程序在文本框輸入表達(dá)式，邊輸入，邊統(tǒng)計(jì)，以輸入回車鍵作為表達(dá)式輸入結(jié)束，然后顯示結(jié)果。Dimcount1%PrivateSubTextlKeyPress(KeyAsciiAslnteger)If[chr(keyAscii)]="("Thencount1=count1+1ElselfChr(KeyAscii)=*)*Then[countl=countl+l]EndlfIfKeyAscii=13ThenIfcount1=0ThenPrint〃左右括號(hào)配對(duì)“Elselfcount1>0ThenPrint”左括號(hào)多于右括號(hào)”；count1;"個(gè)"ElsePrint〃右括號(hào)多于左括號(hào)“；-countl;〃個(gè)〃EndIfEndlf10、順序文件的建立。建立文件名為“c:\studl.txt”的順序文件，內(nèi)容來(lái)自文本框，每按Enter鍵寫入一條記錄，然后清除文本框的內(nèi)容，直到文本框內(nèi)輸入“END”字符串。PrivateSubForm_Load()Open"c:\studl.txt”ForOutputAs#1Textl.Text=EndSubPrivateSubTextlKeyPress(keyAsciiAslnteger)IfkeyAscii=13ThenIf[Ucase(Textl)="END"]ThenClose#1EndElse[Print#1,Textl]Textl.Text=EndIfEndIfEndSub11、輸入若干字符，統(tǒng)計(jì)有多少個(gè)元音字母、有多少個(gè)其他字母，不區(qū)分大小寫，并顯示結(jié)果。其中，CountY中放元音字母?jìng)€(gè)數(shù)，CountC中放其他字符數(shù)。PrivateSubCommandl_Click()DimCountY%,CountC%,i%DimC$,B$c=Textl.TextFori=1ToLen(C)B=UCase(Mid(C,i,1))If["A"<=BAndB<="Z"]ThenSelectCaseBCaseCountY=CountY+1Case[Else]CountC=CountC+1EndSelectEndIfNextiPrint"元音字母有”;CountY;"個(gè)"Print〃其它字母有"；CountC;〃個(gè)〃EndSub12、將C盤根目錄下的一個(gè)文本文件old.dat復(fù)制到新文件new.dat中，并利用文件操作語(yǔ)句，將old.dat文件從磁盤上刪除。PrivateSubCommandl_Click()Dimstrl$Open"c:\old.dat”ForInputAs#1Open"c:\new.dat”[ForoutputAs#2]DoWhiletNotEoF(l)]LineInput#1,strlPrint#2,strlLoopClose#1,#2KILL"c:\old.dat”EndSub＜PIXTEL_MMI_EB00K_2005＞613、產(chǎn)生［10,37］之間的隨機(jī)整數(shù)的VisualBasic表達(dá)式是［＜int(Rnd*28+10)＞］。判斷s字符變量是大寫字母字符的邏輯表達(dá)式為［＜s＞="A"Ands＜=〃Z"＞］。表示x是5的倍數(shù)或9的倍數(shù)的邏輯表達(dá)式是［VxMod5=0OrxMod9=0＞］Len("vb程序設(shè)計(jì)“)的值是［＜6＞］。表示字符變量s是字母字符(不區(qū)分大小寫)的VB表達(dá)式是［＜Lcase(s)＞=〃a"AndLease(s)＜="z"或者Ucase(s)＞=*A*AndUcase(s)＜=*Z*＞］?將一個(gè)兩位數(shù)x的個(gè)位數(shù)與十位數(shù)交換位置，組成另一個(gè)兩位數(shù),則對(duì)應(yīng)的表達(dá)式是［＜(xMod10)+x\10＞］o隨機(jī)產(chǎn)生一個(gè)“C”?范圍內(nèi)的大寫字符，則對(duì)應(yīng)的VB表達(dá)式是［＜Chr(Int(Rnd*10+68))＞］oRound(-3.5)的值是。Int(3.5)的值是下面程序段運(yùn)行后的輸出結(jié)果是［＜220321422523＞］OFori=0To3PrintTab(5*i+1);"2"+i;"2"&i;Nexti循環(huán)語(yǔ)句Fori=-3to20Step0的循環(huán)次數(shù)是［＜無(wú)數(shù)次》］。在過(guò)程中定義的局部變量，如果希望過(guò)程結(jié)束后還保存變量的值，則應(yīng)使用［〈Static＞］關(guān)鍵字進(jìn)行聲明。由Array函數(shù)建立的數(shù)組，其變量必須是［＜Variant＞］。要使循環(huán)語(yǔ)句循環(huán)執(zhí)行20次，F(xiàn)ork=to-5Step-2,則k=［＜33＞］。循環(huán)語(yǔ)句Fori=-3.5to5.5Step0.5的循環(huán)次數(shù)是。下列程序段中，第41句共執(zhí)行了［＜12＞］次。30Forj=1To12Step340Fork=6To2Step-241Printj,k42Nextk43Nextj循環(huán)語(yǔ)句Fori=-3to20Step4的循環(huán)次數(shù)是［＜6＞］。下面程序運(yùn)行后的輸出結(jié)果是［＜**$$$****$$$$$＞］。a=〃*":b=〃$〃Fori=1To4IfiMod2=0Thenx$=String(Len(a)+i,b)Elsex$=String(Len(a)+i,a)EndIfPrintx$;Nexti下面程序的運(yùn)行結(jié)果是［＜22484＞］ox=242:y=44z=x*yDoUntilnx=yIfx＞yThenx=x-yElsey=y-xLoopPrintx,z/x下列程序段中，第40句共執(zhí)行了［＜4＞］次。30Forj=1To12Step3Fork=6To2Step-2Printj,kNextkNextj如果在建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)[（下劃線或者＞],那么菜單顯示時(shí)形成一個(gè)分隔線如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)［＜&＞］符號(hào)，那么該字母就成了熱鍵字母。［〈Clear》］方法可以清除列表框中的所有內(nèi)容。列表框中的［＜List＞］和Selected兩個(gè)屬性均為數(shù)組。［〈Style＞］屬性設(shè)置為1,單選按鈕和復(fù)選框以圖形方式顯示。當(dāng)用戶單擊滾動(dòng)條的空白處時(shí)，滑塊移動(dòng)的增量由［＜Largechange＞］屬性決定。當(dāng)用戶單擊鼠標(biāo)右鍵時(shí)，MouseDown、MouseUp和MouseMove事件過(guò)程中的Button參數(shù)值為［＜2＞］?列表框中項(xiàng)目的序號(hào)是從［＜0＞］開始的。VisualBasic中有一種控件組合了文本框和列表框的特性，這種控件是［〈組合框＞］。如果窗體的［＜KeyPreview＞］屬性設(shè)置為True,則控件的KeyPress事件過(guò)程可以接收到在窗體的KeyPress過(guò)程中修改過(guò)的值。復(fù)選框的［〈Value＞］屬性設(shè)置為2-Grayed時(shí)，變成灰色，禁止用戶選擇。復(fù)選框的［＜value＞］屬性設(shè)置為2-Grayed時(shí)，復(fù)選框變成灰色，禁止用戶選擇。滾動(dòng)條產(chǎn)生Change事件是因?yàn)樗模邸碫alue〉］屬性值改變了。如果要每隔15秒產(chǎn)生一個(gè)Timer事件，則Interval屬性應(yīng)設(shè)置為［＜15000＞］。當(dāng)用戶單擊滾動(dòng)條兩端的箭頭時(shí)，滑塊移動(dòng)的增量由［＜Smallchange＞］屬性決定。［＜Listl.ListcountT＞］表示列表框(Listl)中最后一項(xiàng)的序號(hào)。VisualBasic提供的對(duì)數(shù)據(jù)文件的三種訪問(wèn)方式為順序訪問(wèn)方式、［〈二進(jìn)制訪問(wèn)方式＞］和隨機(jī)訪問(wèn)方式。編程題1產(chǎn)生1—100以內(nèi)的素?cái)?shù)PrivateSubCommand1_C1ick()Dimi%,j%?tagAsBooleanForj=1To100tag=TrueFori=2Toj-1IfjModi=0Thentag=FalseNextiIftagThenPrintj;NextjEndSub2、從鍵盤輸入任意長(zhǎng)度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。PrivateSubFormClick()Dimi,a,b,nAsStringn=InputBox("輸入字符")i=Len(n)Fora=1Toi/2b=Mid(n,a,1)Mid(n,a,1)=Mid(n,i+1-a,1)Mid(n,i+1-a,1)=bNextaPrintnEndSub3.0到200被5或11整除的數(shù)的和PrivateSubCommand1_C1ick()Dimi%Fori=0To200IfiMod11=0OriMod5=0ThenSum=Sum+iEndIfNextiPrint”總和是"；SumEndSub4輸入一年份，判斷他是否為閏年，并現(xiàn)實(shí)是否是閏年的有關(guān)信息。PrivateSubCommand1Click0Dimy%y=Vai(Text1)IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox(y&"年是閏年”)ElseMsgBox(y&"年是平年")EndIfEndSub5、已知x,y,z3個(gè)變量中存放了3個(gè)不同的數(shù)，比較它們的大小并進(jìn)行調(diào)整，使得x<y<z。PrivateSubCommand1_C1ick()Dimx!,y!,z!x=InputBox(*inputx")y=InputBox(*inputy")z=InputBox(*inputz")Printlab(o); ;x;y;zPrint"排序前："；x「y;*zTOC\o"1-5"\h\zIfx< y Then t = x: x = y: y = t:Ifx< z Then t = x: x = z： z = t:Ify< y Then t = y: y = z: z = t:Prim“排序后："；"〃；x;〃 y; "zEndSub6、求s=a+aa+aaa+...aaaaa(n個(gè)a),其中a和n的