2021年大學(xué)VB考試題庫(kù)

大學(xué)VB考試題庫(kù)一、單項(xiàng)選取題1、與老式程序設(shè)計(jì)語(yǔ)言相比,VisualBasic最突出特點(diǎn)是（）。A、構(gòu)造化程序設(shè)計(jì)B、程序開(kāi)發(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、保存一種工程至少應(yīng)保存兩個(gè)文獻(xiàn)，這兩個(gè)文獻(xiàn)分別是（B）。A、文本文獻(xiàn)和工程文獻(xiàn)B、窗體文獻(xiàn)和工程文獻(xiàn)C、窗體文獻(xiàn)和原則模塊文獻(xiàn)D、類模塊文獻(xiàn)和工程文獻(xiàn)4、如下能在窗體Form1標(biāo)題欄中顯示"VisualBasic窗體"語(yǔ)句是（C）。A、Form1.Name="VisualBasic窗體"B、Form1.Title="VisualBasic窗體"C、Form1.Caption="VisualBasic窗體"D、Form1.Text="VisualBasic窗體"5、為了裝入一種VisualBasic應(yīng)用程序，應(yīng)當(dāng)（D）A、只裝入窗體文獻(xiàn)（.frm）B、只裝入工程文獻(xiàn)（.vbp）C、分別裝入工程文獻(xiàn)和原則模塊文獻(xiàn)（.bas）D、分別裝入工程文獻(xiàn)、窗體文獻(xiàn)和原則模塊文獻(xiàn)6、賦給一種數(shù)組數(shù)據(jù)類型一定要（A）。A、相似B、不相似C、兩可D、都不對(duì)7、下面對(duì)的賦值語(yǔ)句是（C）。A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、VisualBasic6.0集成環(huán)境主窗口中不涉及（C）。A、標(biāo)題欄B、菜單欄C、狀態(tài)欄D、工具欄9、如下論述中錯(cuò)誤是(C)。A、VisualBasic是事件驅(qū)動(dòng)型可視化編程工具B、VisualBasic應(yīng)用程序不具備明顯開(kāi)始和結(jié)束語(yǔ)句C、VisualBasic工具箱中所有控件都具備寬度（Width）和高度（Height）屬性(計(jì)時(shí)器)D、VisualBasic中控件某些屬性只能在運(yùn)營(yíng)時(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、一種工程中可以包括各種窗體文獻(xiàn)B、在一種窗體文獻(xiàn)中用Private定義通用過(guò)程能被其她窗體調(diào)用C、在設(shè)計(jì)VB程序時(shí)，窗體、原則模塊、類模塊等需要分別保存為不同類型磁盤文獻(xiàn)。D、一種工程默認(rèn)啟動(dòng)對(duì)象是Form113、Cls辦法可以清除窗體或圖片框中(C)內(nèi)容。A、在設(shè)計(jì)階段使用Picture設(shè)立背景位圖B、在設(shè)計(jì)階段放置控件C、在運(yùn)營(yíng)階段產(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)營(yíng)后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接受到事件是(C)。A、MouseDownB、MouseUpC、LoadD、Click20、圖像框有一種屬性，可以自動(dòng)調(diào)節(jié)圖形大小，以適應(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、無(wú)論何控件，共同具備是(B)屬性。A、TextB、NameC、ForeColorD、Caption23、如下關(guān)于窗體描述中，錯(cuò)誤是(A)。A、執(zhí)行UnloadForm1語(yǔ)句后，窗體Form1消失，但仍在內(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)營(yíng)程序時(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、從主程序開(kāi)始執(zhí)行D、按模塊順序執(zhí)行27、擬定一種控件在窗體上位置屬性是(D)。A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left28、如果要變化窗體標(biāo)題，則需要設(shè)立屬性是(A)。A、CaptionB、NameC、BackColorD、BorderStyle29、如下論述中錯(cuò)誤是(C)。A、打開(kāi)一種工程文獻(xiàn)時(shí)，系統(tǒng)自動(dòng)裝入與該工程關(guān)于窗體、原則模塊等文獻(xiàn)B、保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文獻(xiàn)及工程文獻(xiàn)C、VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D、事件可以由顧客引起，也可以由系統(tǒng)引起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、如下論述中對(duì)的是(A)。A、窗體Name屬性指定窗體名稱，用來(lái)標(biāo)記一種窗體B、窗體Name屬性值是顯示在窗體標(biāo)題欄中文本C、可以在運(yùn)營(yíng)期間變化對(duì)象Name屬性值D、對(duì)象Name屬性值可覺(jué)得空33、在設(shè)計(jì)階段，當(dāng)雙擊窗體上某個(gè)控件時(shí)，所打開(kāi)窗口是(C)。A、工程資源管理器窗口B、工具箱窗口C、代碼窗口D、屬性窗口34、VisualBasic是一種面向?qū)ο罂梢暬绦蛟O(shè)計(jì)語(yǔ)言，采用了編程機(jī)制是(A)。A、事件驅(qū)動(dòng)B、按過(guò)程順序執(zhí)行C、從主程序開(kāi)始執(zhí)行D、按模塊順序執(zhí)行35、用來(lái)設(shè)立粗體字屬性是(C)。A、FontItalicB、FontNameC、FontBoldD、FontSize36、如果一種工程具有各種窗體及原則模塊，則如下論述中錯(cuò)誤是(A)。A、如果工程中具有SubMain過(guò)程，則程序一定一方面執(zhí)行該過(guò)程B、不能把原則模塊設(shè)立為啟動(dòng)模塊C、用Hide辦法只是隱藏一種窗體，不能從內(nèi)存中清除該窗體D、任何時(shí)刻最多只有一種窗體是活動(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、如果要在命令按鈕上顯示圖形文獻(xiàn)，應(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、假定窗體名稱為Form1,則把窗體標(biāo)題設(shè)立為“VB_Test”語(yǔ)句為(B)。A、Form1=“VB_Test”B、Form1.Caption=“VB_Test”C、Form1.Text=“VB_Test”D、F=“VB_Test”42、如下論述中錯(cuò)誤是(A)。A、在工程資源管理器窗口中只能包括一種工程文獻(xiàn)及屬于該工程其她文獻(xiàn)B、以.BAS為擴(kuò)展名文獻(xiàn)是原則模塊文獻(xiàn)C、窗體文獻(xiàn)包括該窗體及其控件屬性D、一種工程中可以具有各種原則模塊文獻(xiàn)43、要使文本框獲得輸入焦點(diǎn)，則應(yīng)采用文本框控件哪個(gè)辦法(A)。A、GotFocusB、LostFocusC、KeyPressD、SetFocus44、如下不能在“工程資源管理器”窗口中列出文獻(xiàn)類型是(B)。A、.basB、.resC、.frmD、.ocx45、剛建立一種新原則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ò)誤是(C)。A、一種工程中只能有一種SubMain過(guò)程B、窗體Show辦法作用是將指定窗體裝入內(nèi)存并顯示該窗體C、窗體Hide辦法和Unload辦法作用完全相似D、若工程文獻(xiàn)中有各種窗體，可以依照需要指定一種窗體為啟動(dòng)窗體49、語(yǔ)句PrintAbs(-6^2)+Int(-6^2)輸出成果是(A)。A、0B、1C、-1D、-7250、如果將布爾常量值TRUE賦值給一種整型變量，則整型變量值為(B)。A、0B、-1C、TRUED、FALSE51、函數(shù)String(n,"str")功能是(B)。A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串B、返回由n個(gè)字符構(gòu)成字符串C、從字符串中取出n個(gè)字符D、從字符串中第n個(gè)字符位置開(kāi)始取子字符串52、語(yǔ)句PrintFormat(“HelloWorld”,“>”)輸出成果是(C)。A、helloWORLDB、helloworldC、HELLOWORLDD、HELLOworld53、聲明符號(hào)常量應(yīng)當(dāng)用核心字(B)。A、StaticB、ConstC、PrivateD、Variant54、要強(qiáng)制顯示聲明變量，可在窗體模塊或原則模塊聲明段中加入語(yǔ)句(B)。A、OptionBase0B、OptionExplicitC、OptionBase1D、OptionCompare55、下列可作為VisualBasic變量名是(D)。A、A#AB、4AC、?xyD、constA56、設(shè)a=10，b=5，c=1，執(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=IIf(a>5,-1,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=1Theny=1，下列說(shuō)法對(duì)的是（C）。A、x=1和y=1均為賦值語(yǔ)句B、x=1和y=1均為關(guān)系表達(dá)式C、x=1為關(guān)系表達(dá)式，y=1為賦值語(yǔ)句D、x=1為賦值語(yǔ)句，y=1為關(guān)系表達(dá)式62、設(shè)有聲明：DimXAsInteger,如果Sgn(X)值為-1，則X值是(D)。A、任何整數(shù)B、0C、等于0整數(shù)D、不大于0數(shù)63、在一行內(nèi)寫(xiě)多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用(B)符號(hào)分隔。A、，B、：C、、D、；64、從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2中。擬定第二個(gè)字符串在第一種字符串中起始位置函數(shù)是(D)。A、LeftB、MidC、StringD、Instr65、設(shè)S="中華人民共和國(guó)"，表達(dá)式Left（S,1）+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、xyz123B、printaaC、booleanD、Bernald69、設(shè)有變量聲明:DimTestDateAsDate,為變量TestDate對(duì)的賦值表達(dá)方式是(A)。A、TextDate=#1/1/#B、TestDate=#“1/1/”#C、TextDate=date(“1/1/”)D、TestDate=Format(“m/d/yy”,“1/1/”)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是一種布爾型(邏輯型)變量，則下面對(duì)的賦值語(yǔ)句是（D）A、bool_x="False"B、bool_x=.False.C、bool_x=#False#D、bool_x=False73、設(shè)a=“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,“###,###.###”)輸出成果是（B）。A、32548.5B、32,548.5C、032,548.50D、32,548.5075、如下聲明語(yǔ)句中錯(cuò)誤是(D)。A、Constvar1=123B、Dimvar2='ABC'C、Dimx_y_z%D、Staticvar3AsInteger76、可以同步刪除字符串前導(dǎo)和尾部空白函數(shù)是(C)。A、LtrimB、RtrimC、TrimD、Mid77、下列可為合法變量名是(D)。A、IntegerB、FalseC、publicD、thanksgiving78、變量未賦值時(shí)，數(shù)值型變量值為(A)。A、0B、空C、1D、無(wú)任何值79、表達(dá)式16/4-2^5*8/4Mod5\2值為(B)。A、14B、4C、20D、280、下面If語(yǔ)句記錄滿足性別為男、職稱為副專家以上、年齡不大于40歲條件人數(shù)，不正語(yǔ)句是（D）。A、Ifsex="男"Andage＜40And(duty="專家"Orduty="副專家")Thenn=n+1B、Ifsex="男"Andage＜40AndInStr(duty,"專家")＞0Thenn=n+1C、Ifsex="男"Andage＜40AndRight(duty,2)="專家"Thenn=n+1D、Ifsex="男"Andage＜40Andduty="專家"Andduty="副專家"Thenn=n+181、設(shè)a=3,b=5，則如下表達(dá)式值為真是(B)。A、a>=bAndb>10B、(a>b)Or(b>0)C、(a<0)or(b<0)D、(-3+5>a)And(b>0)82、執(zhí)行語(yǔ)句a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)，將顯示一種輸入對(duì)話框，在對(duì)話框輸入?yún)^(qū)中顯示信息是(A)。A、TodayB、TomorrowC、YesterdayD、DaybeforeYesterday83、VB提供了構(gòu)造化程序設(shè)計(jì)3種基本構(gòu)造，這3種基本構(gòu)造是（B）。A、遞歸構(gòu)造，分支構(gòu)造，循環(huán)構(gòu)造B、選取構(gòu)造，過(guò)程構(gòu)造，順序構(gòu)造C、過(guò)程構(gòu)造，輸入、輸出構(gòu)造，轉(zhuǎn)向構(gòu)造D、分支構(gòu)造，循環(huán)構(gòu)造，順序構(gòu)造84、下面If語(yǔ)句記錄滿足性別為男、職稱為副專家以上、年齡不大于40歲條件人數(shù)，不對(duì)的語(yǔ)句是（D）。A、Ifsex=“男”Andage＜40AndInStr(duty,“專家”)＞0Thenn=n+1B、Ifsex=“男”Andage＜40And(duty=“專家”O(jiān)rduty=“副專家”)Thenn=n+1C、Ifsex=“男”Andage＜40AndRight(duty,2)=“專家”Thenn=n+1D、Ifsex=“男”Andage＜40Andduty=“專家”Andduty=“副專家”Thenn=n+185、當(dāng)語(yǔ)句w=IIf(4>10,”Red”,“Green”)執(zhí)行后，變量w中值是（C）。A、NullB、“Red”C、“Green”D、-186、賦值語(yǔ)句：a=123+MID(“123456”,3,2)執(zhí)行后，a變量中值是（D）。A、“12334”B、123C、12334D、15787、設(shè)有語(yǔ)句x=InputBox(“AAAA”，“BBBB”，“”),程序運(yùn)營(yíng)后，所產(chǎn)生對(duì)話框標(biāo)題應(yīng)為(C)。A、AAAAB、空C、BBBBD、出錯(cuò)，不能產(chǎn)生對(duì)話框88、下面對(duì)的賦值語(yǔ)句是（C）。A、x+y=30B、y=π*r*rC、y=x+30D、3y=x89、VB提供了構(gòu)造化程序設(shè)計(jì)三種基本構(gòu)造，三種基本構(gòu)造是(D)。A、遞歸構(gòu)造、選取構(gòu)造、循環(huán)構(gòu)造B、選取構(gòu)造、過(guò)程構(gòu)造、順序構(gòu)造C、過(guò)程構(gòu)造、輸入輸出構(gòu)造、轉(zhuǎn)向構(gòu)造D、選取構(gòu)造、循環(huán)構(gòu)造、順序構(gòu)造90、下面程序段求兩個(gè)數(shù)中大數(shù)，不對(duì)的是（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)營(yíng)后，顯示成果是（A）。A、1B、0C、-1D、出錯(cuò)92、如下不屬于vb三種基本構(gòu)造是（C）？A、順序構(gòu)造B、選取構(gòu)造C、遞歸構(gòu)造D、循環(huán)構(gòu)造93、語(yǔ)句Ifx=1Theny=1,下列說(shuō)法對(duì)的是（C）。A、x=1和y=1均為賦值語(yǔ)句B、x=1和y=1均為關(guān)系表達(dá)式C、x=1為關(guān)系表達(dá)式，y=1為賦值語(yǔ)句D、x=1為賦值語(yǔ)句，y=1為關(guān)系表達(dá)式94、賦值語(yǔ)句：a=123&MID(“123456”,3,2)執(zhí)行后，a變量中值是（C）。A、“12334”B、123C、12334D、15795、下面程序段顯示成果是（A）。Dimxx=Int(Rnd)+5SelectCasexCase5“先進(jìn)”Case4Print“良好”Case3Print“通過(guò)”CaseElsePrint“不通過(guò)”EndSelectA、先進(jìn)B、良好C、通過(guò)D、不通過(guò)96、為了給x,y,z這3個(gè)變量賦初值1，下面對(duì)的賦值語(yǔ)句是（A）。A、x=1：y=1：z=1B、x=1,y=1,z=1C、x=y=z=1D、xyz=197、下列語(yǔ)句對(duì)的是（C）A、IfA≠BThenPrint"A不等于B"B、IfA<>BThenPrintA不等于BC、IfA<>BThenPrint"A不等于B"D、IfA≠BPrint"A不等于B"98、設(shè)有語(yǔ)句x$=InputBox(“輸入數(shù)值”，“0”，“示例”),程序運(yùn)營(yíng)后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列論述中對(duì)的是(D)。A、變量X值是數(shù)值10B、在InputBox對(duì)話框標(biāo)題欄中顯示是“示例”C、0是默認(rèn)值D、變量X值是字符串“10”99、運(yùn)營(yíng)下列程序段后，顯示成果為（B）J1=4：J2=9IfJ1<J2ThenPrintJ2ElsePrintJ1A、4B、9C、13D、49100、InputBox函數(shù)返回值類型為(B)。A、數(shù)值B、字符串C、變體D、數(shù)值或字符串（視輸入數(shù)據(jù)而定）101、一種數(shù)組闡明為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、一種數(shù)組闡明為Dima(5，1to5)AsInteger，則該數(shù)組共有（C）個(gè)元素。A、25B、36C、30D、不擬定106、在VB中，默認(rèn)數(shù)組下標(biāo)下界從0開(kāi)始，要想在通用聲明段界定下界，則應(yīng)使用（A）。A、OptionBaseB、OptionExplicitC、ExplicitD、LowBase107、如下數(shù)組聲明語(yǔ)句，對(duì)的是(B)。A、Dima[3，4]asIntegerB、Dima(3，4)asIntegerC、Dima(n，n)asIntegerD、Dima[3][4)asInteger108、賦給一種數(shù)組數(shù)據(jù)值類型一定要（A）。A、相似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在窗體上添加一種命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5：b=4Sa，bPrinta，bEndSub程序運(yùn)營(yíng)時(shí)，單擊命令按鈕得到成果（D）。A、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è)標(biāo)簽，編寫(xiě)事件過(guò)程：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegerN=10：z=N+z：y=y+z：x=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub程序運(yùn)營(yíng)后，持續(xù)三次單擊命令按鈕，則三個(gè)標(biāo)簽中顯示內(nèi)容分別是（A）。A、101010B、303030C、303010D、103030114、如下論述中錯(cuò)誤是(D)。A、如果過(guò)程被定義為Static類型，則該過(guò)程中局部變量都是Static類型B、Sub過(guò)程中不能嵌套定義Sub過(guò)程C、Sub過(guò)程中可以嵌套調(diào)用Sub過(guò)程D、事件過(guò)程可以像通用過(guò)程同樣由顧客定義過(guò)程名115、在在窗體上添加一種命令按鈕Command1和一種文本框Text1，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()DimxAsInteger，yAsInteger，zAsIntegerx=5y=7z=0Text1.Text=""Callp1(x，y，z)Text1.Text=Str(z)EndSubPrivateSubp1(ByValaAsInteger，ByValbAsInteger，cAsInteger)c=a+bEndSub程序運(yùn)營(yíng)后，單擊命令按鈕得到成果是（A）。A、12B、0C、Str(z)D、沒(méi)有顯示成果116、如果在程序中要將a定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用語(yǔ)句是：（B）A、RedimaAsIntegerB、StaticaAsIntegerC、PublicaAsIntegerD、DimaAsInteger117、如下程序運(yùn)營(yíng)成果是（C）Subs1(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegerFori=1To4a(i)=i+5Nextis1a()Fori=1To4Printa(i)NextiEndSubA、12141618B、6789C、2468D、1234118、如下程序運(yùn)營(yíng)成果是（D）。Functionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1f=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEndSubA、12B、28C、32D、24119、下列程序輸出成果（C）。PrivateSubCommand1_Click()Fori=1To10GetValueiNextiPrintGetValue(i)EndSubPrivateFunctionGetValue(ByValaAsInteger)StaticSAsIntegerS=S+aGetValue=SEndFunctionA、10B、65C、66D、11120、在過(guò)程定義變量，若但愿在離開(kāi)該過(guò)程后，還能保存過(guò)程中局部變量值，則應(yīng)使用(D)核心字在過(guò)程中定義局部變量。A、DimB、PrivateC、PublicD、Static121、在過(guò)程定義中用(C)表達(dá)形參傳值。A、VarB、ByDefC、ByValD、Value122、在在窗體上添加一種命令按鈕Command1和兩個(gè)名稱分別為L(zhǎng)abel1和Label2標(biāo)簽，然后編寫(xiě)如下事件過(guò)程：PrivateXAsIntegerPrivateSubCommand1_Click()X=5：y=3Callproc(X，y)Label1.Caption=XLabel2.Caption=yEndSubSubproc(ByValaAsInteger，ByValbAsInteger)X=a*ay=b+bEndSub程序運(yùn)營(yíng)后，單擊命令按鈕，則兩個(gè)標(biāo)簽label1和label2中顯示內(nèi)容分別是（B）。A、25,3B、25,6C、5,3D、5,6123、如下程序運(yùn)營(yíng)成果是（C）。DimxAsInteger，yAsInteger，zAsIntegerSubs1(aAsInteger，bAsInteger)DimcAsIntegera=2*ab=b+2c=a+bEndSubSubs2(aAsInteger，ByValbAsInteger)DimcAsIntegera=2*ab=b+2c=a+bEndSubPrivateSubCommand1_Click()x=4：y=：4z=6Calls1(x，y)Printx+y+zCalls2(x，y)Printx+y+zEndSubA、2428B、2028C、2018D、2020124、如下關(guān)于過(guò)程及過(guò)程參數(shù)描述中，錯(cuò)誤是(C)。A、過(guò)程參數(shù)可以是控件名稱B、用數(shù)組作為過(guò)程參數(shù)時(shí)，使用是“傳地址”方式C、只有函數(shù)過(guò)程可以將過(guò)程中解決信息傳回到調(diào)用程序中D、窗體可以作為過(guò)程參數(shù)125、如下屬于VisualBasic合法數(shù)組元素是（C）A、x8B、x［8］C、s(0)D、v[8]126、下列論述中對(duì)的是(C)。A、在窗體Form_Load事件過(guò)程中定義變量是全局變量B、局部變量作用域可以超過(guò)所定義過(guò)程C、在某個(gè)Sub過(guò)程中定義局部變量可以與其他事件過(guò)程中定義局部變量同名，但其作用域只限于該過(guò)程D、在調(diào)用過(guò)程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串127、假定有如下函數(shù)過(guò)程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S，i，1))+s1NextiFun=s1EndFunction在窗體上添加一種命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()Dimstr1AsString，str2AsStringstr1=InputBox("請(qǐng)輸入一種字符串")str2=Fun(str1)Printstr2EndSub程序運(yùn)營(yíng)后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串“abcdefg”，單擊"擬定"按鈕后程序在窗體上輸出成果（D）。A、abcdefgB、gfedcbaC、GFEDCBAD、ABCDEFG128、若已編寫(xiě)了一種Sort子過(guò)程，在該工程中有各種窗體，為了以便調(diào)用Sort子過(guò)程，應(yīng)當(dāng)將該過(guò)程放在(B)。A、窗體模塊B、原則模塊C、類模塊D、工程129、下面子過(guò)程語(yǔ)句闡明合法是（D）A、Subf1（ByValn()AsInteger）B、Functionf1（f1AsInteger）AsIntegerC、Subf1（n()AsInteger）AsIntegerD、Functionf1（ByValnAsInteger）AsInteger130、在過(guò)程定義變量，若但愿在離開(kāi)該過(guò)程后，還能保存過(guò)程中局部變量值，則應(yīng)使用(D)核心字在過(guò)程中定義局部變量。A、DimB、PrivateC、PublicD、Static131、在窗體上畫(huà)三個(gè)單選按鈕，構(gòu)成一種名為chkOption控件數(shù)組。用于標(biāo)記各個(gè)控件數(shù)組元素參數(shù)是(D)。A、TagB、IndexC、ListIndexD、Name132、如果列表框（List1）有四個(gè)數(shù)據(jù)項(xiàng)，那么把數(shù)據(jù)項(xiàng)“China”添加到列表框最后，應(yīng)使用(D)語(yǔ)句。A、List1.AddItem3，"China"B、List1.AddItem"China"，List1.List1Count-1C、List1.AddItem"China"，3D、List1.AddItem"China"133、如果列表框（List1）中沒(méi)有被選定項(xiàng)目，則執(zhí)行List1.RemoveItemList1.ListIndex語(yǔ)句成果是(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事件中不能辨認(rèn)鍵盤上某個(gè)鍵按下與釋放D、KeyPress事件中可以辨認(rèn)鍵盤上某個(gè)鍵按下與釋放135、設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則如下能刪除最后一項(xiàng)語(yǔ)句是(B)。A、Combo1.RemoveItemTextB、Combo1.RemoveItem2C、Combo1.RemoveItem3D、Combo1.RemoveItemCombo1.Listcount136、下列控件中，沒(méi)有Caption屬性是(B)。A、框架B、列表框C、復(fù)選框D、單選按鈕137、引用列表框（List1）最后一種數(shù)據(jù)項(xiàng)應(yīng)使用表達(dá)式是（C）A、List1.List(List1.ListCount)B、List1.List(ListCount)C、List1.List(List1.ListCount-1)D、List1.List(ListCount-1)138、窗體MouseDown事件過(guò)程Form_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)有4個(gè)參數(shù)，關(guān)于這些參數(shù)，對(duì)的描述是(A)。A、通過(guò)Button參數(shù)鑒定當(dāng)前按下是哪一種鼠標(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í)，表達(dá)(B)。A、復(fù)選框未被選中B、復(fù)選框被選中C、復(fù)選框內(nèi)有灰色勾D、復(fù)選框操作有錯(cuò)誤。140、引用列表框最后一項(xiàng)應(yīng)使用(A)。A、List1.List(List1.ListCount-1)B、List1.List(List1.ListCount)C、List1.List(ListCount)D、List1.List(ListCount-1)141、設(shè)窗體上有一種列表框控件List1，且其中具有若干列表項(xiàng)。則如下能表達(dá)當(dāng)前被選中列表項(xiàng)內(nèi)容是(D)。A、List1.ListB、List1.ListIndexC、List1.IndexD、List1.Text142、表達(dá)滾動(dòng)條控件取值范疇最大值屬性是(A)。A、MaxB、LargeChangeC、ValueD、Max-Min143、為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕Click事件過(guò)程，需要把該命令按鈕一種屬性設(shè)立為True，這個(gè)屬性是(D)。A、ValueB、DefaultC、CancelD、Enabled144、如果列表框（List1）有四個(gè)數(shù)據(jù)項(xiàng)，那么把數(shù)據(jù)項(xiàng)“China”添加到列表框最后，應(yīng)使用語(yǔ)句(D)。A、List1.AddItem3，"China"B、List1.AddItem"China"，List1.List1Count-1C、List1.AddItem"China"，3D、List1.AddItem"China"，List1.List1Count145、復(fù)選框Value屬性為2時(shí)，表達(dá)(C)。A、復(fù)選框未被選中B、復(fù)選框被選中C、復(fù)選框內(nèi)有灰色勾D、復(fù)選框操作有錯(cuò)誤。146、為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕事件過(guò)程，需要把該命令按鈕一種屬性設(shè)立為True，這個(gè)屬性是(A)。A、ValueB、DefaultC、CancelD、Caption147、下面說(shuō)法不對(duì)的是（D）?A、層菜單不容許設(shè)立快捷鍵B、使菜單項(xiàng)中文字具備下畫(huà)線，可在標(biāo)題文字前加&符號(hào)C、一菜單項(xiàng)名為MenuTerm，則語(yǔ)句MenuTerm.Enable=Flase將使該菜單項(xiàng)失效D、但愿在菜單中顯示"&"符號(hào)，則在標(biāo)題欄中輸入"&"符號(hào)148、如下論述中錯(cuò)誤是(C)。A、在程序運(yùn)營(yíng)時(shí)，通用對(duì)話框控件是不可見(jiàn)B、在同一種程序中，用不同辦法(如ShowOpen或ShowSave等）打開(kāi)通用對(duì)話框具備不同作用C、調(diào)用通用對(duì)話框控件ShowOpen辦法，可以直接打開(kāi)在該通用對(duì)話框中指定文獻(xiàn)D、調(diào)用通用對(duì)話框控件ShowColor辦法，可以打開(kāi)顏色對(duì)話框149、菜單編輯器中，輸入哪一種選項(xiàng)（A）會(huì)在菜單欄上顯示文本A、標(biāo)題B、名稱C、索引D、訪問(wèn)鍵150、菜單控件只有一種事件（B）A、MouseUpB、ClickC、DBClickD、KeyPress151、在用通用對(duì)話框控件建立“打開(kāi)”或“保存”文獻(xiàn)對(duì)話框時(shí)，如果需要指定文獻(xiàn)列表框所列出文獻(xiàn)類型是文本文獻(xiàn)(即.txt文獻(xiàn))，則對(duì)的描述格式是(A)。A、“text(.txt)|(*.txt)”B、“文本文獻(xiàn)(.txt)|(.txt)”C、“text(.txt)||(*.txt)”D、“text(.txt)(*.txt)”152、下面哪個(gè)屬性可以控制菜單項(xiàng)可見(jiàn)或不可見(jiàn)（C）A、HideB、CheckedC、VisibleD、Enabled153、下面說(shuō)法不對(duì)的是（D）A、層菜單不容許設(shè)立快捷鍵B、使菜單項(xiàng)中文字具備下畫(huà)線，可在標(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)可見(jiàn)或不可見(jiàn)（C）?A、HideB、CheckedC、VisibleD、Enabled155、變化驅(qū)動(dòng)器列表框Drive屬性將激活（A）事件。A、ChangeB、ScrollC、KeyDownD、KeyUp156、在窗體上建立通用對(duì)話框需要添加控件是（C）A、Data控件B、Form控件C、CommonDialog控件D、VBComboBox控件157、下面幾種核心字均表達(dá)文獻(xiàn)打開(kāi)方式，只能進(jìn)行讀不能寫(xiě)是（A）。A、InputB、OutputC、RandomD、Append158、為建一種隨機(jī)文獻(xiàn)，其中每一條記錄由各種不同數(shù)據(jù)類型數(shù)據(jù)項(xiàng)構(gòu)成，應(yīng)使用（A）。A、記錄類型B、數(shù)組C、字符串類型D、變體類型159、下列說(shuō)法錯(cuò)誤是（B）。A、當(dāng)用Write#語(yǔ)句寫(xiě)順序文獻(xiàn)時(shí)，文獻(xiàn)必要以O(shè)utput或Append方式打開(kāi)B、用Open語(yǔ)句打開(kāi)一種文獻(xiàn)時(shí)，對(duì)同一種文獻(xiàn)可以用幾種不同文獻(xiàn)號(hào)打開(kāi)C、用Output和Append方式打開(kāi)文獻(xiàn)時(shí)，不用將文獻(xiàn)關(guān)閉，就能重新打開(kāi)文獻(xiàn)D、用Append方式打開(kāi)文獻(xiàn)時(shí)，進(jìn)行寫(xiě)操作，寫(xiě)入文獻(xiàn)數(shù)據(jù)附加到本來(lái)文獻(xiàn)背面160、執(zhí)行語(yǔ)句Open"Sample.dat"ForRandomAs#1Len=50后，對(duì)文獻(xiàn)"Sample.dat"中數(shù)據(jù)可以進(jìn)行操作是(C)。A、只能寫(xiě)不能讀B、只能讀不能寫(xiě)C、即可以讀，也可以寫(xiě)D、不能讀，也不能寫(xiě)二、填空題1，下面程序?qū)σ阎獢?shù)組a，刪除數(shù)組中數(shù)組元素中某個(gè)元素PrivateSubCommand1_Click()Dima()，key%，i%，j%a=Array(1，6，8，3，5，9，10，2，7，4)key=Val(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，下列程序表達(dá)將輸入一種數(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=Val(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ù)，逆向排列得到另一種四位數(shù)是它自身倍數(shù)（2倍以上）。查找成果和逆向排列數(shù)分別顯示在相應(yīng)列表框PrivateSubCommand1_Click()DimnAsIntegerDimmAsIntegerDimiAsIntegerFori=1000To9999m=0n=iDoWhilen>0m=m*10+nMod10n=n\10LoopIfmModi=0Andm\i>1Thenlist1.AddItemilist2.AddItemm&"="&i&"*"&m\iEndIfNextiEndSub4，將100~150之間偶數(shù)，拆提成兩個(gè)素?cái)?shù)之和，最后輸出格式如圖。其中，prime函數(shù)判斷參數(shù)x與否為質(zhì)數(shù)PrivateFunctionprime(ByValxAsInteger)AsBooleanprime=tureFori=2ToSqr(x)IfxModi=0Thenprime=FalseExitFunctionEndIfNextiEndFunctionPrivateSubForm_Load()i=1Forn=100To150Fork=3Ton/2Ifprime(k)Andprime(n-k)ThenPrinti；":"；"="；k；"+"；n-kExitForEndIfNextki=i+1NextnEndSub10,子過(guò)程F（N，M，T）對(duì)一種四位數(shù)n整整數(shù)判斷：已知該整數(shù)n，逆向排列獲得另一種4位數(shù)m是特自身倍數(shù)，則t為true表達(dá)滿足上述條件。。。PrivateSubCommand1_Click()DimtAsBoolean，i%，k%text1=""text2=""Fori=1000To9999Callf(i，k，t)IftThentext1=text1&i&vbCrLftext2=text2&k&"="&i&"*"&k\i&vbCrLfEndIfNextiEndSubSubf(ByValn%，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è)位置后，成果為“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)=cNextiEndIfEndSub6.9.子過(guò)程CountN用來(lái)記錄字符串中各數(shù)字字符（0-9）浮現(xiàn)個(gè)數(shù)；主調(diào)程序?qū)υ趖extbox1框輸入文本，每次單擊“記錄”按鈕，調(diào)用該子過(guò)程，在Label1框顯示成果。PrivateSubCommand1_Click()Dimn(9)AsInteger，i%CallCountN(n()，text1.Text)list1.ClearFori=0To9Ifn(i)Thenlist1.AddItem"字符"&i&"浮現(xiàn)次數(shù)為"&n(i)NextEndSubSubCountN(ByRefnum%()，ByValsAsString)DimcAsString*1，i%，m%，j%Fori=0To9num(i)=0Nextim=Len(s)Fori=1Tomc=Mid(s，i，1)Ifc>="0"Andc<="9"Thenj=Val(c)num(j)=num(j)+1EndIfNextiEndSub6.11.下列程序中子過(guò)程myplit。。用于實(shí)現(xiàn)split函數(shù)功能，即將數(shù)字字符s鞍分隔符“，”分離到sArry數(shù)組中，分離個(gè)數(shù)為n。。。。PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrlAsString，num(100)AsInteger，n%，i%IfKeyAscii=13Thenstr1=Trim(Text1.Text)CallMySplit(str1，num，n)list1.Text=""Fori=1Tonlist1.AddItemnum(i)NextEndIfEndSubSubMySplit(ByValstr1AsString，ByRefsn()AsInteger，ByRefnAsInteger)Dimi%，j%，ch$i=0j=InStr(Str，",")DoWhilej>0sn(i)=Val(Mid(str1，1，j-1))str1=Mid(str1，j+1)i=i+1j=InStr(str1，",")Loopsn(i)=Val(str1)n=iEndSub1工程中有兩個(gè)窗體form1和form2，一種原則模塊module1，設(shè)在form1中定義了過(guò)程aa，在module1中定義了過(guò)程bb。Subaa(x，y，z)z=x*x+y*yEndSubSubbb(x，y，z)z=x^3+y^3EndSub當(dāng)在form1中單擊命令按鈕時(shí)，調(diào)用以上過(guò)程計(jì)算兩個(gè)數(shù)平方和和立方和，并分別將計(jì)算成果顯示在文本框text3和text4中，請(qǐng)?zhí)羁胀戤呎{(diào)用語(yǔ)句。PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Call[aa(a,b,c1)]Text3.Text=c1bb[a,b,c2]Text4.Text=c2EndSub――――――――――――――――――2下面程序用于依照文本框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_Click()SelectCaseVal(X.Text)Case[2,4,6]Print"X值為2,4,6"Case[11to15]Print"X值為不不大于等于11不大于等于15"CaseIs>20Print"X值不不大于20"CaseElsePrint"X不在范疇內(nèi)"EndSelectEndSub――――――――――――――3下面程序是使用冒泡法對(duì)數(shù)組進(jìn)行排序，請(qǐng)將程序補(bǔ)充完整。OptionBase1PrivateSubCommand1_Click()DimiA(0To10)n=6iA(0)=8：iA(1)=6：iA(2)=9：iA(3)=3：iA(4)=2：iA(5)=7Fori=1Ton-1'進(jìn)行n-1遍比較'對(duì)第i遍比較時(shí)，大數(shù)沉底For[j=1ton-i]'在數(shù)組i~n個(gè)元素中選最小元素下標(biāo)If[iA(j)>iA(j+1)]Thent=iA(j)iA(j)=iA(j+1)iA(j+1)=tEndIfNextjEndSub――――――――――――4程序功能是使用輾轉(zhuǎn)相除法求兩個(gè)數(shù)最大公約數(shù)。PrivateSubCommand1_Click()Dimm%，n%m=Int(InputBox("inputaninteger"))n=Int(InputBox("inputanotherinteger"))Printgcd(m，n)EndSubPublicFunctiongcd%(m%，n%)Dimt%If[m<n]Thent=m：m=n：n=tDor=mModnIfr=0ThenExitDom=n[n=r]Loopgcd=nEndFunction―――――――――5、輸入任意長(zhǎng)度字符串，規(guī)定將字符順序倒置，例如，將輸入“ABCDEF”變換成“FEDCBA”。請(qǐng)將程序補(bǔ)充完整。PrivateSubCommand1_Click()Dima$，i%，c$，n%'n存儲(chǔ)字符串長(zhǎng)度a=InputBox("inputastring")n=[Len(a)]Fori=1ToInt(n/2)c=Mid(a，i，1)Mid(a，i，1)=[Mid(a,n-i+1,1)]Mid(a，n-i+1，1)=cNextiEndSub――――――――――6、下面程序容許顧客按Enter(回車)鍵后，將組合框中沒(méi)有項(xiàng)目添加到組合框。請(qǐng)將程序補(bǔ)充完整。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)DimflagAsBooleanIfKeyAscii=13Thenflag=FalseFori=0ToCombo1.ListCount-1'查找項(xiàng)目與否已存在If[combo1.text=combo1.list(i)]Thenflag=TrueExitForEndIfNextiIfflag=FalseThen'不存在則添加[combo1.AddItemcombo1.Text]EndIfEndIfEndSub―――――――――7、下面程序是使用選取法對(duì)數(shù)組進(jìn)行升序排列，請(qǐng)將程序補(bǔ)充完整。OptionBase1PrivateSubCommand1_Click()DimiA(1To10)n=6iA(1)=8：iA(2)=6：iA(3)=9：iA(4)=3：iA(5)=2：iA(6)=7Fori=1Ton-1'進(jìn)行n-1遍比較iMin=i'對(duì)第i遍比較時(shí)，初始假定第i個(gè)元素最小For[j=i+1ton]'在數(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)=tNextiEndSub―――――――――――8、找出被3、5、7除，余數(shù)均為1最小5個(gè)正整數(shù)。PrivateSubCommand1_Click()Dimcountn%，n%n=1：countn=0Don=n+1If[nmod3=1Andnmod5=1Andnmod7=1]ThenPrintncountn=countn+1EndIfLoop[untilcountn=5]EndSub――――――――――――――9、下面程序段是檢查輸入算術(shù)表達(dá)式中圓括號(hào)與否配對(duì)，并顯示相應(yīng)成果。本程序在文本框輸入表達(dá)式，邊輸入，邊記錄，以輸入回車鍵作為表達(dá)式輸入結(jié)束，然后顯示成果。Dimcount1%PrivateSubText1_KeyPress(KeyAsciiAsInteger)If[chr(keyAscii)]="("Thencount1=count1+1ElseIfChr(KeyAscii)=")"Then[count1=count1+1]EndIfIfKeyAscii=13ThenIfcount1=0ThenPrint"左右括號(hào)配對(duì)"ElseIfcount1>0ThenPrint"左括號(hào)多于右括號(hào)"；count1；"個(gè)"ElsePrint"右括號(hào)多于左括號(hào)"；-count1；"個(gè)"EndIfEndIfEndSub――――――――――――10、順序文獻(xiàn)建立。建立文獻(xiàn)名為“c:\stud1.txt”順序文獻(xiàn)，內(nèi)容來(lái)自文本框，每按Enter鍵寫(xiě)入一條記錄，然后清除文本框內(nèi)容，直到文本框內(nèi)輸入“END”字符串。PrivateSubForm_Load()Open“c:\stud1.txt”ForOutputAs#1Text1.Text=“”EndSubPrivateSubText1_KeyPress(keyAsciiAsInteger)IfkeyAscii=13ThenIf[Ucase(Text1)="END"]ThenClose#1EndElse[Print#1,Text1]Text1.Text=“”EndIfEndIfEndSub―――――――――――――11、輸入若干字符，記錄有多少個(gè)元音字母、有多少個(gè)其她字母，不區(qū)別大小寫(xiě)，并顯示成果。其中，CountY中放元音字母?jìng)€(gè)數(shù)，CountC中放其她字符數(shù)。PrivateSubCommand1_Click()DimCountY%，CountC%，i%DimC$，B$c=Text1.TextFori=1ToLen(C)B=UCase(Mid(C，i，1))If["A"<=BAndB<="Z"]ThenSelectCaseBCase"A","E","I","O","U"CountY=CountY+1Case[Else]CountC=CountC+1EndSelectEndIfNextiPrint"元音字母有"；CountY；"個(gè)"Print"其他字母有"；CountC；"個(gè)"EndSub――――――――12、將C盤根目錄下一種文本文獻(xiàn)old.dat復(fù)制到新文獻(xiàn)new.dat中，并運(yùn)用文獻(xiàn)操作語(yǔ)句，將old.dat文獻(xiàn)從磁盤上刪除。PrivateSubCommand1_Click()Dimstr1$Open“c:\old.dat”ForInputAs#1Open“c:\new.dat”[ForoutputAs#2]DoWhile[NotEoF(1)]LineInput#1,str1Print#2,str1LoopClose#1,#2KILL“c:\old.dat”EndSub―――――――――<PIXTEL_MMI_EBOOK_>613、產(chǎn)生[10，37]之間隨機(jī)整數(shù)VisualBasic表達(dá)式是[<int(Rnd*28+10)>]。判斷s字符變量是大寫(xiě)字母字符邏輯表達(dá)式為[<s>="A"Ands<="Z">]。表達(dá)x是5倍數(shù)或9倍數(shù)邏輯表達(dá)式是[<xMod5=0OrxMod9=0>]Len("vb程序設(shè)計(jì)")值是[<6>]。表達(dá)字符變量s是字母字符（不區(qū)別大小寫(xiě)）VB表達(dá)式是[<Lcase(s)>="a"AndLcase(s)<="z"或者Ucase(s)>="A"AndUcase(s)<="Z">]。將一種兩位數(shù)x個(gè)位數(shù)與十位數(shù)互換位置，構(gòu)成另一種兩位數(shù)，則相應(yīng)表達(dá)式是[<(xMod10)+x\10>]。隨機(jī)產(chǎn)生一種“C”～“L”范疇內(nèi)大寫(xiě)字符，則相應(yīng)VB表達(dá)式是[<Chr(Int(Rnd*10+68))>]。Round(-3.5)值是[<-4>]。Int(3.5)值是[<3>]。下面程序段運(yùn)營(yíng)后輸出成果是[<220321422523>]。Fori=0To3PrintTab(5*i+1)；"2"+i；"2"&i;Nexti循環(huán)語(yǔ)句Fori=-3to20Step0循環(huán)次數(shù)是[<無(wú)多次>]。在過(guò)程中定義局部變量，如果但愿過(guò)程結(jié)束后還保存變量值，則應(yīng)使用[<Static>]核心字進(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ù)是[<19>]。下列程序段中，第41句共執(zhí)行了[<12>]次。30Forj=1To12Step340Fork=6To2Step-241Printj，k42Nextk43Nextj循環(huán)語(yǔ)句Fori=-3to20Step4循環(huán)次數(shù)是[<6>]。下面程序運(yùn)營(yíng)后輸出成果是[<**$$$****$$$$$>]。a="*"：b="$"Fori=1To4IfiMod2=0Thenx$=String(Len(a)+i，b)Elsex$=String(Len(a)+i，a)EndIfPrintx$;Nexti下面程序運(yùn)營(yíng)成果是[<22484>]。x=242：y=44z=x*yDoUntilnx=yIfx>yThenx=x-yElsey=y-xLoopPrintx，z/x下列程序段中，第40句共執(zhí)行了[<4>]次。30Forj=1To12Step340Fork=6To2Step-241Printj，k42Nextk43Nextj如果在建立菜單時(shí)在標(biāo)題文本框中輸入一種[<下劃線或者“_”>],那么菜單顯示時(shí)形成一種分隔線如果菜單標(biāo)題某個(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>]開(kāi)始。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事件是由于它[<Value>]屬性值變化了。如果要每隔15秒產(chǎn)生一種Timer事件，則Interval屬性應(yīng)設(shè)立為[<15000>]。當(dāng)顧客單擊滾動(dòng)條兩端箭頭時(shí)，滑塊移動(dòng)增量由[<Smallchange>]屬性決定。[<List1.Listcount-1>]表達(dá)列表框（List1）中最后一項(xiàng)序號(hào)。VisualBasic提供對(duì)數(shù)據(jù)文獻(xiàn)三種訪問(wèn)方式為順序訪問(wèn)方式、[<二進(jìn)制訪問(wèn)方式>]和隨機(jī)訪問(wèn)方式。編程題1產(chǎn)生1－100以內(nèi)素?cái)?shù)PrivateSubCommand1_Click()Dimi%，j%，tagAsBooleanForj=1To100tag=TrueFori=2Toj-1IfjModi=0Thentag=FalseNextiIftagThenPrintj;NextjEndSub2、從鍵盤輸入任意長(zhǎng)度字符串，規(guī)定將字符順序倒置，例如，將輸入“ABCDEFG”變換成“GFEDCBA”。PrivateSubForm_Click()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_Click()Dimi%Fori=0To200IfiMod11=0OriMod5=0ThenSum=Sum+iEndIfNextiPrint"總和是";SumEndSub4輸入一年份，判斷她與否為閏年，并現(xiàn)實(shí)與否是閏年關(guān)于信息。PrivateSubCommand1_Click()Dimy%y=Val(Text1)IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox(y&"年是閏年")ElseMsgBox(y&"年是平年")EndIfEndSub5、已知x,y,z3個(gè)變量中存儲(chǔ)了3個(gè)不同數(shù)，比較它們大小并進(jìn)行調(diào)節(jié)，使得x<y<z。PrivateSubCommand1_Click()Dimx!，y!，z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")PrintTab(8)；""；"x"；"y"；"z"Print"排序前:"；x；""；y;""；zIfx<yThent=x：x=y：y=t:Ifx<zThent=x：x=z：z=t:Ify<yThent=y：y=z：z=t:Print"排序后:"；""；x；""；y；""；zEndSub6、求s=a+aa+aaa+...aaaaa（n個(gè)a），其中a和n值隨機(jī)產(chǎn)生，a范疇是[1,9]整數(shù)，n范疇是[5,10]。如a=3,n=6,則s=3+33+333+3333+33333+333333。編程擬定n和a值，并計(jì)算s。PrivateSubForm_click()Dims!，t!，i!，a%，n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0：s=0PrintTab(9)；"a="；a,"n="；nPrintFori=1Tont=t*10+