2023年大學(xué)v課程題庫全集

vb單選、操作部分?、單項(xiàng)選擇題1、與傳統(tǒng)的程序設(shè)計(jì)語言相比，Visua1Basic最突出的特點(diǎn)是(C)。A、結(jié)構(gòu)化程序設(shè)計(jì)“B、程序開發(fā)環(huán)境C、事件驅(qū)動(dòng)編程機(jī)制。D、程序調(diào)試技術(shù)2、賦2、賦值語句:a=123&MID(”123456”，3,2)執(zhí)行后,a變量中的值是(C)。A、”12334JB、123Cs12334“D、1573、保存一個(gè)工程至少應(yīng)保存兩個(gè)文獻(xiàn)，這兩個(gè)文獻(xiàn)分別是(B)。A、文本文獻(xiàn)和工程文獻(xiàn)。B、窗體文獻(xiàn)和工程文獻(xiàn)C、窗體文獻(xiàn)和標(biāo)準(zhǔn)模塊文獻(xiàn)D、類模塊文獻(xiàn)和工程文獻(xiàn)4、以卜能在窗體Forml的標(biāo)題欄中顯示"VisualBasic窗體”的i吾句是(C)。A、Form1.Name="Visua1Basic窗體"B、Forml.Title="Visua1Basic窗體”C、FormI.Caption="VisuaIBasic窗體”D、Forml.Text="VisuaIBasic窗體"5、為了裝入一個(gè)VisuaIBasic應(yīng)用程序，應(yīng)當(dāng)(D)A、只裝入窗體文獻(xiàn)(.frm)B、只裝入工程文獻(xiàn)(.vbp)C、分別裝入工程文獻(xiàn)和標(biāo)準(zhǔn)模塊文獻(xiàn)(.bas)D、分別裝入工程文獻(xiàn)、窗體文獻(xiàn)和標(biāo)準(zhǔn)模塊文獻(xiàn)6、賦給一個(gè)數(shù)組的數(shù)據(jù)類型一定要(A)。A、相同。B、不相同。兩可。D、都不對7、下面對的的賦值語句是(C)。A、x+y=30??B、y=n*r*rC、y=x+30。D、3y=x8、VisualBasic6.0集成環(huán)境的主窗口中不涉及(C)。A、標(biāo)題欄出、菜單欄C、狀態(tài)欄D、工具欄9、 以下敘述中錯(cuò)誤的是(C)。A、 VisualBasic是事件驅(qū)動(dòng)型可視化編程工具B、 Visua1Basic應(yīng)用程序不具有明顯的開始和結(jié)束語句C、 VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性D、 VisuaIBasic中控件的某些屬性只能在運(yùn)營時(shí)設(shè)立10、 要使Print方法在Form—Load事件中起作用，要對窗體的(C)屬性進(jìn)行設(shè)立。A、Backcolor?。B、ForeColorC、AutoRedraw”D、BackStyle11、 若要使命令按鈕不可操作，要對(A)屬性進(jìn)行設(shè)制。A、 Enabled B,VisibleC、BackColor。。。D、Caption12、 以下敘述中錯(cuò)誤的是(B)。A、一個(gè)工程中可以包含多個(gè)窗體文獻(xiàn)B、 在一個(gè)窗體文獻(xiàn)中用Private定義的通用過程能被其他窗體調(diào)用C、 在設(shè)計(jì)VB程序時(shí)，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文獻(xiàn)。D、 一個(gè)工程默認(rèn)的啟動(dòng)對象是FormI13、 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è)立為FaIseD、 將控件的Enab1ed屬性設(shè)立為Fa1se16、 要判斷在文本框是否按了Enier鍵，應(yīng)在文本框的(D)事件中判斷。A、Change^B、KeyDown<?C、C1ick。D、KeyPress17、 以卜?關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是(A)。A、 假如文本框的TabStop屬性為Fa1se,則不能接受從鍵盤上輸入的數(shù)據(jù)B、 當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)L0stFocus事件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、MouseDown?B、MouseUpC>Load8。D、CIick20、 圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是(B)。A、Autosizew?B、StretchC、AutoRedraw。。D、Appearance21、 為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)設(shè)立的屬性是(D)。A、將控件的Tablndex屬性設(shè)立為0B、將控件的TabStop屬性設(shè)立為TrueC、 將控件的Tabstop屬性設(shè)立為FalseD、 將控件的Enabled屬性設(shè)立為False22、 不管何控件,共同具有的是(B)屬性。A、Texto??B、NameC、ForeCo1or。 <>D、Caplion23、 以下關(guān)于窗體的描述中，錯(cuò)誤的是(A)。A、 執(zhí)行UnloadForml語句后，窗體F。ml消失,但仍在內(nèi)存中B、 窗體的Load事件在加載窗體時(shí)發(fā)生C、 當(dāng)窗體的Enabled屬性為FaIse時(shí)，通過鼠標(biāo)和鍵盤對窗體的操作都被嚴(yán)禁D、 窗體的Height、Width屬性用于設(shè)立窗體的高和寬24、 當(dāng)運(yùn)營程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行窗體的(A)事件過程。A、Load*?? B、ClickC、Unload。 *?D、GotFocus25、 窗體設(shè)計(jì)器是用來設(shè)計(jì)(B)°A、應(yīng)用程序的代碼段 B、應(yīng)用程序的界面C、對象的屬性-oD、對象的事件26、 VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言，采用了(A)的編程機(jī)制。A、事件驅(qū)動(dòng)。3汨、按過程順序執(zhí)行C、從主程序開始執(zhí)行。D、按模塊順序執(zhí)行27、 擬定一個(gè)控件在窗體上的位置的屬性是(D)。A、Width或Height。B、Widih和HeightC、Top或Left。2、Top和Left28、假如要改變窗體的標(biāo)題，則需要設(shè)立的屬性是(A)。A、CaptionooooB、NameC、BackColor?D、BorderStyle29、以下敘述中錯(cuò)誤的是(C)。A、 打開一個(gè)工程文獻(xiàn)時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文獻(xiàn)B、 保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文獻(xiàn)及工程文獻(xiàn)C、 VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D、 事件可以由用戶研發(fā)，也可以由系統(tǒng)引發(fā)0＞以下敘述中錯(cuò)誤的是(B)。A、 雙擊鼠標(biāo)可以觸發(fā)DbICIick事件B、 窗體或控件的事件的名稱可以由編程人員擬定C、 移動(dòng)鼠標(biāo)時(shí),會(huì)觸發(fā)MouseMove事件D、 控件的名稱可以由編程人員設(shè)定31、 在Visua1Basic中最基本的對象是(C)。它是應(yīng)用程序的基石，是其他控件的容器。A、文本框心B、命令按鈕C、窗體。。oD、標(biāo)簽32、 以下敘述中對的的是(A)。A、 窗體的Name屬性指定窗體的名稱，用來標(biāo)記一個(gè)窗體B、 窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C、 可以在運(yùn)營期間改變對象的Name屬性的值D、 對象的Name屬性值可認(rèn)為空33、 在設(shè)計(jì)階段,當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是(C)。A、工程資源管理器窗口。“B、工具箱窗口C、代碼窗口。 。 “D、屬性窗口34、 VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言,釆用了的編程機(jī)制是(A)。A、事件驅(qū)動(dòng)。 。 B、按過程順序執(zhí)行C、從主程序開始執(zhí)行Q D、按模塊順序執(zhí)行35、 用來設(shè)立粗體字的屬性是(C)。A、FontItalic?g°B、FontNameC、FontBo1da”。4)、FontSize36、假如一個(gè)工程具有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以卜.敘述屮錯(cuò)誤的是(A)。A、 假如工程中具有SubMain過程，則程序一定一方面執(zhí)行該過程B、 不能把標(biāo)準(zhǔn)模塊設(shè)立為啟動(dòng)模塊C、 用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D、 任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體37、為了把焦點(diǎn)移到文本框，所使用的方法是(A)。A、SetFocus。 。 B、Visib1eC、Refresh* ?D、GetFocus38、INT(IOO*RND)產(chǎn)生的隨機(jī)整數(shù)的閉區(qū)間是(A)。A、［0,99］。 B、［1,100］C、［0,100］。 5、［1,99］9、假如要在命令按鈕上顯示圖形文獻(xiàn)，應(yīng)設(shè)立命令按鈕的(B)?A、Style屬性和Graphics屬性B、Style屬性和Picture屬性C、Caption屬性。。＜＞D、Graphics屬性40、若要使命令按鈕不可操作，要對(A)屬性進(jìn)行設(shè)制。A、Enabled 。B、VisibleC、BackColor炒D、Caption41＞假定窗體的名稱為Forml,則把窗體的標(biāo)題設(shè)立為“VB_Tesi”的語句為(B)。A、FormI="VB Test"。B、Forml.Caption="VB_Test”C、Forml.Text="VB_Test”，D、F="VB_Test”2、以下敘述中錯(cuò)誤的是(A)。A、 在工程資源管理器窗口中只能包含一個(gè)工程文獻(xiàn)及屬于該工程的其他文獻(xiàn)B、 以.BAS為擴(kuò)展名的文獻(xiàn)是標(biāo)準(zhǔn)模塊文獻(xiàn)C、 窗體文獻(xiàn)包含該窗體及其控件的屬性D、 一個(gè)工程中可以具有多個(gè)標(biāo)準(zhǔn)模塊文獻(xiàn)43、要使文本框獲得輸入焦點(diǎn)，則應(yīng)采用文本框控件的哪個(gè)方法(A)。

