2023年大學v課程題庫全集

ｖb單選、操作部分一、單項選擇題1、與傳統(tǒng)的程序設(shè)計語言相比，VｉｓuａlBasic最突出的特點是(Ｃ)。A、結(jié)構(gòu)化程序設(shè)計 ??Ｂ、程序開發(fā)環(huán)境C、事件驅(qū)動編程機制 ? D、程序調(diào)試技術(shù)2、賦值語句:ａ=12３&ＭID("1２3456"，3,2）執(zhí)行后,a變量中的值是(C)。A、＂12334"????B、12３ ??C、1233４ ??Ｄ、157３、保存一個工程至少應(yīng)保存兩個文獻，這兩個文獻分別是(B）。A、文本文獻和工程文獻? B、窗體文獻和工程文獻Ｃ、窗體文獻和標準模塊文獻 D、類模塊文獻和工程文獻４、以下能在窗體Ｆorm1的標題欄中顯示"VisualBａsic窗體"的語句是(C)。A、Form1.Name＝"VisｕaｌBasｉc窗體＂B、Fｏrm1.Title=＂ＶisuaｌＢasｉc窗體"C、Forｍ1.Captioｎ＝＂ＶisｕａlBａｓｉｃ窗體"Ｄ、Foｒm1.Texｔ="VisuａlBasic窗體＂５、為了裝入一個VisuａｌBａｓic應(yīng)用程序,應(yīng)當(Ｄ）A、只裝入窗體文獻(.ｆrm）Ｂ、只裝入工程文獻(.vｂp)C、分別裝入工程文獻和標準模塊文獻（.bas)D、分別裝入工程文獻、窗體文獻和標準模塊文獻６、賦給一個數(shù)組的數(shù)據(jù)類型一定要(A)。A、相同? Ｂ、不相同? ?C、兩可 ? D、都不對7、下面對的的賦值語句是(C）。Ａ、x+y=30??Ｂ、ｙ=π*r*r Ｃ、y=x+３０? D、3ｙ＝x8、VisuａlBasic6.0集成環(huán)境的主窗口中不涉及(C)。Ａ、標題欄 ?B、菜單欄 Ｃ、狀態(tài)欄 D、工具欄9、以下敘述中錯誤的是(C)。Ａ、ViｓualBasic是事件驅(qū)動型可視化編程工具B、ＶｉsｕａｌBａsｉｃ應(yīng)用程序不具有明顯的開始和結(jié)束語句C、VisｕalBaｓic工具箱中的所有控件都具有寬度（Width)和高度(Heiｇｈt)屬性D、VisｕａｌBasic中控件的某些屬性只能在運營時設(shè)立10、要使Pｒint方法在Form＿Load事件中起作用,要對窗體的(Ｃ)屬性進行設(shè)立。A、Backｃolor? ? Ｂ、ForeColorC、AutoRedraw?? D、BackStyle11、若要使命令按鈕不可操作,要對(A)屬性進行設(shè)制。A、Enaｂled B、VｉsibleＣ、BackColor?? ?Ｄ、Ｃaｐtiｏn12、以下敘述中錯誤的是(B）。A、一個工程中可以包含多個窗體文獻B、在一個窗體文獻中用Pｒivaｔe定義的通用過程能被其他窗體調(diào)用Ｃ、在設(shè)計VB程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的磁盤文獻。D、一個工程默認的啟動對象是Fｏrm1１3、Cls方法可以清除窗體或圖片框中的(C）內(nèi)容。A、在設(shè)計階段使用Piｃtuｒe設(shè)立的背景位圖B、在設(shè)計階段放置的控件C、在運營階段產(chǎn)生的圖形和文字D、以上均可１４、設(shè)x=3，ｙ=５，則以下表達式值為真的是(C)A、(-3+5>ｘ)Anｄ(y>０)??Ｂ、(x<0)Eqv(ｙ>0）C、（ｘ>y)Ｏr（y>0)? ??Ｄ、ｘ＞=yＡndy＞1015、為了防止用戶隨意將光標置于控件之上，應(yīng)將進行(D)設(shè)立。A、將控件的ＴabＩndex屬性設(shè)立為0B、將控件的TabＳtｏp屬性設(shè)立為TrueＣ、將控件的TａbＳtop屬性設(shè)立為FａlseD、將控件的Enaｂlｅd屬性設(shè)立為Faｌse1６、要判斷在文本框是否按了Enter鍵，應(yīng)在文本框的（Ｄ）事件中判斷。A、Chaｎge??B、ＫｅyＤoｗn??C、Cｌicｋ? D、ＫeｙPress17、以下關(guān)于焦點的敘述中,錯誤的是(Ａ)。A、假如文本框的TabSｔop屬性為Faｌse，則不能接受從鍵盤上輸入的數(shù)據(jù)B、當文本框失去焦點時,觸發(fā)LｏstFocus事件Ｃ、當文本框的Eｎａbled屬性為Falsｅ時,其Tab順序不起作用D、可以用ＴａｂIｎdex屬性改變Tab順序18、假如文本框的Enabｌeｄ屬性設(shè)為Falｓe，則（Ａ)。A、文本框的文本將變成灰色,并且此時用戶不能將光標置于文本框上。B、文本框的文本將變成灰色,用戶仍然能將光標置于文本框上,但是不能改變文本框中的內(nèi)容。C、文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容。Ｄ、文本框的文本正常顯示，用戶能將光標置于文本框上，但是不能改變文本框中的內(nèi)容。１9、程序運營后，在窗體上單擊鼠標,此時窗體不會接受到的事件是(C）。Ａ、MousｅDｏｗn?? Ｂ、MouseUpＣ、Lｏaｄ ??? D、Cｌｉck20、圖像框有一個屬性，可以自動調(diào)整圖形的大小,以適應(yīng)圖像框的尺寸，這個屬性是(B）。A、Auｔｏsizｅ????B、ＳｔretchC、ＡutoReｄｒaw?? D、Ａｐpearaｎce21、為了防止用戶隨意將光標置于控件之上，應(yīng)設(shè)立的屬性是(Ｄ)。A、將控件的TabIｎｄｅx屬性設(shè)立為0B、將控件的TabStｏp屬性設(shè)立為TｒueC、將控件的ＴabStop屬性設(shè)立為FalseD、將控件的Ｅｎabled屬性設(shè)立為Fａlsｅ22、不管何控件,共同具有的是(B)屬性。Ａ、Texｔ ? ??B、NamｅC、FoｒeCｏｌｏｒ ? ?D、Cａptiｏn23、以下關(guān)于窗體的描述中,錯誤的是（A)。A、執(zhí)行UnloadForm1語句后，窗體Fｏrm1消失,但仍在內(nèi)存中Ｂ、窗體的Loaｄ事件在加載窗體時發(fā)生C、當窗體的Ｅnａｂlｅd屬性為Fａlse時,通過鼠標和鍵盤對窗體的操作都被嚴禁Ｄ、窗體的Height、Wiｄｔｈ屬性用于設(shè)立窗體的高和寬2４、當運營程序時，系統(tǒng)自動執(zhí)行窗體的(A）事件過程。A、Ｌoad??? B、ＣlｉcｋＣ、Uｎlｏaｄ ? ??D、GotFｏｃus25、窗體設(shè)計器是用來設(shè)計（B)。A、應(yīng)用程序的代碼段 B、應(yīng)用程序的界面Ｃ、對象的屬性????Ｄ、對象的事件26、VisualBasｉc是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計語言，采用了(A)的編程機制。A、事件驅(qū)動? ???B、按過程順序執(zhí)行C、從主程序開始執(zhí)行 ?Ｄ、按模塊順序執(zhí)行27、擬定一個控件在窗體上的位置的屬性是(D)。A、Wiｄth或Height ? B、Ｗidth和HeighｔＣ、Ｔop或Ｌeft? ??D、Ｔｏp和Ｌeft２8、假如要改變窗體的標題，則需要設(shè)立的屬性是(A）。A、Capｔioｎ??? ?Ｂ、ＮａmｅC、ＢaｃｋCｏlor ?? D、BｏrderStyle２9、以下敘述中錯誤的是(Ｃ)。Ａ、打開一個工程文獻時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標準模塊等文獻Ｂ、保存ViｓｕalBasiｃ程序時，應(yīng)分別保存窗體文獻及工程文獻Ｃ、VｉsualＢaｓic應(yīng)用程序只能以解釋方式執(zhí)行D、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)３0、以下敘述中錯誤的是(B)。A、雙擊鼠標可以觸發(fā)DblCｌicｋ事件Ｂ、窗體或控件的事件的名稱可以由編程人員擬定C、移動鼠標時,會觸發(fā)MoｕseＭoｖｅ事件Ｄ、控件的名稱可以由編程人員設(shè)定31、在VisuａｌBasiｃ中最基本的對象是(C)。它是應(yīng)用程序的基石,是其他控件的容器。A、文本框??? B、命令按鈕C、窗體 ? ? ?D、標簽32、以下敘述中對的的是(Ａ)。A、窗體的Name屬性指定窗體的名稱,用來標記一個窗體B、窗體的Naｍe屬性的值是顯示在窗體標題欄中的文本Ｃ、可以在運營期間改變對象的Namｅ屬性的值D、對象的Naｍe屬性值可認為空3３、在設(shè)計階段,當雙擊窗體上的某個控件時,所打開的窗口是(C）。A、工程資源管理器窗口? ?? B、工具箱窗口C、代碼窗口? ? ??Ｄ、屬性窗口３4、VisuａlBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計語言,采用了的編程機制是（A)。A、事件驅(qū)動? ? B、按過程順序執(zhí)行C、從主程序開始執(zhí)行 ?? Ｄ、按模塊順序執(zhí)行35、用來設(shè)立粗體字的屬性是(C)。A、FontＩｔalic? ?? ?B、FoｎtNａmeC、ＦontBｏｌｄ????? ?D、ＦontＳiｚe3６、假如一個工程具有多個窗體及標準模塊，則以下敘述中錯誤的是（A)。Ａ、假如工程中具有SuｂＭain過程,則程序一定一方面執(zhí)行該過程B、不能把標準模塊設(shè)立為啟動模塊C、用Ｈide方法只是隱藏一個窗體,不能從內(nèi)存中清除該窗體D、任何時刻最多只有一個窗體是活動窗體３7、為了把焦點移到文本框，所使用的方法是(A)。A、SeｔFocus ? ? B、VisiｂｌeC、Refｒesｈ? ?? D、GetＦocuｓ38、IＮT(100*RND）產(chǎn)生的隨機整數(shù)的閉區(qū)間是（A)。A、[0,99]? Ｂ、［1，100]C、[0,10０］? ???D、[１，９９]3９、假如要在命令按鈕上顯示圖形文獻,應(yīng)設(shè)立命令按鈕的（Ｂ）。A、Stylｅ屬性和Graphics屬性B、Style屬性和Pｉcture屬性C、Capｔioｎ屬性? ? ?D、Gｒaphｉｃs屬性40、若要使命令按鈕不可操作,要對(A)屬性進行設(shè)制。A、Ｅｎaｂｌeｄ ? B、VisibleC、BａｃkColor ????Ｄ、Caｐtion41、假定窗體的名稱為Forｍ1,則把窗體的標題設(shè)立為“VB_Ｔest”的語句為(B)。A、Ｆorｍ１=“VB＿Tesｔ”? B、Foｒm1．Ｃａpｔｉon=“ＶB_Ｔest”C、Ｆｏｒｍ1．Tｅxt＝“VＢ_Ｔeｓt”?D、Fｏrm1．ｎame=“ＶＢ_Ｔest”４2、以下敘述中錯誤的是(Ａ)。A、在工程資源管理器窗口中只能包含一個工程文獻及屬于該工程的其他文獻B、以．BAS為擴展名的文獻是標準模塊文獻C、窗體文獻包含該窗體及其控件的屬性D、一個工程中可以具有多個標準模塊文獻4３、要使文本框獲得輸入焦點，則應(yīng)采用文本框控件的哪個方法(A)。A、GotＦｏｃus ? B、ＬoｓｔFocｕsＣ、KeyPｒess? D、SetＦocus4４、以下不能在“工程資源管理器”窗口中列出的文獻類型是(B）。A、.bas??B、．ｒes???Ｃ、．fｒｍ ? D、．oｃx４5、剛建立一個新的標準EXＥ工程后,不在工具箱中出現(xiàn)的控件是(C)。A、單選按鈕??B、圖片框 C、通用對話框?? D、文本框４6、以下敘述中錯誤的是(Ｂ)。Ａ、雙擊鼠標可以觸發(fā)DblＣlicｋ事件B、窗體或控件的事件的名稱可以由編程人員擬定C、移動鼠標時,會觸發(fā)MoｕseMoｖｅ事件D、控件的名稱可以由編程人員設(shè)定４7、以下可以觸發(fā)文本框Chanｇe事件的操作是(D）。A、文本框失去焦點 ? B、文本框獲得焦點C、設(shè)立文本框的焦點? D、改變文本框的內(nèi)容48、以下敘述中錯誤的是(C)。A、一個工程中只能有一個ＳubMain過程B、窗體的Sｈow方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體Ｃ、窗體的Hide方法和Unload方法的作用完全相同D、若工程文獻中有多個窗體,可以根據(jù)需要指定一個窗體為啟動窗體49、語句PrintAbs(-6^２)+Iｎt（-６^2)的輸出結(jié)果是(A）。A、0?? B、1???Ｃ、－1 ? D、-7250、假如將布爾常量值TRＵE賦值給一個整型變量，則整型變量的值為（B)。A、０?? Ｂ、-1 ??C、ＴRUE??? D、FＡLSE51、函數(shù)Stｒing（n,"str")的功能是（Ｂ)。A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串Ｂ、返回由n個字符組成的字符串Ｃ、從字符串中取出ｎ個字符D、從字符串中第n個字符的位置開始取子字符串52、語句PrｉｎｔFoｒmaｔ(“HelloWorｌd”,“>”)的輸出結(jié)果是（C)。Ａ、hｅｌlｏＷOＲLD ?Ｂ、heｌloworｌdC、HELLOWOＲLD? ??D、HELＬOｗorlｄ53、聲明符號常量應(yīng)當用關(guān)鍵字(B)。Ａ、Sｔａt(yī)ic ? B、Cｏnsｔ? Ｃ、Private ??D、Vａｒianｔ54、要強制顯示聲明變量,可在窗體模塊或標準模塊的聲明段中加入語句（Ｂ)。Ａ、OptionBase0?? B、OptiｏnExplｉcitC、ＯｐtiｏnBaｓｅ１????D、OｐtｉｏｎCompａre５５、下列可作為ＶｉｓｕalBａsiｃ變量名的是(D)。Ａ、A＃A??B、4Ａ? ?Ｃ、?xy? D、ｃoｎstA56、設(shè)a=10,b=5，ｃ=1,執(zhí)行語句Prｉntａ>ｂ>c后,窗體上顯示的是(B)。A、True ?B、Ｆａｌse C、１? ? Ｄ、犯錯信息57、執(zhí)行x$=Sｔｒing(６，"１2４ａｂc")后,x的值是(B）。A、124ａbｃ ? B、11１111 C、１24? ?Ｄ、ａbc58、設(shè)a＝6,則執(zhí)行x=IIf(ａ>５,-1,０)后,x的值為(D)A、５? B、6 ???C、0??? D、-159、執(zhí)行語句:ｃ$=“Gｌad”&Ｍｉd$（“Ｎiceｔomeetyou”,5,3)，則變量c$的值為（C）。Ａ、Nｉcetomeｅtyou B、ＧlａdNicｅｔoｍeetyｏuC、Gladtｏ ?? ?D、Glad60、下面(D）是合法的字符常數(shù)。A、ABC$??B、＂ＡＢC" ?C、'ABC'? D、ＡＢC61、對于語句Ifｘ=１Ｔhｅnｙ=1,下列說法對的的是（Ｃ)。A、ｘ=1和y=1均為賦值語句B、ｘ=1和y=１均為關(guān)系表達式C、x＝1為關(guān)系表達式,y＝１為賦值語句D、x=1為賦值語句，y=1為關(guān)系表達式62、設(shè)有聲明：DimＸAsＩnｔeger,假如Sgn(X)的值為-1,則X的值是（Ｄ)。Ａ、任何整數(shù)? ?B、0??C、等于0的整數(shù) D、小于0的數(shù)６3、在一行內(nèi)寫多條語句時，每個語句之間用（Ｂ)符號分隔。A、，? B、： ? ?Ｃ、、?????D、;６4、從鍵盤上輸入兩個字符串,分別保存在變量sｔr1、ｓtｒ2中。擬定第二個字符串在第一個字符串中起始位置的函數(shù)是（D)。A、Ｌeft? B、Mid? C、String ?Ｄ、Instｒ65、設(shè)S=＂中華人民共和國",表達式Leｆt(Ｓ，1）+Ｒighｔ(Ｓ,1）+Miｄ(S,3,2）的值為（Ｂ）A、"中華民國"?? ? B、"中國人民"Ｃ、"中共人民" ??? D、"人民共和"66、下列可作為VisuａlＢasic中的變量名的是(A)。A、Filename ?B、A(A+B) ?C、254D???Ｄ、Print67、下面(A）是合法的變量名。A、X＿yz?? B、12３abc ?C、Inｔeｇeｒ? D、X-Ｙ6８、以下變量命名非法的是（C)。A、xyz123? Ｂ、pｒiｎtaa C、bｏｏlean Ｄ、Bｅrnald6９、設(shè)有變量聲明:DiｍTeｓtDateAsDａt(yī)e,為變量ＴesｔDate對的賦值的表達方式是(A)。A、TexｔＤaｔｅ=＃１/1/20２3#B、TestDate=#“1/1/2023C、TeｘｔDatｅ=date(“1/1/2０２3D、TestDate=Foｒmat（“m/d／yy”,“1/1/20237０、設(shè)ａ＝2,b=3,c=4,d=5，表達式a＞bＡNＤc<=d的值是(Ｂ）。A、Tｒue??Ｂ、Faｌse Ｃ、-1 ?D、１71、表達式6*8Moｄ9的值是(B)。A、4 ??Ｂ、３? C、６???D、７72、假設(shè)變量bool_ｘ是一個布爾型（邏輯型)的變量，則下面對的的賦值語句是(Ｄ)Ａ、bool_x＝"Falｓe"? ?B、bool_ｘ=.Falｓe.C、bool＿ｘ=#Fａｌsｅ＃? ?D、boｏl_x＝False73、設(shè)a=“ＶiｓuａlBasic”，下面使b＝“Bａsｉｃ”的語句是(B)。A、b＝Leｆｔ（ａ,8,12)????Ｂ、b=Ｍｉｄ(a，８,5）C、b＝Ｒigｔh(a，５，5) ?D、ｂ＝Leｆt(a,8，５)７4、語句PrintＦoｒmａt(yī)$(３2548.5,“###,###.###”)的輸出結(jié)果是（B)。A、32548．５??B、3２,5４８.5 Ｃ、03２,548.50? D、３２,５４8.50７5、以下聲明語句中錯誤的是（D）。A、Cｏｎstvar1=123?? B、Dimｖar2='AＢC'C、Diｍx_ｙ＿ｚ% ?? D、Sｔａt(yī)icvａr3ＡsIｎtｅｇer76、可以同時刪除字符串前導(dǎo)和尾部空白的函數(shù)是（Ｃ)。A、Ltｒiｍ Ｂ、Rｔrim ?Ｃ、Trim ??Ｄ、Ｍｉｄ７7、下列可為合法變量名的是(D)。A、IｎtｅgｅrB、False ?C、pubｌiｃ ?D、ｔhankｓgiｖiｎg78、變量未賦值時,數(shù)值型變量的值為（A)。A、0?? B、空 ?? Ｃ、1??? D、無任何值7９、表達式16／４－2^5*８／4Mod5＼2的值為(B）。A、14? ?B、４?? C、20 ??D、2確的80、下面Iｆ語句記錄滿足性別為男、職稱為副專家以上、年齡小于4０歲條件的人數(shù)，不正語句是（D）。Ａ、Ｉfseｘ=＂男"Aｎdａge＜４0And（duｔy=＂專家＂Oｒｄuty="副專家")Thenｎ=ｎ+1Ｂ、Ifsex="男"Andage＜４0AnｄInＳtr(duty,"專家")>0Ｔｈenｎ=ｎ+1C、Ifsex="男＂Andage＜４0AｎdRigｈt(duty,2)="專家"Thenｎ=n+1D、Ifsex="男"Ａnｄａge<４0Andｄuty="專家"Aｎddｕｔｙ="副專家"Thｅｎn=n+1８1、設(shè)a=3，b=5,則以下表達式值為真的是(B）。Ａ、a>=bAnｄb>１0B、(a>b)Oｒ（b>０)Ｃ、(a＜０)ｏr(b<0)D、(-３+５>ａ)And（b>0）82、執(zhí)行語句a=InputBox("Ｔoday＂，"Tｏmｏrroｗ","Ｙestｅrday",,，"Ｄａyｂefｏｒeyesterday",5）,將顯示一個輸入對話框,在對話框的輸入?yún)^(qū)中顯示的信息是(Ａ）。A、TodayB、TomorrowC、YeｓｔerdayD、DａｙbeforeYesterｄａｙ83、VB提供了結(jié)構(gòu)化程序設(shè)計的３種基本結(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)8４、下面If語句記錄滿足性別為男、職稱為副專家以上、年齡小于40歲條件的人數(shù)，不對的的語句是（D)。Ａ、Iｆｓｅx=“男”Ａnｄａｇe＜40AndInＳｔr（dｕｔy,“專家”)>0Thenn=n+1B、Ifsex=“男”Anｄａge＜4０Ａnd(dｕty＝“專家”Ｏrduty=“副專家”）Thenｎ=n＋1C、Iｆｓeｘ=“男”Aｎdａge<40AndＲｉght（duty,2)=“專家”Ｔhｅｎn=n+１D、Iｆsex=“男”Andage＜40Andｄuty=“專家”Andｄｕtｙ=“副專家”Thenn=n＋185、當語句w=IIf(４>1０,”Reｄ”,“Greeｎ”）執(zhí)行后,變量w中的值是（C)。A、ＮｕｌlＢ、“Rｅd”Ｃ、“Gｒeen”D、－１86、賦值語句：a=123＋MID(“123456”，３,2)執(zhí)行后，ａ變量中的值是（Ａ、“１2334B、１2３C、1２334Ｄ、15787、設(shè)有語句x=IｎpｕｔBox(“AAAA”,“BBBB”,“”),程序運營后，所產(chǎn)生的對話框的標題應(yīng)為(Ｃ)。A、ＡAAAB、空C、BBBＢＤ、犯錯，不能產(chǎn)生對話框8８、下面對的的賦值語句是（C）。Ａ、ｘ+y=30B、y=π*ｒ*rC、y=ｘ+30D、3y＝x8９、ＶB提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu),三種基本結(jié)構(gòu)是(D)。Ａ、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)Ｂ、選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)C、過程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)Ｄ、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)90、下面程序段求兩個數(shù)中的大數(shù),不對的的是（D)。A、Ｍax=ＩＩf(x＞y,x,y)B、Ifｘ＞yThenＭax＝xＥlseＭax=ｙC、Ｍax=ｘ：Ifｙ＞＝ｘTheｎMax=yＤ、Ifｙ＞ｘＴhenMax=y:Max=x91、下列程序段:ＤimxIfxThｅnPrｉntxElsePrintx+１運營后，顯示的結(jié)果是（A）。A、1B、０Ｃ、-1D、犯錯９2、以下不屬于vb的三種基本結(jié)構(gòu)的是(C）?Ａ、順序結(jié)構(gòu)Ｂ、選擇結(jié)構(gòu)C、遞歸結(jié)構(gòu)D、循環(huán)結(jié)構(gòu)93、語句Ifx=1Tｈｅｎy=1,下列說法對的的是（C）。Ａ、x＝1和y=1均為賦值語句B、x＝1和ｙ=1均為關(guān)系表達式C、ｘ＝1為關(guān)系表達式,y=1為賦值語句D、x=1為賦值語句,ｙ=1為關(guān)系表達式9４、賦值語句:ａ=１23&MID(“12３4５６”A、“１2３34Ｂ、1２3C、12334D、157９5、下面程序段顯示的結(jié)果是（A)。Ｄimｘx=Int(Rnd）+5SelｅctCasｅxCase5“優(yōu)秀”Casｅ4Print“良好”Case3Prｉnt“通過”ＣasｅElsePｒinｔ“不通過”ＥnｄSelｅctA、優(yōu)秀B、良好Ｃ、通過D、不通過9６、為了給x,y,z這3個變量賦初值1，下面對的的賦值語句是（A)。A、ｘ=1：y=1:z＝1B、x=１，y＝１,z=1Ｃ、ｘ=ｙ=ｚ＝1D、xｙｚ=197、下列語句對的的是(C）A、IfA≠BThenＰｒｉnt"A不等于B"B、IｆA<>BThenPrｉntfA不等于BＣ、ＩｆA＜>ＢＴhenＰriｎt"A不等于B"D、IｆA≠BPrint＂Ａ不等于B"98、設(shè)有語句x$=ＩnputBox(“輸入數(shù)值”,“０”，“示例”),程序運營后,假如從鍵盤上輸入數(shù)A、變量X的值是數(shù)值1０B、在IｎputBｏx對話框標題欄中顯示的是“示例”C、0是默認值Ｄ、變量Ｘ的值是字符串“10９９、運營下列程序段后,顯示的結(jié)果為(B）Ｊ１=４：Ｊ2＝9ＩfＪ1<J2ThenPrintＪ2ElsePrintJ１A、４B、9C、13Ｄ、4910０、IｎpuｔBｏx函數(shù)返回值的類型為(B）。A、數(shù)值B、字符串Ｃ、變體D、數(shù)值或字符串（視輸入的數(shù)據(jù)而定）101、一個數(shù)組說明為Dima（0ｔｏ5，1to5)AｓInteger，則該數(shù)組共有(Ｃ）個元素。A、25B、36Ｃ、3０D、不擬定10２、數(shù)組聲明語句Dｉma(2to3，-2to２,3tｏ5）中,數(shù)組a包含元素的個數(shù)為（C)。Ａ、120B、７５Ｃ、3０Ｄ、13103、假如在上題語句前加入OｐtionＢａse1，則該數(shù)組共有（D)個元素。Ａ、15B、１6C、１3D、不擬定104、假如有聲明Ｄiｍa(１５)AsIntegｅr，則該數(shù)組共有（Ｂ）個元素。A、1５B、１6C、13Ｄ、不擬定105、一個數(shù)組說明為Dima(５,1to５)AｓInteｇer，則該數(shù)組共有（Ｃ）個元素。A、25B、3６C、30Ｄ、不擬定10６、在VB中,默認的數(shù)組下標的下界從0開始，要想在通用聲明段界定下界，則應(yīng)使用（A）。A、OｐtｉonＢaｓeB、OptionExpｌicitC、ExpｌiciｔD、LoｗBase107、如下數(shù)組聲明語句，對的的是(B)。Ａ、Ｄima[3,4]asＩntegeｒＢ、Dima(3,4)asIｎｔeｇeｒC、Dima（n,ｎ）asIntegerＤ、Diｍａ[3］[4）asIｎｔeger１08、賦給一個數(shù)組的數(shù)據(jù)的值的類型一定要(Ａ）。Ａ、相同B、不相同C、兩可Ｄ、都不對1０9、數(shù)組的下標可取的變量類型是（A)。Ａ、數(shù)值型B、字符型Ｃ、日期型Ｄ、可變型１10、數(shù)組聲明語句Ｄima（０to３,-２tｏ2,0to５)中，數(shù)組ａ包含元素的個數(shù)為(Ａ)。A、１20Ｂ、７5C、6０D、13111、假定有如下的Sub過程：SuｂS（xAsSingle,yAsSingle)t=xｘ=t／yｙ＝tModｙＥnｄSub在窗體上添加一個命令按鈕,然后編寫如下事件過程:ＰｒｉvaｔｅSubComｍanｄ1_Cｌiｃｋ()DimaAsSingleDｉｍbＡsＳinglea=5:b=4Ｓa,ｂPrｉnｔａ,bＥnｄSuｂ程序運營時，單擊命令按鈕得到的結(jié)果(Ｄ)。A、5４Ｂ、１1Ｃ、1.254D、1.２5１112、用以下方式聲明的變量，(B）可以在整個程序中通用?A、在窗體模塊用Dim進行聲明B、在窗體模塊用Pｕblｉc進行聲明C、在窗體模塊用Prｉｖate進行聲明D、在窗體模塊用Sｔatｉｃ進行聲明11３、在窗體上添加一個命令按鈕和三個標簽,編寫事件過程：PrivateｘAsＩntegerＰrivaｔeSubCｏmmａnd1_Click(）SｔatiｃyAsInteｇｅrDimzＡsIntegerN=1０:ｚ=N+z:ｙ＝y(tǒng)+z:ｘ=x+zLaｂｅl1.Captiｏｎ=ｘLabel2.Capｔion=yLabel３．Caｐtｉon=zEｎdSuｂ程序運營后，連續(xù)三次單擊命令按鈕，則三個標簽中顯示的內(nèi)容分別是(A)。A、１0１010Ｂ、３030３0C、3０3010D、1０3030114、以下敘述中錯誤的是(D)。A、假如過程被定義為Ｓtatiｃ類型,則該過程中的局部變量都是Sｔaｔiｃ類型B、Suｂ過程中不能嵌套定義Ｓub過程C、Sub過程中可以嵌套調(diào)用Ｓub過程D、事件過程可以像通用過程同樣由用戶定義過程名1１5、在在窗體上添加一個命令按鈕Comｍand１和一個文本框Teｘt１，然后編寫如下事件過程：PriｖaｔeSubCｏmmａｎd1＿Cｌｉck()DimxAsInｔｅger，ｙAｓInｔeger，zAsIntegerx=5ｙ=7z=0Tｅxt1.Ｔeｘt=""Cａｌlp1(ｘ,y,z)Text1.Text=Stｒ（z)EndSubPｒｉvａt(yī)eSubp１(ＢyVaｌaAsIｎteger,ＢyValbAｓInteger，cAｓIｎteｇer)ｃ=a+bEnｄSub程序運營后，單擊命令按鈕得到的結(jié)果是（A）。A、12B、0C、Ｓｔｒ(z)D、沒有顯示結(jié)果１1６、假如在程序中要將ａ定義為靜態(tài)變量，且為整型數(shù),則應(yīng)使用的語句是:（B）A、RｅdｉmaＡｓIntegeｒB、StaticaAsＩｎｔegerC、PubｌｉcaAｓIｎtｅgｅrD、DiｍａAsInteｇeｒ11７、以下程序的運營結(jié)果是（C）Ｓubs１(ｂ（)ＡsIｎｔegｅr)Foｒi＝1To4b（i）＝2*iＮextiEndＳubPriｖateSubCoｍmand1_Cliｃk(）Dｉｍａ(１To4）AsIntｅgerＦorｉ＝1To4 a(i)=i＋５Nextis1a()Fori=1Tｏ4Pｒinta（i)NextiＥndＳuｂA、12141618Ｂ、６78９C、2468Ｄ、１２３４１18、以下程序的運營結(jié)果是（D）。Fuｎｃtionf（ｍAsInｔeger)ＡsIｎtｅｇｅrb＝1StatｉccAｓIｎtegeｒb＝b+1c=c+1f=m＊ｂ*cEndFuncｔｉonPrivateＳubＣｏmmanｄ１＿Cｌicｋ()DimaAsIntegera＝2Sum=０Fｏri＝1To3Ｓum=Ｓｕｍ+f(a)ＮextiPrintＳumEnｄSubＡ、１2Ｂ、2８C、32D、2４１19、下列程序輸出結(jié)果(C）。Prｉvａt(yī)eSubCoｍmand1_Cｌick()Foｒi＝1To１0GetVａｌueiＮｅｘｔｉPｒｉntGetVａｌue(ｉ）ＥnｄSubPriｖateＦｕnctionGetValｕe(ByValaAｓIntegeｒ)SｔatｉcSAsIｎtｅgeｒS＝S+aＧetVaｌue=SＥndFuｎctioｎA(yù)、10Ｂ、65Ｃ、66D、１1１2０、在過程定義的變量,若希望在離開該過程后，還能保存過程中局部變量的值,則應(yīng)使用(D)關(guān)鍵字在過程中定義局部變量。Ａ、DｉmＢ、ＰrivateC、PubliｃD、Ｓtatic121、在過程定義中用(C)表達形參的傳值。A、ＶarB、ByＤｅfＣ、ByVａlD、Value12２、在在窗體上添加一個命令按鈕Coｍmａｎd1和兩個名稱分別為Ｌaｂｅｌ1和Lａｂｅｌ2的標簽,然后編寫如下事件過程：PrivatｅＸAsIｎtegerPｒivateSubComｍanｄ1_Click()X=5:y=3Caｌlpｒｏc(X,y）Label1．Capｔiｏn＝XＬaｂel2．Captioｎ=yEndSubSuｂｐroc（BｙValaＡsInteger,BｙVａｌbAｓＩnteger)X=a*ay=ｂ+ｂＥndSub程序運營后,單擊命令按鈕,則兩個標簽lａbｅl１和ｌabel２中顯示的內(nèi)容分別是(B)。A、25,3Ｂ、2５,6C、5,３D、5，612３、以下程序的運營結(jié)果是(C）。DｉｍxAsＩntegｅr,yAsInｔｅｇｅｒ,ｚAsＩｎtｅｇｅrSubs1（ａＡsIｎteｇeｒ,bAsIｎteger）ＤimcＡsInｔegeｒａ=2*ab=b+2c＝ａ+bEｎｄSubSubs2（aAsInｔeｇer,ByValbAsInｔｅｇer)DimcAsIｎtegｅra=2*ａb=b＋2c＝a+bEnｄSｕbＰｒivaｔeSuｂCｏmｍａnd1_Clｉck（）x＝4：ｙ＝：4ｚ=6Caｌls１(ｘ,y)Ｐriｎｔx+y＋zCaｌls2（x，y)Pｒintx+y+zＥndSｕbＡ、２428B、2028C、2018D、2020124、以下關(guān)于過程及過程參數(shù)的描述中,錯誤的是（C)。A、過程的參數(shù)可以是控件名稱B、用數(shù)組作為過程的參數(shù)時，使用的是“傳地址”方式C、只有函數(shù)過程可以將過程中解決的信息傳回到調(diào)用的程序中Ｄ、窗體可以作為過程的參數(shù)125、以下屬于ＶｉsualBasic合法的數(shù)組元素是（C）A、ｘ8Ｂ、ｘ［８]C、s(０)D、v［8]１26、下列敘述中對的的是(C)。A、在窗體的Fｏｒm_Lｏaｄ事件過程中定義的變量是全局變量B、局部變量的作用域可以超過所定義的過程Ｃ、在某個Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名,但其作用域只限于該過程D、在調(diào)用過程時，所有局部變量被系統(tǒng)初始化為０或空字符串127、假定有以下函數(shù)過程:FｕncｔｉｏｎFun(SAsＳtriｎg)AsStrinｇDims1AsSｔriｎgFori＝1TｏLen（Ｓ)s1=UCase(Mid(Ｓ，ｉ,1))+ｓ１NextｉFun＝s１EndFunｃｔion在窗體上添加一個命令按鈕，然后編寫如下事件過程：PrivateSｕbCommａnd１＿Cｌiｃｋ()Diｍsｔr1AsSｔrｉnｇ,sｔr２AｓStrinｇstr1=InｐuｔＢox（＂請輸入一個字符串＂)sｔｒ2=Fun(sｔr1)Printstr2EndSub程序運營后,單擊命令按鈕,假如在輸入對話框中輸入字符串“aｂcｄefg”，單擊"擬定"按鈕后程序在窗體上輸出結(jié)果（D)。A、ａbcｄefｇB、gfedcbaＣ、GFEDＣBＡD、ABCＤEＦG1２8、若已編寫了一個Sort子過程,在該工程中有多個窗體,為了方便的調(diào)用Sｏｒｔ子過程，應(yīng)當將該過程放在(B)。A、窗體模塊B、標準模塊C、類模塊D、工程129、下面子過程語句說明合法的是(D)Ａ、Subｆ1(ByＶａlｎ(）AsIntegeｒ)B、Fuｎctiｏｎf1（f1ＡsIntｅger)AsIntegerC、Subf１（n(）ＡsＩntegeｒ）AsInteｇeｒＤ、Fuｎｃｔioｎf1（ByVａlnAｓInｔeｇer)AsＩnteger１３０、在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值,則應(yīng)使用(D)關(guān)鍵字在過程中定義局部變量。A、DiｍB、ＰｒivatｅC、PｕblicD、Sｔatｉc１31、在窗體上畫三個單選按鈕,組成一個名為ｃhkOpｔiｏｎ的控件數(shù)組。用于標記各個控件數(shù)組元素的參數(shù)是（D）。A、TagB、IndｅxC、ＬiｓtIndｅxD、Namｅ1３２、假如列表框(Liｓt1）有四個數(shù)據(jù)項，那么把數(shù)據(jù)項“China”添加到列表框的最后，應(yīng)使用(Ｄ）語句。A、Lｉst1.ＡddItｅm３,"Chinａ"B、List１.AｄdＩtem"China",Lisｔ1.List1Count－１C、Lｉsｔ1.ＡdｄItｅｍ"Cｈina＂,３D、Lｉst1.AddＩtem＂Chｉｎa"1３3、假如列表框(Lｉst1)中沒有被選定的項目，則執(zhí)行Liｓt1．ReｍoveItemList1．ListIndｅx語句的結(jié)果是(D）。Ａ、移去第一項Ｂ、移去最后一項C、移去最后加入列表的一項D、以上都不對1３4、以下敘述中錯誤的是（C)。Ａ、在KeyUp和ＫeyDｏwn事件過程中,從鍵盤上輸入A或a被視作相同的字母(即具有相同的KeｙＣode)B、在KeyUp和KｅyDown事件過程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1C、KeyＰrｅss事件中不能辨認鍵盤上某個鍵的按下與釋放D、KｅyＰrｅsｓ事件中可以辨認鍵盤上某個鍵的按下與釋放135、設(shè)組合框Combo1中有３個項目,則以下能刪除最后一項的語句是(B)。A、Combo１.ＲemoveItｅｍTexｔB、Cｏmbｏ１.RemoveＩtem2C、Combo１.ＲｅｍoveItem３D、Ｃombｏ1.ＲeｍoveItemCombｏ1.Lｉｓｔcｏuｎｔ136、下列控件中,沒有Ｃaptioｎ屬性的是(B）。A、框架Ｂ、列表框C、復(fù)選框Ｄ、單選按鈕137、引用列表框(Lisｔ1)最后一個數(shù)據(jù)項應(yīng)使用的表達式是（C）A、Lｉst1.Ｌist(List1.ListCｏｕnt）B、Lｉｓt１.Lisｔ(ＬistCｏunｔ)Ｃ、Lisｔ1.Lｉst(List1.ListCｏunt-1)D、List1.List（ListCounｔ-1)１3８、窗體的MouseDown事件過程Fｏrｍ＿MouseDｏwn(ＢuｔtonAsIｎteger,SｈiｆtAsIｎｔｅger,XAsSｉngle,YAsSiｎgｌe)有4個參數(shù)，關(guān)于這些參數(shù),對的的描述是（Ａ)。A、通過Bｕttoｎ參數(shù)鑒定當前按下的是哪一個鼠標鍵Ｂ、Shift參數(shù)只能用來擬定是否按下Shift鍵Ｃ、Ｓhift參數(shù)只能用來擬定是否按下Alt和Ｃtrｌ鍵D、參數(shù)x,y用來設(shè)立鼠標當前位置的坐標1３９、復(fù)選框的Ｖaｌｕe屬性為1時,表達(Ｂ）。A、復(fù)選框未被選中Ｂ、復(fù)選框被選中Ｃ、復(fù)選框內(nèi)有灰色的勾Ｄ、復(fù)選框操作有錯誤。140、引用列表框的最后一項應(yīng)使用(Ａ)。A、List1.List(Ｌｉｓt１．ＬｉｓtＣount-1）B、List1．Liｓt(Ｌisｔ1.LiｓｔＣouｎt)C、Ｌｉst1.List(ＬistＣｏunt)Ｄ、List1.List(LｉsｔCｏunt－1)１41、設(shè)窗體上有一個列表框控件Lisｔ1,且其中具有若干列表項。則以下能表達當前被選中的列表項內(nèi)容的是(D)。Ａ、Lｉｓt1.ListB、Ｌist1.ＬisｔIｎdexC、List1.IndｅxD、Liｓt１.Ｔeｘt142、表達滾動條控件取值范圍最大值的屬性是(A）。A、MaxB、LarｇeChangｅC、ValueD、Max-Ｍｉn１43、為了在按下Ｅsc鍵時執(zhí)行某個命令按鈕的Cｌick事件過程,需要把該命令按鈕的一個屬性設(shè)立為True,這個屬性是（Ｄ)。A、VaｌueB、DeｆａulｔC、CancelD、Enａbleｄ1４4、假如列表框(List1)有四個數(shù)據(jù)項，那么把數(shù)據(jù)項“Ｃhｉna”添加到列表框的最后,應(yīng)使用語句（D)。A、List１.AddItem3，"Ｃhina＂B、List１.AddIteｍ"Cｈina",Ｌist1．List１Cｏunt-１Ｃ、Lisｔ1.ＡｄdＩteｍ"China＂，3Ｄ、Lisｔ１.AｄdIｔｅm"Cｈiｎa＂，List1．Liｓｔ１Cｏｕnt145、復(fù)選框的Vａｌuｅ屬性為２時,表達（Ｃ）。Ａ、復(fù)選框未被選中B、復(fù)選框被選中Ｃ、復(fù)選框內(nèi)有灰色的勾Ｄ、復(fù)選框操作有錯誤。146、為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)立為Ｔrue,這個屬性是（Ａ)。A、ValueB、ＤeｆaｕltＣ、CancelD、Cａｐｔion1４7、下面說法不對的的是(D）?A、層菜單不允許設(shè)立快捷鍵Ｂ、使菜單項中的文字具有下畫線，可在標題文字前加＆符號C、一菜單項名為ＭｅnuTerm，則語句ＭenuTｅrm.Enａbｌe=Ｆlase將使該菜單項失效D、希望在菜單中顯示"＆"符號,則在標題欄中輸入"&"符號148、以下敘述中錯誤的是(C)。Ａ、在程序運營時，通用對話框控件是不可見的B、在同一個程序中，用不同的方法(如ShowOpen或SｈowSave等）打開的通用對話框具有不同的作用Ｃ、調(diào)用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文獻D、調(diào)用通用對話框控件的SｈowCｏｌor方法，可以打開顏色對話框149、菜單編輯器中,輸入哪一個選項(A)會在菜單欄上顯示文本A、標題B、名稱C、索引D、訪問鍵15０、菜單控件只有一個事件（Ｂ）A、MouseUpＢ、ＣlｉｃkＣ、DBCｌiｃｋD、ＫeｙPress151、在用通用對話框控件建立“打開”或“保存”文獻對話框時,假如需要指定文獻列表框所列出的文獻類型是文本文獻（即.txt文獻),則對的的描述格式是（A)。A、“text（.txｔ）｜(*．txｔ)”B、“文本文獻(.txｔ）|(．txｔ)”C、“ｔeｘt(．tｘt)||(*.txt)”D、“text(.tｘt）（*．txt)”152、下面哪個屬性可以控制菜單項可見或不可見（C）A、HideB、ChecｋedC、VisｉbleD、Enabled153、下面說法不對的的是(D）A、層菜單不允許設(shè)立快捷鍵B、使菜單項中的文字具有下畫線,可在標題文字前加＆符號。Ｃ、一菜單項名為MeｎuTｅｒm，則語句MenuTerm.Enableｄ=Flaｓe將使該菜單項失效。Ｄ、希望在菜單中顯示“&”符號,則在標題欄中輸入“＆”符號。15４、下面哪個屬性可以控制菜單項可見或不可見（Ｃ）?A、HidｅB、ＣheckｅdC、VisibleD、Enablｅd155、改變驅(qū)動器列表框的Ｄｒｉvｅ屬性將激活（Ａ）事件。Ａ、ChａngeB、ScｒｏllC、KｅyDoｗｎＤ、KeyUp156、在窗體上建立通用對話框需要添加的控件是（C)A、Data控件Ｂ、Foｒm控件C、ComｍonDialog控件Ｄ、ＶBCｏmboＢｏx控件１５７、下面幾個關(guān)鍵字均表達文獻的打開方式，只能進行讀不能寫的是(Ａ）。A、IｎputB、OｕｔpuｔＣ、ＲａndomD、Ａｐｐend15８、為建一個隨機文獻,其中每一條記錄由多個不同數(shù)據(jù)類型的數(shù)據(jù)項組成,應(yīng)使用（A）。A、記錄類型B、數(shù)組C、字符串類型D、變體類型１5９、下列說法錯誤的是（B）。A、當用Wriｔｅ＃語句寫順序文獻時，文獻必須以Ｏuｔｐut或Ａppend方式打開Ｂ、用Opｅn語句打開一個文獻時，對同一個文獻可以用幾個不同的文獻號打開C、用Ｏutput和Apｐenｄ方式打開文獻時，不用將文獻關(guān)閉,就能重新打開文獻D、用Appenｄ方式打開文獻時,進行寫操作,寫入文獻的數(shù)據(jù)附加到本來文獻的后面16０、執(zhí)行語句Oｐen"Sａｍpｌe.ｄaｔ"ForＲanｄomAs#1Lｅn＝50后，對文獻"Ｓamｐｌe.ｄａｔ"中的數(shù)據(jù)可以進行的操作是(Ｃ)。Ａ、只能寫不能讀B、只能讀不能寫C、即可以讀，也可以寫D、不能讀，也不能寫1,下面程序?qū)σ阎獢?shù)組a,刪除數(shù)組中數(shù)組元素中某個元素PrivateＳｕbCｏｍｍaｎｄ1_Click()Ｄima()，key%,i%,j%a=Arraｙ(１，6,８，3，5,9，１0，２,７，4)ｋey=Val(IｎｐutＢox("輸入要刪除的值"))Ｆｏｒｉ=０ＴoUBound(ａ)Ifkey＝ａ（i)ThenForj=ｉ+1ToＵＢound（a)a(j-１)＝a(ｊ)NeｘtjＲeDimPreｓｅrvea(UBoｕnd(a）-1)MsgＢoｘ("刪除完畢")EｘitSuｂＥndＩfＮｅxtiＭsｇBoｘ（"找不到要刪除的元素＂）EndSuｂ2，下列程序表達將輸入的一個數(shù)插入到按遞減的有序數(shù)列中，插入后使該序列仍有序PrivateSｕbForm_Cｌｉcｋ(）Dima,ｉ%，ｎ%,m%a＝Arｒay(19，17,15,13，11,９,7,５，3,１)n=UBｏund(a)RｅDimＰｒｅservｅａ（n+1)m=Val(InputBox("輸入欲插入的數(shù)")）Fori＝UBoｕｎｄ(a)－1To０Steｐ-1Iｆｍ>＝ａ(i)Thｅnａ（i+1)=a(i)Ifi=0Theｎａ(i)=ｍＥlseａ（ｉ+１)=mＥxitFoｒEnｄＩfNexｔiＦorｉ=０ToUBｏund(a)Printａ(i)ＮeｘｔｉEndＳub3，下列程序在１00０~9999之間查找滿足如下條件的整數(shù):該整數(shù),逆向排列得到的另一個四位數(shù)是它自身的倍數(shù)（2倍以上)。查找結(jié)果和逆向排列數(shù)分別顯示在相應(yīng)的列表框PriｖateSubCoｍmaｎｄ1_Ｃlick()DｉmｎＡｓIntｅgｅｒＤｉmmAsＩntegerDｉｍiAsIｎtｅgerFoｒi=１０00Tｏ99９9ｍ=０ｎ=iＤoWhilen＞０m=m*1０+nMod10n=n\10ＬoopIｆmModi=0Andm＼i＞１Thenlｉｓt1.AddItｅｍiliｓｔ2.AｄdIｔｅmm&"="＆i&"*"&m＼iＥｎdIfNextiEndSub4,將100~150之間的偶數(shù)，拆提成兩個素數(shù)之和，最后輸出格式如圖。其中,prime函數(shù)判斷參數(shù)x是否為質(zhì)數(shù)PｒiｖatｅFunctionprｉmｅ(BｙValxＡsIntｅｇeｒ）ＡsBoolｅanprime=tuｒeFoｒi=2ToSqr(x)IfｘＭｏdｉ=0Thｅnｐｒime=ＦalseExitFｕnｃtiｏｎEndIfＮｅxtiEndFunctiｏｎPrivatｅSubＦｏrm＿Load()ｉ=１Foｒn=100Tｏ150Forｋ=3Ton/2Ifｐrime(ｋ)Aｎdprime(ｎ-ｋ）ThenPｒiｎｔｉ；":";"=";k;"+";n－ｋＥxitForEnｄIfＮexｔｋi=i+1NｅｘtnEndSuｂ１0，子過程F(N,M,T）對一個四位數(shù)n整整數(shù)判斷:已知該整數(shù)n,逆向排列獲得另一個4位數(shù)m是特自身的倍數(shù),則t為truｅ表達滿足上述條件。。。PriｖａｔeSubＣommand1_Ｃlick()DｉmtＡsBooleａn,ｉ%,k%tｅxt１=""ｔｅxｔ２=""Fori=100０To9999Ｃallf（i，k,ｔ)IｆｔThｅntｅxｔ１=text1＆i＆vbCrLftｅxｔ2＝tｅxt2＆k&＂＝＂&i&"＊"&k＼i&vbＣｒLｆEnｄＩｆNｅｘｔｉEndSuｂＳｕbf(ByVａln％,ByＲefm%,byreｙftagAsBｏolean)Diｍi%Tag=Falｓｅｍ=0i=ｎＤoWhilei>0m=m*10+iＭod10i＝i\1０ＬｏopＩｆmMｏdn=0Ａｎdｍ＼n>1ＴhｅnTaｇ＝ＴrueEnｄIfＥndSｕb6.8.子過程MoveＳｔｒ（)是把字符組移動ｍ個位置,當Tａg為Turｅ是左移，則前m個字符一道字符數(shù)組尾，例如，“abcdefｇhiｊ”左移3個位置后,結(jié)果為“ｄｅfｇｈijaｂc”;。。。。。PｕblｉcSｕbMｏveStr(a$(),m%,TａｇAsBoｏｌean)Ｄimi%,j％，t＄IfTagThｅnFoｒi＝1Tomc=ａ(0)Ｆｏrj=0ＴｏUBｏｕnd(ａ)-1a（j）=ａ(j+1)Nextja(UＢoｕnd(a))-1NｅｘtiElｓeFｏｒi=1Toｍc=a（UBound(ａ)）Foｒj=UBound(a)To1Step-1a（j)=a（j-1)Nｅxtja(0)＝cNextiEnｄIfEndSｕｂ6.9.子過程CounｔN用來記錄字符串中各數(shù)字字符(0-９）出現(xiàn)的個數(shù)；主調(diào)程序?qū)υ趖ｅxｔbox1框輸入的文本，每次單擊“記錄”按鈕,調(diào)用該子過程,在Laｂeｌ1框顯示結(jié)果。PrivateSubCｏｍmand1＿Clicｋ()Dimn(9)AsInteger，ｉ%CaｌｌCountN（n(）,teｘｔ1.Teｘt）lｉst１.ClｅaｒＦoｒｉ=0Tｏ９Iｆｎ(i)Thenlｉsｔ1．AddItｅm"字符"&i&"出現(xiàn)的次數(shù)為＂&n(ｉ）ＮextＥｎdSubSuｂＣoｕｎtN(ByＲｅfnum%()，ByVaｌsAsStｒing）DimcAsＳtｒiｎｇ*1,ｉ%,ｍ％,ｊ％Forｉ＝0To9ｎum（i)=0Nextiｍ=Len(s)Foｒi=１Tｏｍc=Mid（s,i,１)Ｉfc＞=＂０"Andｃ<="９"Thenj=Ｖal(c)nｕm(ｊ）=ｎｕm(j）+１EndIfNextiEnｄSuｂ6.１1.下列程序中的子過程myplｉt。。用于實現(xiàn)ｓpliｔ函數(shù)的功能，即將數(shù)字字符s鞍分隔符“,”分離到sArrｙ數(shù)組中，分離的個數(shù)為n。。。。PrｉvatｅSubTexｔ１_KeyPｒess(ＫｅyAsciｉAsＩntegeｒ）DiｍｓtｒlＡｓStrinｇ,ｎｕm（100)AsIｎteger，n%，ｉ%IfKeyAｓcｉi＝13Tｈensｔr1＝Ｔrim（Texｔ1.Text）CallMySplｉt(str1,ｎum,n)ｌist1.Text=""Foｒｉ=1Tonｌist1.AｄdＩteｍｎｕm(ｉ)ＮextＥndIfEnｄＳuｂSuｂＭySpｌit(ByＶalsｔr1AsString,BｙＲefsn()AsＩnteｇer,ByＲeｆnＡsIntegｅr)Ｄimi%,ｊ%,ch＄i=0j=InＳtｒ（Ｓtr,"，")DoWｈilej>0sn(ｉ)=Vａl（Mid(ｓtr1,1,j-1))stｒ1=Miｄ（ｓtｒ1,j+1）i=i+1ｊ＝InSｔr（stｒ1,",＂)Lｏoｐｓn(i)=Val(stｒ1)n=iEndＳｕｂ1工程中有兩個窗體ｆoｒm１和ｆoｒm2，一個標準模塊ｍoduｌｅ1,設(shè)在ｆorm1中定義了過程ａa，在modｕle1中定義了過程ｂb。Subaa(ｘ,y,ｚ)z=x＊x+y*yEndSubSuｂbb（x，y,z)z＝ｘ^3＋y^3EnｄSｕb當在foｒｍ１中單擊命令按鈕時,調(diào)用以上過程計算兩個數(shù)的平方和和立方和,并分別將計算結(jié)果顯示在文本框text3和ｔｅxt4中，請?zhí)羁胀戤呎{(diào)用語句。PｒivateSubCommａnd1_Click()a＝Val（Tｅｘｔ1.Ｔeｘｔ）b＝Vａl(Tｅxt2.Text)Call[aa(a,b,ｃ１）]Tｅxｔ3.Teｘt=c1bb[a,ｂ,ｃ2]Ｔeｘｔ４.Teｘｔ=c2EｎdSub――――――――――――――――――2下面的程序用于根據(jù)文本框X中輸入的內(nèi)容進行以下解決:若X為2、４、6,則打印"X的值為２、4、6"；若X在11到１5之間,則打印"Ｘ的值為大于等于１1小于等于15＂；若X大于20，則打印＂X的值大于20"；否則,打印"Ｘ不在范圍內(nèi)"。PrivateSubCｏmｍand1＿Cliｃk()SelectCaseVａl（Ｘ.Ｔext)Case[２,4,6]Prｉnt"X的值為2，4,6"Cａse[11to1５]Priｎt＂X的值為大于等于1１小于等于15＂ＣaｓeＩs>2０Ｐrint"X的值大于2０"CaseＥlseＰriｎt"X不在范圍內(nèi)"EｎdSelｅctEｎdＳuｂ――――――――――――――3下面的程序是使用冒泡法對數(shù)組進行排序，請將程序補充完整。OptiｏnBase1PrivaｔeＳubCommand1_Click()ＤiｍiＡ（0To10）n=6ｉA(0)=8:iA(1)＝６:ｉA(2)＝9:iA（3)=3:iA(4)=２:ｉＡ(5)＝7Fori=1Ton-１'進行n-１遍比較'對第ｉ遍比較時,大數(shù)沉底Fｏｒ[j=1ton－i]'在數(shù)組i~ｎ個元素中選最小元素的下標Iｆ［ｉA(j）>iA(j＋1)］Thｅnt＝iＡ（j）iA(ｊ)＝iA(j＋1）iA（j＋１)＝tEndIfＮexｔjEndＳuｂ――――――――――――４程序的功能是使用輾轉(zhuǎn)相除法求兩個數(shù)的最大公約數(shù)。Ｐriｖａt(yī)eSuｂCommand１＿Ｃliｃｋ（)Ｄiｍm%，n%ｍ=Int(InpuｔBox("ｉnpｕｔaniｎｔegeｒ"))n＝Inｔ（ＩnpｕtBoｘ("inpuｔaｎotｈｅrintegｅr")）Printｇcｄ(m,n)ＥnｄSubＰublicＦunｃtionｇcd%(m%，n%)Dimt％If[ｍ<n]Thｅnt=ｍ:m=n:ｎ=tＤor=mModnＩfr＝0ＴhenEｘitDoｍ=n[n＝r]Lｏopgcd＝nEndFunctｉoｎ―――――――――5、輸入任意長度的字符串,規(guī)定將字符順序倒置,例如,將輸入的“AＢCＤＥＦ”變換成“ＦEDCＢA”。請將程序補充完整。Priｖａt(yī)eSubCommand1＿Cｌiｃk()Dima$,i%，ｃ＄,n％'ｎ存放字符串的長度ａ=ＩｎputBoｘ("inｐｕtasｔrｉng＂)ｎ=[Leｎ（a)]Fori＝1TｏＩnt（ｎ／2)ｃ＝Mid(a,ｉ,１)Mｉd(a,i,1)＝[Miｄ(a,n-i+１,1)]Mid(ａ,ｎ－ｉ＋1,1)＝cNextiEndSub――――――――――６、下面的程序允許用戶按Ｅｎteｒ(回車）鍵后，將組合框中沒有的項目添加到組合框。請將程序補充完整。PrivateSubCoｍbo1_KeｙPrｅss(KｅyＡsciiAｓIntｅｇer)DimｆｌａgＡsＢoolｅanIfKｅｙAscii=1３Thｅnflａg=ＦalseＦori＝0TｏCｏｍbo1．ListCount－１'查找項目是否已存在Iｆ［cｏmbo1．ｔeｘｔ=combo１.list(i)]Tｈenｆlaｇ=TrueExitＦｏrEndIｆNeｘtiIffｌag=FalｓeThen'不存在則添加[combo1.AddＩｔｅmcomｂｏ１.Ｔｅxt]EndIfEndIfEndSｕb―――――――――7、下面的程序是使用選擇法對數(shù)組進行升序排列,請將程序補充完整。OptionBasｅ１PrivatｅSubCommaｎd1_Cｌick()DimiＡ（１To10)n=6ｉＡ（1)=8:ｉＡ(2）=６:iA(3)=9：iA(４)=3:ｉA(5)=２：ｉA(６)=７Fｏｒｉ=１Ton-1'進行n-１遍比較iMin=i'對第i遍比較時,初始假定第i個元素最小For[j＝i+1ton]＇在數(shù)組i~ｎ個元素中選最小元素的下標If[a(ｊ)<a（imiｎ)]TheniMin=ｊNextｊｔ=iＡ(i)＇ｉ~n個元素中選出的最小元素與第i個元素互換iA(ｉ)＝iA(iＭiｎ)iＡ(ｉMin）＝tNｅxtiEndSuｂ―――――――――――8、找出被3、5、7除，余數(shù)均為1的最小的5個正整數(shù)。ＰｒivateSubCommand1_Ｃlick(）Dimcountn%,ｎ%ｎ=１:cｏunｔn＝0Dｏｎ＝n+1If［nmｏｄ3=1Ａndnmod5=１Aｎdnｍｏｄ7=1]ThenPrintncｏuｎｔｎ=cｏuntｎ+１EndＩfＬoop[ｕｎtilcｏuntn=5]EndSub――――――――――――――9、下面程序段是檢查輸入的算術(shù)表達式中圓括號是否配對,并顯示相應(yīng)的結(jié)果。本程序在文本框輸入表達式,邊輸入,邊記錄，以輸入回車鍵作為表達式輸入結(jié)束,然后顯示結(jié)果。Diｍcount1%PrｉｖateSubText1＿KeyＰrｅsｓ(ＫeyAsciiAｓInｔｅger)If[chr(kｅyAscii)]="("Ｔｈeｎｃount1=count1+1ElsｅＩｆChｒ（KｅyAsｃｉi)="）"Ｔhｅｎ[ｃoｕnt1=couｎt1+1］EndIfIfＫeyＡｓciｉ＝１3TｈｅnＩfcｏｕnt1=0ThenPrint"左右括號配對"ＥｌseIｆｃount1>0TｈｅnPrinｔ"左括號多于右括號＂;count1;"個"ElsｅＰrｉnｔ＂右括號多于左括號＂;-ｃouｎｔ1；"個"EndIfEndIfEndSub――――――――――――10、順序文獻的建立。建立文獻名為“c:\sｔuｄ1.tｘt”的順序文獻,內(nèi)容來自文本框,每按Enteｒ鍵寫入一條記錄，然后清除文本框的內(nèi)容,直到文本框內(nèi)輸入“EＮD”字符串。Ｐrｉvａt(yī)eSuｂForｍ＿Lｏaｄ（)Ｏｐｅn“ｃ:\ｓtuｄ1．txt”ForＯutｐｕtAｓ#1Text１.Ｔext=“”EｎdＳubPrivａt(yī)eSubＴｅxｔ1_KｅyＰress（keyAsciｉAｓIntｅｇｅr)IfkeyＡｓｃii=1３ThenIf[Ucase(Texｔ１)="ＥNＤ"]ThenＣlosｅ#１ＥndElｓe[Priｎt#1,Ｔｅxt1]Texｔ1.Tｅxｔ＝“”EｎdＩｆEndＩfEndSub―――――――――――――1１、輸入若干字符，記錄有多少個元音字母、有多少個其他字母,不區(qū)分大小寫,并顯示結(jié)果。其中，CountY中放元音字母個數(shù),CouｎtC中放其他字符數(shù)。Ｐrivａt(yī)eSubＣｏmmand1_Click()ＤiｍDimC$,B$ｃ=Text1.TexｔFori＝1ToLen(C)B=UCａse(Mｉd(Ｃ,i,１））If["A＂<=BAndB<="Z＂]TｈenSｅlectCaseＢCasｅ"A",＂E",＂I","O","Ｕ＂CoｕntY=CountY+1Cａｓｅ[Elsｅ]CoｕnｔC=CountC+1EnｄＳeｌeｃｔEndＩfNexｔiPrinｔ"元音字母有＂;CｏuntY;"個"Ｐrint"其它字母有"；CouｎtC;"個"ＥndＳuｂ――――――――12、將Ｃ盤根目錄下的一個文本文獻ｏlｄ.dat復(fù)制到新文獻new.dａt(yī)中,并運用文獻操作語句將old．daｔ文獻從磁盤上刪除。PriｖatｅSuｂCｏmmand1_Cｌick（)Ｄimstr１$Open“c：\oｌｄ.dat”FｏｒInｐutAs＃1Oｐen“ｃ:\ｎew.dａt(yī)”[FoｒouｔputAs#2]DｏＷhile[NotEｏF（1)］LiｎeＩnｐut#1,str1Prｉnt＃2，sｔr1LoopCｌosｅ#１,#2ＫＩLＬ“c:＼olｄ.dａｔ”EｎdSub―――――――――＜ＰIXTEL_MＭI_EBOＯＫ_2０23＞613、產(chǎn)生［10，３7]之間的隨機整數(shù)的VisuａlBａsic表達式是[<iｎt(Rnｄ*28+１0)>]。判斷ｓ字符變量是大寫字母字符的邏輯表達式為［＜s＞="Ａ"Ands<="Z＂＞］。表達x是5的倍數(shù)或９的倍數(shù)的邏輯表達式是[<xＭｏd5=０OrxMod9=0>]Ｌeｎ("ｖｂ程序設(shè)計")的值是[<６>]。表達字符變量s是字母字符（不區(qū)分大小寫)的VＢ表達式是［<Ｌcasｅ(ｓ)>＝＂ａ＂AｎｄＬcase(ｓ)<="z"或者Uｃase(ｓ)＞＝＂A"AｎｄUcase(s）＜="Z"＞］。將一個兩位數(shù)ｘ的個位數(shù)與十位數(shù)互換位置,組成另一個兩位數(shù)，則相應(yīng)的表達式是[<（ｘMod1０)＋x\１0>］。隨機產(chǎn)生一個“C”～“Ｌ”范圍內(nèi)的大寫字符,則相應(yīng)的ＶB表達式是[<Chr(Inｔ(Rｎd*10+6８))>]。Rouｎd(-３.５)的值是[＜－４>]。Ｉnt（３.5)的值是[<３>]。下面程序段運營后的輸出結(jié)果是[<2203214２25２３>]。Ｆorｉ=0Ｔo3PrintTab(5＊i+1);"2"＋i；＂2"＆i；Nexti循環(huán)語句Foｒｉ＝-３to20Step0的循環(huán)次數(shù)是[<無數(shù)次>]。在過程中定義的局部變量，假如希望過程結(jié)束后還保存變量的值，則應(yīng)使用[＜Sｔatic＞］關(guān)鍵字進行聲明。由Arrａy函數(shù)建立的數(shù)組，其變量必須是[＜Variant＞]。要使循環(huán)語句循環(huán)執(zhí)行20次，F(xiàn)ｏrk＝＿___tｏ-5Ｓｔep－2，則ｋ=[<3３＞]。循環(huán)語句Ｆori=－3．5to５.5Step0.5的循環(huán)次數(shù)是[<１９＞］。下列程序段中,第41句共執(zhí)行了[<12>］次。3０Ｆoｒｊ=1Tｏ1２Step34０Foｒk=６To2Ｓteｐ-２41Ｐrintｊ,k42Nextk4３Nextj循環(huán)語句Fori=-