A、A、GotFocus。B、LostFoeusC、 KeyPress? D、SetFocus44、以下不能在“工程資源管理器”窗口中列出的文獻(xiàn)類型是(B)。A、.bas^B、.res^C、.frm。 D、.ocx45、剛建立一個(gè)新的標(biāo)準(zhǔn)EXE!程后,不在工具箱中出現(xiàn)的控件是(C)。A、單選按鈕“B、圖片框C、通用對話框“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、 一個(gè)工程中只能有一個(gè)SubMain過程B、 窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體C、 窗體的Hide方法和Unload方法的作用完全相同D、 若工程文獻(xiàn)中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體49、 語句PrintAbs(&2)+1n〔(-6&)的輸出結(jié)果是(A)。A、OaB、dC、-I。D、-7250、 假如將布爾常量值TRUE賦值給一個(gè)整型變量，則整型變量的值為(B)。A、B、-1心TRU吳D、FALSE51、 函數(shù)Siring(n,"str")的功能是(B)°A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串B、返回由n個(gè)字符組成的字符串C、 從字符串中取出n個(gè)字符D、 從字符串中第n個(gè)字符的位置開始取子字符串52、 語句PrintFormat(**HelloWor1d”,“〉")的輸出結(jié)果是(C)oA、he1loWORLD Bhe1Iowor1dC、HELLOWORLDoW、HELLOworld53、 聲明符號(hào)常量應(yīng)當(dāng)用關(guān)鍵字(B)。A、Static。B、Const。C、Private^D、Variant54、 要強(qiáng)制顯示聲明變量，可在窗體模塊或標(biāo)準(zhǔn)模塊的聲明段中加入語句(B)。A、OptionBase6。B、OptionExplicitC>OptionBase1OptionCompare5、下列可作為VisualBasic變量名的是(D)。A、A#A“B、4A。oC.?xy。 D、constA56、 設(shè)a=10.b=5.c=l,執(zhí)行語句Printa>b>c后，窗體上顯示的是(B)。A、TrueFa1seC、l。。D、犯錯(cuò)信息57、 執(zhí)行x$=String(6, "124abe")后,x的值是(B)。A、124abc?B、111111C、12SD、abe58、 設(shè)a=6,則執(zhí)行x=Hf(a>5,-l,0)^.x的值為(D)A、5。 B、6 、0gD、-159、 執(zhí)行語句：c$=“G1ad”&Mid$("Nicetomeetyou”,5,3),則變量c$的值為(C)。A、Nicetomeetyou B、GladNicetomeetyouC、GladtoaGlad60、 下面(D)是合法的字符常數(shù)。A、ABC$“B、"ABCG'ABC'。D、ABC61、 對于語句Ifx=lTheny=l,下列說法對的的是(C)°A、 x=l和y=l均為賦值語句x=l和y=l均為關(guān)系表達(dá)式C、 x=l為關(guān)系表達(dá)式,y=l為賦值語句D、 x=l為賦值語句，y=i為關(guān)系表達(dá)式62、 設(shè)有聲明：DimXAsInteger,假如Sgn(X)的值為-1,則X的值是(D)。A、任何整數(shù)。 出、0-C、等于0的整數(shù)D、小于。的數(shù)63、 在一行內(nèi)寫多條語句時(shí)，每個(gè)語句之間用(B)符號(hào)分隔。A、，。 B、： 。 》C、、3)、；64、 從鍵盤上輸入兩個(gè)字符串，分別保存在變量strl.st『2中。擬定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是(D)。A、Left。B、Mid。C、String<>D、Instr65、 設(shè)S="中華人民共和國"，表達(dá)式Left(S,1)+Right(S,1)+Mid(S,3,2)的值為(B)A、呻華民國％。B、呻國人民"C、"中共人民"D、"人民共和"66、 下列可作為Visua1Basic中的變量名的是(A)。A、Filename汨、A(A+B)9、254以?。。、Print67>下面(A)是合法的變量名。A、X yz”B、123abc?C、Integer。D、X-Y68、 以下變量命名非法的是(C)oA、xyzl23。B、printaaC、booleanD、Bernald69、 設(shè)有變量聲明:DimTes[DaleAsDale,為變量TestDate對的賦值的表達(dá)方式是(A)。A、 TextDate=#1/1/2023#B、 TestDate=#“1/1/2023”#C、 TextDate=date(M1/1/2023")D、 TestDate=Format("m/d/yy”，“1/1/2023”)70、 設(shè)a=2,b=3,c=4,d=5,表達(dá)式a>bANDc<=d的值是(B)。A、True<?B>Fa1se C、-1 <>D、171、表達(dá)式6*8Mod9的值是(B)。

A、4B、3,A、4B、3,C、65、772、 假設(shè)變量booLx是一個(gè)布爾型(邏輯型)的變量，則下面對的的賦值語句是(D)A、bool_x="False”。 ?B、bool_x=.False.C、bool x=#FaIse#。<>D、bool_x=False73、 設(shè)a="VisualBasic下面使b="Basic”的語句是(B)。A、b=Left(a,8,12)fB、b=Mid(a,8,5)C、b=Rigth(a.5,5) ，D、b=Left(a,8,5)74、 語句PrintFormat$(32548.5,*?###,###.###")的輸出結(jié)果是(B)。A、32548.5“B、32,548.5C、032,548.50。D、32,548.5075、 以下聲明語句中錯(cuò)誤的是(D)。A、Constvarl=123B.Dimvar2='ABC'C、Dimx_y z% D、Staticvar3AsInteger76、 可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是(C)。A、Llrim B、Rtrim。C、TrimgD、Mid77、下列可為合法變量名的是(D)。A、IntegerB、False$C、pub1ic?D、thanksgiving78、 變量未賦值時(shí)，數(shù)值型變量的值為(A)oA、(I*?B、空8C、1站D、無任何值79、 表達(dá)式16/4-2A5*8/4Mod5\2的值為(B)。A、14。汨、4aC、20 “D、2確的80、下面If語句記錄滿足性別為男、職稱為副專家以上、年齡小于40歲條件的人數(shù),不正語句是(D)。A、 Ifsex="^"Andage<40And(duLy="專家"Orduty="副專家”)Thenn=n+lB、Ifsex="男"Andage<40AndInStr(duty,”專家")>0 Thenn=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>10B、 (a>b)Or(b>0)C、 (a<0)or(b<0)D、 (-3+5>a)And(b>0)82、 執(zhí)行語句a=InpulBox("Today","Tomorrow"「'Yesterday",,,"Daybeforeyesterday”,5),將顯示一個(gè)輸入對話框,在對話框的輸入?yún)^(qū)中顯示的信息是(A)°A、 TodayB、 TomorrowC、 YesterdayD、 DaybeforeYesterday83、 VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的3種基本結(jié)構(gòu)，這3種基本結(jié)構(gòu)是(B)。A、 遞歸結(jié)構(gòu)，分支結(jié)構(gòu)，循環(huán)結(jié)構(gòu)B、 選擇結(jié)構(gòu)，過程結(jié)構(gòu)，順序結(jié)構(gòu)C、 過程結(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語句記錄滿足性別為男、職稱為副專家以上、年齡小于40歲條件的人數(shù)，不對的的語句是(D)。A、 Ifscx="男”Andage<40AndInStr(duty,“專家")>0Thenn=n+lB、 Ifsex="男”Andage<40And(duty="專家"Orduty=*,副專家”)Thenn=n+lC、 Ifsex="男”Andage<40AndRight(duty,2)=“專家”Thenn=n+1D>Ifsex=**男”Andage<40Andduty="專家"Andduty=“副專家”Thenn=n+185、 當(dāng)語句w=nf(4>l0,wRed”，“Green”)執(zhí)行后，變量w中的值是(C)。A、 NullB、 “Red”C、 “Green”TOC\o"1-5"\h\zD、 一186、 賦值語句：a=123+MID("123456”，3,2)執(zhí)行后，a變量中的值是(D)。A、 “12334”B、 123C、 I2334D、 15787、 設(shè)有語句x=InputBox("AAAA”,“BBBB”，"”)，程序運(yùn)營后，所產(chǎn)生的對話框的標(biāo)題應(yīng)為(C)。A、 AAAAB、 空C、 BBBBD、 犯錯(cuò)，不能產(chǎn)生對話框88、 卜?面對的的嗅值語句是(C)。A、 x+y=30B、 y=Ji*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)、過程結(jié)構(gòu)、順序結(jié)構(gòu)C、 過程結(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).TOC\o"1-5"\h\zA、 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、 語句Ifx=lTheny=L下列說法對的的是(C)。A、 x=l和y=l均為賦值語句B、 x=l和y=l均為關(guān)系表達(dá)式C、 x=l為關(guān)系表達(dá)式,y=l為賦值語句D、 x=l為賊值語句，y=l為關(guān)系表達(dá)式94、 賦值語句:a=123&M1D("123456”，3,2)執(zhí)行后,a變量中的值是(C),A、 “12334”B、 123C、 12334D、15795、卜-面程序段顯示的結(jié)果是(A)。Dimxx=Ini(Rnd)+5SeiectCasexCase5“優(yōu)秀”Case4Print“良好”Case3Print“通過”CaseElsePrint“不通過”EndSeiectA、 優(yōu)秀B、 良好C、 通過D、 不通過96、 為了給x,y,z這3個(gè)變量賦初值1,下面對的的賦值語句是<A)oA、 x=1:y=l:z=lB、 x=1,y=1,z=lC、 x=y=z=1D、 xyz=197、 下列語句對的的是(C)A、 IfA刊BThenPrint"A不等于B"B、 IfAoBThenPrintfA不等于BC、IfA<>BThenPrint"A不等于B"D、IfA^BPrint"A不等于B”98、設(shè)有語句x$=InputBox(“輸入數(shù)值”,“0”，“示例”)，程序運(yùn)營后，假如從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中對的的是(D)。A、 變量X的值是數(shù)值10B、 在InputBox對話框標(biāo)題欄中顯示的是“示例"C、 0是默認(rèn)值D、 變量X的值是字符串“10”9、運(yùn)營下列程序段后,顯示的結(jié)果為(B)J1=4： J2=9IfJ1<J2ThenPrintJ2ElsePrintJ1TOC\o"1-5"\h\zA、 4B、 9C、 13D、 490、InputBox函數(shù)返回值的類型為(B)。A、 數(shù)值B、 字符串C、 變體D、 數(shù)值或字符串(視輸入的數(shù)據(jù)而定)101、 一個(gè)數(shù)組說明為Dima(0to5,1to5)AsInteger,則該數(shù)組共有(C) 個(gè)元素。TOC\o"1-5"\h\zA、 25B、 36C、 30D、 不擬定102、 數(shù)組聲明語句Dima(2to3,-2to2,3to5)中，數(shù)組a包含元素的個(gè)數(shù)為(C)oA、120B、75C、30D、13103、 假如在上題語句前加入OpiionBase1,則該數(shù)組共有(D)個(gè)元素。TOC\o"1-5"\h\zA、 15B、 16C、 13D、 不擬定104、 假如有聲明Dima(15)AsInteger,則該數(shù)組共有(B)個(gè)元素。A、 I5B、 16C、 13D、 不擬定105、 一個(gè)數(shù)組說明為Dima(5,1to5)AsInteger,則該數(shù)組共有(C)個(gè)元素。A、 25B、 36C、 30D、 不擬定106、在VB中，默認(rèn)的數(shù)組下標(biāo)的下界從0開始，要想在通用聲明段界定下界，則應(yīng)使用(A)oA、 OptionBaseB、 OptionExp1icitC、 Exp1icitD、 LowBase107、如下數(shù)組聲明語句，對的的是(B)。A、Dima(3,4]asIntegerB、Dima(3, 4)asIntegerC、 Dima(n,n)asIntegerD、 Dima[3][4)asInteger108、賦給一個(gè)數(shù)組的數(shù)據(jù)的值的類型一定要(A)。A、 相同B、 不相同C、 兩可D、 都不對109、數(shù)組的下標(biāo)可取的變量類型是(A)。A、 數(shù)值型B、 字符型C、 日期型D、 可變型110、數(shù)組聲明語句Dima(0to3,-2to2,0to5)中，數(shù)組a包含元素的個(gè)數(shù)為(A)。TOC\o"1-5"\h\zA、 120B、 75C、 60D、 13111、假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommond1_C1ick()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta.bEndSub程序運(yùn)營時(shí)，單擊命令按鈕得到的結(jié)果(D)。TOC\o"1-5"\h\zA、 5 4B、 1 1C、 1.25 4D、1.25x=5x=5112、用以卜.方式聲明的變量，(B)可以在整個(gè)程序中通用？A、在窗體模塊用Dini進(jìn)行聲明B、 在窗體模塊用Public進(jìn)行聲明C、 在窗體模塊用Private進(jìn)行聲明D、 在窗體模塊用Static進(jìn)行聲明113、在窗體上添加一個(gè)命令按鈕和三個(gè)標(biāo)簽，編寫事件過程：PrivatexAs1ntegerPrivateSubCommandl_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+zLabe11.Caption=xLabeI2.Caption=yLabel3.Caption=zEndSub程序運(yùn)營后，連續(xù)三次單擊命令按鈕，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是(A)。A、 101010B、 303030C、 30 3010D、 1030 30114、以下敘述中錯(cuò)誤的是(D)。A、 假如過程被定義為Static類型,則該過程中的局部變量都是Static類型B、 Sub過程中不能嵌套定義Sub過程C、 Sub過程中可以嵌套調(diào)用Sub過程D、 事件過程可以像通用過程同樣由用戶定義過程名115、在在窗體上添加?個(gè)命令按鈕Command1和一個(gè)文本框Textl,然后編寫如下事件過程：PrivateSubCommandl C1ick()DimxAsInteger,yAsInLeger,zAsIntegerFori=1To4Fori=1To4Textl.Text=,M,Ca1lpl(x,y,z)Textl.Text=Str(z)EndSubPrivateSubp1(ByVa1aAsInteger,ByVaibAsInteger,cAsnteger)c=a+bEndSub程序運(yùn)營后，單擊命令按鈕得到的結(jié)果是(A)。A、 12B、 0C、 Str(z)D、 沒有顯示結(jié)果】16、假如在程序中要將a定義為靜態(tài)變量，且為整型數(shù),則應(yīng)使用的語句是：(B，A、 RedimaAsIntegerB、 StaticaAsIntegerC、 PubIicaAsIntegerD、 DimaAsInteger丨17、以下程序的運(yùn)營結(jié)果是(C)Subs1(b()Asinteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()PrivateSubCommandl_Click()To4)AsIntegera(i)=i+5Nextisia()Fori=ITo4Printa(i)Printa(i)Nex(iEndSubA、12 141618A、12 141618B、 6 7 8 9C、24D、 1 2118、以下程序的運(yùn)營結(jié)果是(D)。Functionf(mAsInteger)AsIntegerb=1StaticAsIntegerb*b*cEndFunctionPrivateSubCommand1 C1ick()DimaAsIntegera=2Sum=0ForITo31StaticAsIntegerb*b*cEndFunctionPrivateSubCommand1 C1ick()DimaAsIntegera=2Sum=0ForITo3Sum=Sum+f(a)NextiPrintSurnEndSubA、 12B、 28C、 32D、24119、下列程序輸出結(jié)果(C)。PrivateSubCommandl_C1ick()Fori=1To10GetVa1ueiNextiPrintGetVa1ue(i)EndSubPrivateFunctionGetValue(ByValaAsInteger)StaticSAsIntegerS=S+aGelVa1ue=SEndFunctionTOC\o"1-5"\h\zA、 10B、 65C、 66D、 1I120、 在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使用(D)關(guān)鍵字在過程中定義局部變量。A、 DimB、 PrivateC、 PublicD、 Static121、 在過程定義中用(C)表達(dá)形參的傳值。A、 VarB、 ByDefC、 ByVaiD、 Value122、在在窗體上添加一個(gè)命令按鈕Commandl和兩個(gè)名稱分別為Labe11和Labe12的標(biāo)簽，然后編寫如下事件過程： PrivateXAsIntegerPrivateSubCommandl_Click()X=5:y=3Ca1Iproc(X,y)LabelI.Caption=XLabel2.Caption=yEndSubSubproc(ByVaiaAsInteger,ByValbAsInteger)X=a*ay=b+bEndSub程序運(yùn)營后,單擊命令按鈕，則兩個(gè)標(biāo)簽label1和1abel2中顯示的內(nèi)容分別是(B)。A、25,3TOC\o"1-5"\h\zB、 25,6C、 5,3D、 5,6123、以下程序的運(yùn)營結(jié)果是(C)。DimxAsInteger,yAsInteger,zAsIntegerSubsi(aAsinteger,bAsInteger)DimeAsIntegera=2*ab=b+2c=a+bEndSubSubs2(aAsInteger.ByVaibAsInteger)DimcAsIntegera=2*ab=b+2c=a+bEndSubPrivateSubCommandl_CIick()x=4：y=：4z=6Cal1s1(x,y)Printx+y+zCa1ls2(x,y)Printx+y+zEndSubTOC\o"1-5"\h\zA、 24 28B、 20 28C、 20 18D、 20 20124、以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是（C）。A、 過程的參數(shù)nJ以是控件名稱B、 用數(shù)組作為過程的參數(shù)時(shí)，使用的是“傳地址”方式C、 只有函數(shù)過程可以將過程中解決的信息傳回到調(diào)用的程序中D、 窗體可以作為過程的參數(shù)125＞以下屬于VisualBasic合法的數(shù)組元素是(C)A、x8B、 x[8]C、 s(0)D、 v[8]126、下列敘述中對的的是(C)。A、 在窗體的F。rm.Load事件過程中定義的變量是全局變量B、 局部變量的作用域可以超過所定義的過程C、 在某個(gè)Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名,但其作用域只限于該過程D、 在調(diào)用過程時(shí)，所有局部變量被系統(tǒng)初始化為?；蚩兆址?27、假定有以下函數(shù)過程:FunctionFun(SAsString)AsSiringDimsiAsStringFori=IToLen(S)si=UCase(Mid(S,i,I))+s1NextiFun=s1EndFunction在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1 Cliek() DimstrlAsString,str2AsStringstrl=InputBox("請輸入一個(gè)字符串”)str2=Fun(strl) Printstr2EndSub程序運(yùn)營后,單擊命令按鈕，假如在輸入對話框中輸入字符串“abedefg”，單擊”擬定"按鈕后程序在窗體上輸出結(jié)果(D)。A、abedefgB、 gfedebaC、 GFEDCBAD、ABCDEFG128、 若已編寫了一個(gè)Sort子過程，在該工程中有多個(gè)窗體，為了方便的調(diào)用Sort子過程,應(yīng)當(dāng)將該過程放在(B)。A、 窗體模塊B、 標(biāo)準(zhǔn)模塊C、 類模塊D、 工程129、 卜面子過程語句說明合法的是(D)A、 Subfl(ByVa1n()AsInteger)B、 Functionfl(flAsInteger)AsIntegerC、 Subf1(n()AsInteger)AsIntegerD、 Functionfl(ByVa1nAsInteger)AsInteger130、在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變最的值，則應(yīng)使用(D)關(guān)鍵字在過程中定義局部變量。A、 DimB、 PrivateC、 PublicD、 Static131、在窗體上畫三個(gè)單選按鈕，組成一個(gè)名為chkOption的控件數(shù)組。用于標(biāo)記各個(gè)控件數(shù)組元素的參數(shù)是(D)。A、 TagB、 IndexC、 ListlndexD、 Name132、假如列表框(Lis11)有四個(gè)數(shù)據(jù)項(xiàng)，那么把數(shù)據(jù)項(xiàng)**ChinaM添加到列表框的最后，應(yīng)使用(D)語句。A、Listl.Addkem3,"China"B、List1.AddItem“China",ListI.ListlCount-1C、 Listl.AddItem"China",3D、 Listl.AddItern"China"I33、假如列表框(Listl)中沒有被選定的項(xiàng)目，則執(zhí)行Listl.RemoveitemListl.Listlndex語句的結(jié)果是(D)。A、 移去第一項(xiàng)B、 移去最后一項(xiàng)C、 移去最后加入列表的一項(xiàng)D、 以上都不對134、以下敘述中錯(cuò)誤的是(C)。A、 在KeyUp和KeyDown事件過程中,從鍵盤上輸入A或a被視作相同的字母(即具有相同的KeyCode)B、 在KeyUp和KcyDown事件過程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作不同的數(shù)字(具有不同的KeyCode)C、 KeyPress事件中不能辨認(rèn)鍵盤上某個(gè)鍵的按下與釋放D、 KeyPress事件中可以辨認(rèn)鍵盤上某個(gè)鍵的按下與釋放135、設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以I、?能刪除最后一項(xiàng)的語句是(B)。A、 Combo1.RemoveltemTextB、 Combo1.RemoveItem2C、 Combo1.Removeitem3D、 Combo1.RemoveitemCombo1.Listcount136、卜冽控件中，沒有C叩tion屬性的是（BKA、 框架B、 列表框C、 復(fù)選框D、單選按鈕137、引用列表框(ListI)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是(C)A、 Listl.List(Listl.ListCount)B、 Lis11.List(ListCount)C、 Listl.List(Listl.ListCount-l)D、 List1.List(ListCount-1)138、窗體的MouseDown事件過程Form MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSing1e)有4個(gè)參數(shù)，關(guān)于這些參數(shù)，對的的描述是(A)oA、 通過Button參數(shù)鑒定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵B、 Shih參數(shù)只能用來擬定是否按下Shih鍵C、 Shift參數(shù)只能用來擬定是否按下All和Ctr丨鍵D、 參數(shù)x,y用來設(shè)立鼠標(biāo)當(dāng)前位置的坐標(biāo)9、復(fù)選框的Vaiue屬性為1時(shí),表達(dá)(B)。A、 復(fù)選框未被選中B、 復(fù)選框被選中C、 復(fù)選椎內(nèi)有灰色的勾D、 復(fù)選框操作有錯(cuò)誤。140、 引用列表框的最后一項(xiàng)應(yīng)使用(A)。A、 Listl.List(Lisil.ListCount-1)B、 Listl.List(List1.ListCount)C、 Listl.List(ListCount)D、 Listl.List(ListCount—1)141、 設(shè)窗體上有一個(gè)列表框控件List1,且其中具有若干列表項(xiàng)。則以下能表達(dá)當(dāng)前被選中的列表項(xiàng)內(nèi)容的是(D)。A、 Listl.ListListl.ListIndexC、 Listl.IndexD、 Lis11.Tex（142、表達(dá)滾動(dòng)條控件取值范圍最大值的屬性是（A）。A、 MaxB、 LargeChangeC、 ValueD、 Max-Min143、為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的C1ick事件過程，需要把該命令按鈕的一個(gè)屆性設(shè)立為True,這個(gè)屬性是（D）。A、 Va1ueB、 DefaultC、 CancelD、 Enabled144、假如列表框（Listl）有四個(gè)數(shù)據(jù)項(xiàng)，那么把數(shù)據(jù)項(xiàng)“China”添加到列表框的最后，應(yīng)使用語句（D）。A、 List1.Additem3,"China"B、 List1.Additem"China",Listl.List1Count-1C、 ListLAddItem"China”，3D、 List1.Additem”China”,Listl.List1Count145、 復(fù)選框的Va1ue屬性為2時(shí)，表達(dá)（C）。A、 復(fù)選框未被選中B、 復(fù)選框被選中C、 復(fù)選框內(nèi)有灰色的勾D、 復(fù)選框操作有錯(cuò)誤。146、 為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過程，需要把該命令按鈕的一個(gè)屬性設(shè)立為True,這個(gè)屬性是（A）。A、 ValueB、 DefauItC、 CancelD、 Caption7、下面說法不對的的是(D)?A、 層菜單不允許設(shè)立快捷鍵B、 使菜單項(xiàng)中的文字具有下畫線，可在標(biāo)題文字前加&符號(hào)C、 一菜單項(xiàng)名為MenuTerm,則語句MenuTerm.Enab1e=Flase將使該菜単項(xiàng)失效D、 希望在菜單中顯示”&”符號(hào)，則在標(biāo)題欄中輸入”&”符號(hào)148、 以下敘述中錯(cuò)誤的是(C)。A、 在程序運(yùn)營時(shí)，通用對話框控件是不可見的B、 在同一個(gè)程序中，用不同的方法(如ShowOpen或ShowSave等)打開的通用對話框具有不同的作用C、 調(diào)用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文獻(xiàn)D、 調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框149、 菜單編輯器中，輸入哪一個(gè)選項(xiàng)(A)會(huì)在菜單欄上顯示文本A、 標(biāo)題B、 名稱C、 索引D、 訪問鍵0、菜單控件只有一個(gè)事件(B)A、 MouseUpB、 ClickC、 DBClickKeyPress15】、在用通用對話框控件建立“打開”或“保存”文獻(xiàn)對話框時(shí)，假如需要指定文獻(xiàn)列表框所列出的文獻(xiàn)類型是文本文獻(xiàn)(BIJ.txt文獻(xiàn))，則對的的描述格式是(A)。A、 "text(.txt)I(*,txt)”B、 “文本文獻(xiàn)(.txt)I(.txt)”C、 "text(.txt)||(*.txt)MD、 "text(.txt)(*.txt),,152、 卜.面哪個(gè)屬性u(píng)]■以控制菜單項(xiàng)可見或不可見(C)A、 HideB、 CheekedC、 VisibleD、 Enabled153、 卜面說法不對的的是(D)A、 層菜單不允許設(shè)立快捷鍵B、 使菜單項(xiàng)中的文字具有下畫線，可在標(biāo)題文字前加&符號(hào)。C、 一菜單項(xiàng)名為MenuTerm,則語句MenuTerm.Enabled=Flase將使該菜單項(xiàng)失效。D、 希望在菜單中顯示“&”符號(hào)，則在標(biāo)題欄中輸入"&"符號(hào)。154、下面哪個(gè)屬性可以控制菜單項(xiàng)可見或不可見(C)?A、 HideB、 CheckedC、 VisibleD、 Enabled155、改變驅(qū)動(dòng)器列表框的Drive屬性將激活(A)事件。A、 ChangeB、 Scro11KeyDownD、KeyUp156、在窗體上建立通用對話框需要添加的控件是（C）A、 Data控件B、 Form控件C、 CommonDialog控件D、 VBComboB。x控件157、卜.面幾個(gè)關(guān)鍵字均表達(dá)文獻(xiàn)的打開方式，只能進(jìn)行讀不能寫的是（A）。A、 InputB、 OutputC、 RandomD、 Append8、為建一個(gè)隨機(jī)文獻(xiàn)，其中每一條記錄由多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成,應(yīng)使月（AKA、 記錄類型B、 數(shù)組C、 字符串類型D、 變體類型159、下列說法錯(cuò)誤的是（B）。A、 當(dāng)用Write#語句寫順序文獻(xiàn)時(shí)，文獻(xiàn)必須以O(shè)utpui或Append方式打開B、 用Open語句打開一個(gè)文獻(xiàn)時(shí)，對同一個(gè)文獻(xiàn)可以用幾個(gè)不同的文獻(xiàn)號(hào)打開C、 用Output和Append方式打開文獻(xiàn)時(shí)，不用將文獻(xiàn)關(guān)閉，就能重新打開文獻(xiàn)D、 用Append方式打開文獻(xiàn)時(shí)，進(jìn)行寫操作，寫入文獻(xiàn)的數(shù)據(jù)附加到本來文獻(xiàn)的后面0、執(zhí)行語句0pen"Samp1e.dat"ForRandomAs#1Len=50后，對文獻(xiàn)"Sample.dat呻的數(shù)據(jù)可以進(jìn)行的操作是（C）。A、 只能寫不能讀B、 只能讀不能寫C、即可以讀，也可以寫D、不能讀，也不能寫下面程序?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=Val(InputBoxC輸入要?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除的元素")EndSub下列程序表達(dá)將輸入的一個(gè)數(shù)插入到按遞減的有序數(shù)列中，插入后使該序列仍有序PrivateSubForm_C1ick()Dima,i%,n%,m%a=Array(19,17,15,13,11,9,7,5,3,1)n=UBound(a)ReDimPreservea(n+1)m=Vai(【叩utBox("輸入欲插入的數(shù)"))Fori=UBound(a)—1To0Step-1Ifm>=a(i)Thena(i+l)=a(i)Ifi=0Thena(i)=mElsea(i+1)=mExitForEndIfNextiFori=0ToUBound(a)Printa①NextiEndSub下列程序在1(X)0~9999之間查找滿足如下條件的整數(shù):該整數(shù)，逆向排列得到的另一個(gè)四位數(shù)是它自身的倍數(shù)(2倍以上)。查找結(jié)果和逆向排列數(shù)分別顯示在相應(yīng)的列表框PrivateSubCommand1_Click()DimnAsIntegerDimmAsIntegerDimiAsIntegerFori=1OOOTo9999

n=iDoWhilen>0m=m*10+nMod10n=n\10LoopIfmModi=0Andm\i>1Then1istl.Addltemilist2.Additemm&&i&&m\iEndIfNextiEndSub4,將100~150之間的偶數(shù)，拆提成兩個(gè)素?cái)?shù)之和，最后輸出格式如圖。其中,prime函數(shù)判斷參數(shù)x是否為質(zhì)數(shù)PrivateFunctionprime(ByVaixAsInteger)AsBooleanprime=tureFori=2ToSqr(x)IfxModi=0ThenPrime=FalseExitFunctionEndIfNextiEndFunctionPrivateSubForm Load()i=1Forn=lOOTo150Fork3Ton/2Fork3Ton/2Ifprime(k)Andprime(n-k)ThenPrinIi: ,*=?';k;"+”；n-kExitForEndIfNextki=i+1NextnEndSub10,子過程F(N,M,T)對—?個(gè)四位數(shù)n整整數(shù)判斷:巳知該整數(shù)n,逆向排列獲得另一個(gè)4位數(shù)m是特自身的倍數(shù)，則I為true表達(dá)滿足上述條件…。PrivateSubCommand1 Click()DimtAsBoolean,i%,k%textltext2=""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.子過程MoveStr()是把字符組移動(dòng)m個(gè)位置，當(dāng)Tag為Ture是左移，則前m個(gè)字符一道字符數(shù)組尾，例如，“abcdefghij”左移3個(gè)位置后,結(jié)果為"defghijabe";。。。。。PublicSubMoveStr(a$(),m%,TagAsBoo1ean)Dimi%.j%,t$IfTagThenFori=1Tomc=a(0)Forj=0ToUBound(a)-1a(j)=a(j+l)Nextja(UBound(a))-1NextiElse1Tomc=a(UBound(a))Forj=UBound(a)ToIStep-Ia(j)=a(j-1)Nextja(0)=cNextiEndIfEndSub6.9.子過程CountN用來記錄字符串中各數(shù)字字符(0-9)出現(xiàn)的個(gè)數(shù)；主調(diào)程序?qū)υ趖extboxl框輸入的文本，每次單擊“記錄”按鈕，調(diào)用該子過程，在LabeI1框顯示結(jié)果。PrivateSubCommand1 Click()Dimn(9)AsInteger,i%Ca11CountN(n(),textl.Text)1ist1.ClearFori=0To9Ifn①ThenIist1.Addltem"字符"&i&”出現(xiàn)的次數(shù)為"&n(i)NextEndSubSubCountN(ByRefnum%(),ByVaIsAsString)DimeAsString*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.下列程序中的子過程myplitoO用于實(shí)現(xiàn)split函數(shù)的功能，即將數(shù)字字符s鞍分隔符“,”分離到sArry數(shù)組中，分離的個(gè)數(shù)為n。。。。PrivateSubText1_KeyPress(KeyAsciiAsInteger)Dimstr1AsString,num(100)AsInteger,n%,i%IfKeyAscii=13Thenstrl=Trim(Textl.Text)CallMySplit(strl,num,n)1istl.Text=""Fori=1Ton1istl.AddItemnum(i)NextEndSubEndSubEndIfEndSubSubMySp1it(ByVaistrlAsString,ByRefsn()AsInteger.ByRefnAsInteger)Dimi%,j%,ch$i=0j=InStr(Str,”，")DoWhilej>0sn(i)=Va1(Mid(stri,1,j-1))str1=Mid(strl,j+I)i=i+1j=InStr(str")Loopsn(i)=Val(str1)n=iEndSub1工程中有兩個(gè)窗體form1和form2,一個(gè)標(biāo)準(zhǔn)模塊modu1e1,設(shè)在forml中定義了過程aa,在modulei中定義了過程bb。Subaa(x,y,z)z=x*x+y*yEndSubSubbb(x,y,z)z=xA3+yA3EndSubEndSub當(dāng)在form1中單擊命令按鈕時(shí)，調(diào)用以上過程計(jì)算兩個(gè)數(shù)的平方和和立方和,并分別將計(jì)算結(jié)果顯示在文本框text3和text4中，請?zhí)羁胀戤呎{(diào)用語句。PrivaleSubCommandl_CIick()a=Vai(Textl.Text)b=VaI(Text2.Text)Call[aa(a,b,c1)]Text3.Text=clbb[a,b,c2 ]Text4.Text=c2EndSub2I、?面的程序用于根據(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)LPrivateSubCommandl Click()SelectCaseVa1(X.Text)Case[2,4,6 ]Print"X的值為2,4,6"Case[11to15 ]Print-X的值為大于等于11小于等于15?'CaseIs>20Print"X的值大于20”CaseEIsePrinf'X不在范圍內(nèi)”EndSeiect3下面的程序是使用冒泡法對數(shù)組進(jìn)行排序，請將程序補(bǔ)充完整。Opti0nBase1PrivateSubCommandI_Click()DimiA(OTo10)n=6iA(0)=8:iA(l)=6:iA(2)=9:iA(3)=3:iA(4)=2:iA(5)=7Fori=1Ton-1 '進(jìn)行n-1遍比較'對第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ù)。PrivateSubCommand1 Click()Dimm%,n%m=Int(InputBox("inputaninteger"))n=Int(InputBox("inputanotherinteger"))Printgcd(m,n)PublicFunctiongcd%(m%,n%)Dimt%If[m<n]Thent=m：m=n:n=tDor=mModnIfr=0ThenExitDoLoopgcd=nEndFunction5、輸入任意長度的字符串,規(guī)定將字符順序倒置，例如，將輸入的“ABCDEF”變換成“FEDCBA”。請將程序補(bǔ)充完整。PrivateSubCommand1 C1ick()Dima$,i%, c$,n%'n存放字符串的長度a=InputBox("inputastring")n=[Len(a) ]Fori=IToInt(n/2)c=Mid(a,i,1)Mid(a,i,1)=|Mid(a.n-i+1,1)]Mid(a,n—i+1,1)=cNextiEndSub6、下面的程序允許用戶按Enter（回車）鍵后，將組合框中沒有的項(xiàng)目添加到組合椎。

請將程序補(bǔ)充完整。PrivateSubCombol_KeyPress(KeyAsciiAsInteger)DimflagAsBooleanIfKeyAscii=13Thenflag=FalseFori=OToCombol.ListCount—1，查找項(xiàng)目是否已存在If[combol.text=combo1.list(i)]Thenflag=TrueExitForEndIfNextiIff1ag=FalseThen'不存在則添加[combol.AddItemcombo1.Text]EndIfEndIfEndSub7、下面的程序是使用選擇法對數(shù)組進(jìn)行升序排列,請將程序補(bǔ)充完整。OptionBase1PrivateSubCommandl_C1ick()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對第iMin=i對第i遍比較時(shí)，初始假定第i個(gè)元素最小For[j=i+lton] '在數(shù)組i~n個(gè)元素中選最小元素的下標(biāo)If|a(j)<a(imin)]TheniMin=jNextjt=iA① 'i~n個(gè)元素中選出的最小元素與第i個(gè)元素互換iA(i)=iA(iMin)iA(iMin)=tNextiEndSub8、找出被3、5、7除，余數(shù)均為1的最小的5個(gè)正整數(shù)。PrivateSubCommand1_Click()Dimcountn%,n%n=1:counIn=0Don=n+1If[nmod3=1Andnmod5=1Andnmod7=1]ThenPrintncountn=countn+1EndIfLoop[untilcountn=5 ]EndSub9、I、?面程序段是檢査輸入的算術(shù)表達(dá)式中圓括號(hào)是否配對，并顯示相應(yīng)的結(jié)果。本程序在文本椎輸入表達(dá)式，邊輸入，邊記錄，以輸入回車鍵作為表達(dá)式輸入結(jié)束，然后顯示結(jié)果。Dimcount1%PrivateSubTextl KeyPress(KeyAsciiAsInteger)If[chr(keyAscii)]=TThencountl=count1+1ElseIfChr(KeyAscii)=”)"Then[countl=countl+l]EndIfIfKeyAscii=13ThenIfcountl=0ThenPrint”左右括號(hào)配對"E1seifcountl>0ThenPrint-左括號(hào)多于右括號(hào)”；counil;”個(gè)"ElsePrint "右括號(hào)多于左括號(hào)”；-count]；"個(gè)”EndIfEndIfEndSub 10、順序文獻(xiàn)的建立。建立文獻(xiàn)名為“c:\studl.txt”的順序文獻(xiàn)，內(nèi)容來自文本框,每按Enter鍵寫入一條記錄，然后清除文本椎的內(nèi)容，直到文本椎內(nèi)輸入“END”字符串。PrivateSubForm Load()0pen"c:\stud1.txt"For0utputAs#1Text1.Text=""EndSubPriva(eSubText1_KeyPress(keyAsciiAsInteger)IfkeyAscii=l3ThenIf[Ucase(Text1KEND"]ThenClose#1EndElse[Print#l,Textl]Textl.TextEndIfEndIfEndSub11、輸入若干字符，記錄有多少個(gè)元音字母、有多少個(gè)其他字母，不區(qū)分大小寫,并顯示結(jié)果。其中，CountY中放元音字母個(gè)數(shù),CountC中放其他字符數(shù)。PrivateSubCommandl_Click()DimCountY%,CountC%,i%DimC$,B$c=Textl.TextFori=1ToLen(C)B=UCase(Mid(C,i,1))If[*'A"<=BAndBv="Z" ]ThenSelectCaseBCase"A”,”E”,” "CountY=CountY+1Case[Else]CountC=CountC+IEndSe1ectEndIfNextiPrint"元音字母有M;C0untY;"個(gè)"Print"其它字母有"；CountC;”個(gè)"EndSub12、將C盤根目錄卜的一個(gè)文本文獻(xiàn)old.dat復(fù)制到新文獻(xiàn)new.dat中，并運(yùn)用文獻(xiàn)操作語句將old.dat文獻(xiàn)從磁盤上刪除。PrivateSubCommandl_C1ick()Dimstr1$Open*'c：\o1d.dat"ForInputAs#1Open“c:\new.dat”[ForoutputAs#2