大學VB考試習題庫

PAGE77大學VB考試題庫一、單項選擇題1、與傳統(tǒng)的程序設計語言相比,VisualBasic最突出的特點是（）。A、結構化程序設計B、程序開發(fā)環(huán)境C、事件驅動編程機制D、程序調試技術2、賦值語句：a=123&MID("123456",3,2)執(zhí)行后，a變量中的值是（）。A、"12334"B、123C、12334D、1573、保存一個工程至少應保存兩個文件，這兩個文件分別是（B）。A、文本文件和工程文件B、窗體文件和工程文件C、窗體文件和標準模塊文件D、類模塊文件和工程文件4、以下能在窗體Form1的標題欄中顯示"VisualBasic窗體"的語句是（C）。A、="VisualBasic窗體"B、="VisualBasic窗體"C、="VisualBasic窗體"D、="VisualBasic窗體"5、為了裝入一個VisualBasic應用程序，應當（D）A、只裝入窗體文件（.frm）B、只裝入工程文件（.vbp）C、分別裝入工程文件和標準模塊文件（.bas）D、分別裝入工程文件、窗體文件和標準模塊文件6、賦給一個數組的數據類型一定要（A）。A、相同B、不相同C、兩可D、都不對7、下面正確的賦值語句是（C）。A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、VisualBasic集成環(huán)境的主窗口中不包括（C）。A、標題欄B、菜單欄C、狀態(tài)欄D、工具欄9、以下敘述中錯誤的是(C)。A、VisualBasic是事件驅動型可視化編程工具B、VisualBasic應用程序不具有明顯的開始和結束語句C、VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性(計時器)D、VisualBasic中控件的某些屬性只能在運行時設置10、要使Print方法在Form_Load事件中起作用，要對窗體的(C)屬性進行設置。A、BackcolorB、ForeColorC、AutoRedrawD、BackStyle11、若要使命令按鈕不可操作，要對(A)屬性進行設制。A、EnabledB、VisibleC、BackColorD、Caption12、以下敘述中錯誤的是(B)。A、一個工程中可以包含多個窗體文件B、在一個窗體文件中用Private定義的通用過程能被其他窗體調用C、在設計VB程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的磁盤文件。D、一個工程默認的啟動對象是Form113、Cls方法可以清除窗體或圖片框中的(C)內容。A、在設計階段使用Picture設置的背景位圖B、在設計階段放置的控件C、在運行階段產生的圖形和文字D、以上均可14、設x=3,y=5,則以下表達式值為真的是(C)A、(-3+5>x)And(y>0)B、(x<0)Eqv(y>0)C、(x>y)Or(y>0)D、x>=yAndy>1015、為了防止用戶隨意將光標置于控件之上，應將進行(D)設置。A、將控件的TabIndex屬性設置為0B、將控件的TabStop屬性設置為TrueC、將控件的TabStop屬性設置為FalseD、將控件的Enabled屬性設置為False16、要判斷在文本框是否按了Enter鍵，應在文本框的(D)事件中判斷。A、ChangeB、KeyDownC、ClickD、KeyPress17、以下關于焦點的敘述中，錯誤的是(A)。A、如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數據B、當文本框失去焦點時，觸發(fā)LostFocus事件C、當文本框的Enabled屬性為False時，其Tab順序不起作用D、可以用TabIndex屬性改變Tab順序18、如果文本框的Enabled屬性設為False，則(A)。A、文本框的文本將變成灰色，并且此時用戶不能將光標置于文本框上。B、文本框的文本將變成灰色，用戶仍然能將光標置于文本框上，但是不能改變文本框中的內容。C、文本框的文本將變成灰色，用戶仍然能改變文本框中的內容。D、文本框的文本正常顯示，用戶能將光標置于文本框上，但是不能改變文本框中的內容。19、程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是(C)。A、MouseDownB、MouseUpC、LoadD、Click20、圖像框有一個屬性，可以自動調整圖形的大小，以適應圖像框的尺寸，這個屬性是(B)。A、AutosizeB、StretchC、AutoRedrawD、Appearance21、為了防止用戶隨意將光標置于控件之上，應設置的屬性是(D)。A、將控件的TabIndex屬性設置為0B、將控件的TabStop屬性設置為TrueC、將控件的TabStop屬性設置為FalseD、將控件的Enabled屬性設置為False22、不論何控件，共同具有的是(B)屬性。A、TextB、NameC、ForeColorD、Caption23、以下關于窗體的描述中，錯誤的是(A)。A、執(zhí)行UnloadForm1語句后，窗體Form1消失，但仍在內存中B、窗體的Load事件在加載窗體時發(fā)生C、當窗體的Enabled屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止D、窗體的Height、Width屬性用于設置窗體的高和寬24、當運行程序時，系統(tǒng)自動執(zhí)行窗體的(A)事件過程。A、LoadB、ClickC、UnloadD、GotFocus25、窗體設計器是用來設計(B)。A、應用程序的代碼段B、應用程序的界面C、對象的屬性D、對象的事件26、VisualBasic是一種面向對象的可視化程序設計語言，采取了(A)的編程機制。A、事件驅動B、按過程順序執(zhí)行C、從主程序開始執(zhí)行D、按模塊順序執(zhí)行27、確定一個控件在窗體上的位置的屬性是(D)。A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left28、如果要改變窗體的標題，則需要設置的屬性是(A)。A、CaptionB、NameC、BackColorD、BorderStyle29、以下敘述中錯誤的是(C)。A、打開一個工程文件時，系統(tǒng)自動裝入與該工程有關的窗體、標準模塊等文件B、保存VisualBasic程序時，應分別保存窗體文件及工程文件C、VisualBasic應用程序只能以解釋方式執(zhí)行D、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)30、以下敘述中錯誤的是(B)。A、雙擊鼠標可以觸發(fā)DblClick事件B、窗體或控件的事件的名稱可以由編程人員確定C、移動鼠標時，會觸發(fā)MouseMove事件D、控件的名稱可以由編程人員設定31、在VisualBasic中最基本的對象是(C)。它是應用程序的基石，是其他控件的容器。A、文本框B、命令按鈕C、窗體D、標簽32、以下敘述中正確的是(A)。A、窗體的Name屬性指定窗體的名稱，用來標識一個窗體B、窗體的Name屬性的值是顯示在窗體標題欄中的文本C、可以在運行期間改變對象的Name屬性的值D、對象的Name屬性值可以為空33、在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是(C)。A、工程資源管理器窗口B、工具箱窗口C、代碼窗口D、屬性窗口34、VisualBasic是一種面向對象的可視化程序設計語言，采取了的編程機制是(A)。A、事件驅動B、按過程順序執(zhí)行C、從主程序開始執(zhí)行D、按模塊順序執(zhí)行35、用來設置粗體字的屬性是(C)。A、FontItalicB、FontNameC、FontBoldD、FontSize36、如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是(A)。A、如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程B、不能把標準模塊設置為啟動模塊C、用Hide方法只是隱藏一個窗體，不能從內存中清除該窗體D、任何時刻最多只有一個窗體是活動窗體37、為了把焦點移到文本框，所使用的方法是(A)。A、SetFocusB、VisibleC、RefreshD、GetFocus38、INT（100*RND）產生的隨機整數的閉區(qū)間是（A）。A、[0，99]B、[1，100]C、[0，100]D、[1，99]39、如果要在命令按鈕上顯示圖形文件，應設置命令按鈕的(B)。A、Style屬性和Graphics屬性B、Style屬性和Picture屬性C、Caption屬性D、Graphics屬性40、若要使命令按鈕不可操作，要對(A)屬性進行設制。A、EnabledB、VisibleC、BackColorD、Caption41、假定窗體的名稱為Form1,則把窗體的標題設置為“VB_Test”的語句為(B)。A、Form1=“VB_Test”B、=“VB_Test”C、=“VB_Test”D、=“VB_Test”42、以下敘述中錯誤的是(A)。A、在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件B、以.BAS為擴展名的文件是標準模塊文件C、窗體文件包含該窗體及其控件的屬性D、一個工程中可以含有多個標準模塊文件43、要使文本框獲得輸入焦點，則應采用文本框控件的哪個方法(A)。A、GotFocusB、LostFocusC、KeyPressD、SetFocus44、以下不能在“工程資源管理器”窗口中列出的文件類型是(B)。A、.basB、.resC、.frmD、.ocx45、剛建立一個新的標準EXE工程后，不在工具箱中出現的控件是(C)。A、單選按鈕B、圖片框C、通用對話框D、文本框46、以下敘述中錯誤的是(B)。A、雙擊鼠標可以觸發(fā)DblClick事件B、窗體或控件的事件的名稱可以由編程人員確定C、移動鼠標時，會觸發(fā)MouseMove事件D、控件的名稱可以由編程人員設定47、以下能夠觸發(fā)文本框Change事件的操作是(D)。A、文本框失去焦點B、文本框獲得焦點C、設置文本框的焦點D、改變文本框的內容48、以下敘述中錯誤的是(C)。A、一個工程中只能有一個SubMain過程B、窗體的Show方法的作用是將指定的窗體裝入內存并顯示該窗體C、窗體的Hide方法和Unload方法的作用完全相同D、若工程文件中有多個窗體，可以根據需要指定一個窗體為啟動窗體49、語句PrintAbs(-6^2)+Int(-6^2)的輸出結果是(A)。A、0B、1C、-1D、-7250、如果將布爾常量值TRUE賦值給一個整型變量，則整型變量的值為(B)。A、0B、-1C、TRUED、FALSE51、函數String(n,"str")的功能是(B)。A、把數值型數據轉換為字符串B、返回由n個字符組成的字符串C、從字符串中取出n個字符D、從字符串中第n個字符的位置開始取子字符串52、語句PrintFormat(“HelloWorld”,“>”)的輸出結果是(C)。A、helloWORLDB、helloworldC、HELLOWORLDD、HELLOworld53、聲明符號常量應該用關鍵字(B)。A、StaticB、ConstC、PrivateD、Variant54、要強制顯示聲明變量，可在窗體模塊或標準模塊的聲明段中加入語句(B)。A、OptionBase0B、OptionExplicitC、OptionBase1D、OptionCompare55、下列可作為VisualBasic變量名的是(D)。A、A#AB、4AC、xyD、constA56、設a=10，b=5，c=1，執(zhí)行語句Printa>b>c后，窗體上顯示的是(B)。A、TrueB、FalseC、1D、出錯信息57、執(zhí)行x$=String(6,"124abc")后，x的值是(B)。A、124abcB、111111C、124D、abc58、設a=6，則執(zhí)行x=IIf(a>5,-1,0)后，x的值為（D）A、5B、6C、0D、-159、執(zhí)行語句：c$=“Glad”&Mid$(“Nicetomeetyou”,5,3)，則變量c$的值為(C)。A、NicetomeetyouB、GladNicetomeetyouC、GladtoD、Glad60、下面(D)是合法的字符常數。A、ABC$B、"ABC"C、'ABC'D、ABC61、對于語句Ifx=1Theny=1，下列說法正確的是（C）。A、x=1和y=1均為賦值語句B、x=1和y=1均為關系表達式C、x=1為關系表達式，y=1為賦值語句D、x=1為賦值語句，y=1為關系表達式62、設有聲明：DimXAsInteger,如果Sgn(X)的值為-1，則X的值是(D)。A、任何整數B、0C、等于0的整數D、小于0的數63、在一行內寫多條語句時，每個語句之間用(B)符號分隔。A、，B、：C、、D、；64、從鍵盤上輸入兩個字符串，分別保存在變量str1、str2中。確定第二個字符串在第一個字符串中起始位置的函數是(D)。A、LeftB、MidC、StringD、Instr65、設S="中華人民共和國"，表達式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（B）A、"中華民國"B、"中國人民"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、設有變量聲明:DimTestDateAsDate,為變量TestDate正確賦值的表達方式是(A)。A、TextDate=#1/1/2002#B、TestDate=#“1/1/2002”#C、TextDate=date(“1/1/2002”)D、TestDate=Format(“m/d/yy”,“1/1/2002”)70、設a=2,b=3,c=4,d=5，表達式a>bANDc<=d的值是(B)。A、TrueB、FalseC、-1D、171、表達式6*8Mod9的值是(B)。A、4B、3C、6D、772、假設變量bool_x是一個布爾型(邏輯型)的變量，則下面正確的賦值語句是（D）A、bool_x="False"B、bool_x=.False.C、bool_x=#False#D、bool_x=False73、設a=“VisualBasic”，下面使b=“Basic”的語句是(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、語句PrintFormat$,“###,###.###”)的輸出結果是（B）。A、B、32,C、032,D、32,75、以下聲明語句中錯誤的是(D)。A、Constvar1=123B、Dimvar2='ABC'C、Dimx_y_z%D、Staticvar3AsInteger76、可以同時刪除字符串前導和尾部空白的函數是(C)。A、LtrimB、RtrimC、TrimD、Mid77、下列可為合法變量名的是(D)。A、IntegerB、FalseC、publicD、thanksgiving78、變量未賦值時，數值型變量的值為(A)。A、0B、空C、1D、無任何值79、表達式16/4-2^5*8/4Mod5\2的值為(B)。A、14B、4C、20D、280、下面If語句統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數，不正語句是（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、設a=3,b=5，則以下表達式值為真的是(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=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5),將顯示一個輸入對話框，在對話框的輸入區(qū)中顯示的信息是(A)。A、TodayB、TomorrowC、YesterdayD、DaybeforeYesterday83、VB提供了結構化程序設計的3種基本結構，這3種基本結構是（B）。A、遞歸結構，分支結構，循環(huán)結構B、選擇結構，過程結構，順序結構C、過程結構，輸入、輸出結構，轉向結構D、分支結構，循環(huán)結構，順序結構84、下面If語句統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數，不正確的語句是（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、當語句w=IIf(4>10,”Red”,“Green”)執(zhí)行后，變量w中的值是（C）。A、NullB、“Red”C、“Green”D、-186、賦值語句：a=123+MID(“123456”,3,2)執(zhí)行后，a變量中的值是（D）。A、“12334”B、123C、12334D、15787、設有語句x=InputBox(“AAAA”，“BBBB”，“”),程序運行后，所產生的對話框的標題應為(C)。A、AAAAB、空C、BBBBD、出錯，不能產生對話框88、下面正確的賦值語句是（C）。A、x+y=30B、y=π*r*rC、y=x+30D、3y=x89、VB提供了結構化程序設計的三種基本結構，三種基本結構是(D)。A、遞歸結構、選擇結構、循環(huán)結構B、選擇結構、過程結構、順序結構C、過程結構、輸入輸出結構、轉向結構D、選擇結構、循環(huán)結構、順序結構90、下面程序段求兩個數中的大數，不正確的是（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運行后，顯示的結果是（A）。A、1B、0C、-1D、出錯92、以下不屬于vb的三種基本結構的是（C）A、順序結構B、選擇結構C、遞歸結構D、循環(huán)結構93、語句Ifx=1Theny=1,下列說法正確的是（C）。A、x=1和y=1均為賦值語句B、x=1和y=1均為關系表達式C、x=1為關系表達式，y=1為賦值語句D、x=1為賦值語句，y=1為關系表達式94、賦值語句：a=123&MID(“123456”,3,2)執(zhí)行后，a變量中的值是（C）。A、“12334”B、123C、12334D、15795、下面程序段顯示的結果是（A）。Dimxx=Int(Rnd)+5SelectCasexCase5“優(yōu)秀”Case4Print“良好”Case3Print“通過”CaseElsePrint“不通過”EndSelectA、優(yōu)秀B、良好C、通過D、不通過96、為了給x,y,z這3個變量賦初值1，下面正確的賦值語句是（A）。A、x=1：y=1：z=1B、x=1,y=1,z=1C、x=y=z=1D、xyz=197、下列語句正確的是（C）A、IfA≠BThenPrint"A不等于B"B、IfA<>BThenPrintA不等于BC、IfA<>BThenPrint"A不等于B"D、IfA≠BPrint"A不等于B"98、設有語句x$=InputBox(“輸入數值”，“0”，“示例”),程序運行后，如果從鍵盤上輸入數值10并按回車鍵，則下列敘述中正確的是(D)。A、變量X的值是數值10B、在InputBox對話框標題欄中顯示的是“示例”C、0是默認值D、變量X的值是字符串“10”99、運行下列程序段后，顯示的結果為（B）J1=4:J2=9IfJ1<J2ThenPrintJ2ElsePrintJ1A、4B、9C、13D、49100、InputBox函數返回值的類型為(B)。A、數值B、字符串C、變體D、數值或字符串（視輸入的數據而定）101、一個數組說明為Dima(0to5，1to5)AsInteger，則該數組共有（C）個元素。A、25B、36C、30D、不確定102、數組聲明語句Dima(2to3,-2to2,3to5)中，數組a包含元素的個數為(C)。A、120B、75C、30D、13103、如果在上題語句前加入OptionBase1，則該數組共有（D）個元素。A、15B、16C、13D、不確定104、如果有聲明Dima(15)AsInteger，則該數組共有（B）個元素。A、15B、16C、13D、不確定105、一個數組說明為Dima(5，1to5)AsInteger，則該數組共有（C）個元素。A、25B、36C、30D、不確定106、在VB中，默認的數組下標的下界從0開始，要想在通用聲明段界定下界，則應使用（A）。A、OptionBaseB、OptionExplicitC、ExplicitD、LowBase107、如下數組聲明語句，正確的是(B)。A、Dima[3,4]asIntegerB、Dima(3,4)asIntegerC、Dima(n,n)asIntegerD、Dima[3][4)asInteger108、賦給一個數組的數據的值的類型一定要（A）。A、相同B、不相同C、兩可D、都不對109、數組的下標可取的變量類型是（A）。A、數值型B、字符型C、日期型D、可變型110、數組聲明語句Dima(0to3,-2to2,0to5)中，數組a包含元素的個數為(A)。A、120B、75C、60D、13111、假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗體上添加一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEndSub程序運行時，單擊命令按鈕得到的結果（D）。A、54B、11C、4D、1112、用以下方式聲明的變量，（B）可以在整個程序中通用A、在窗體模塊用Dim進行聲明B、在窗體模塊用Public進行聲明C、在窗體模塊用Private進行聲明D、在窗體模塊用Static進行聲明113、在窗體上添加一個命令按鈕和三個標簽，編寫事件過程：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+z==y=zEndSub程序運行后，連續(xù)三次單擊命令按鈕，則三個標簽中顯示的內容分別是（A）。A、101010B、303030C、303010D、103030114、以下敘述中錯誤的是(D)。A、如果過程被定義為Static類型，則該過程中的局部變量都是Static類型B、Sub過程中不能嵌套定義Sub過程C、Sub過程中可以嵌套調用Sub過程D、事件過程可以像通用過程一樣由用戶定義過程名115、在在窗體上添加一個命令按鈕Command1和一個文本框Text1，然后編寫如下事件過程：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=5y=7z=0=""Callp1(x,y,z)=Str(z)EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序運行后，單擊命令按鈕得到的結果是（A）。A、12B、0C、Str(z)D、沒有顯示結果116、如果在程序中要將a定義為靜態(tài)變量，且為整型數，則應使用的語句是：（B）A、RedimaAsIntegerB、StaticaAsIntegerC、PublicaAsIntegerD、DimaAsInteger117、以下程序的運行結果是（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、以下程序的運行結果是（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、在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應使用(D)關鍵字在過程中定義局部變量。A、DimB、PrivateC、PublicD、Static121、在過程定義中用(C)表示形參的傳值。A、VarB、ByDefC、ByValD、Value122、在在窗體上添加一個命令按鈕Command1和兩個名稱分別為Label1和Label2的標簽，然后編寫如下事件過程：PrivateXAsIntegerPrivateSubCommand1_Click()X=5:y=3Callproc(X,y)=X=yEndSubSubproc(ByValaAsInteger,ByValbAsInteger)X=a*ay=b+bEndSub程序運行后，單擊命令按鈕，則兩個標簽label1和label2中顯示的內容分別是（B）。A、25,3B、25,6C、5,3D、5,6123、以下程序的運行結果是（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、以下關于過程及過程參數的描述中，錯誤的是(C)。A、過程的參數可以是控件名稱B、用數組作為過程的參數時，使用的是“傳地址”方式C、只有函數過程能夠將過程中處理的信息傳回到調用的程序中D、窗體可以作為過程的參數125、以下屬于VisualBasic合法的數組元素是（C）A、x8B、x［8］C、s(0)D、v[8]126、下列敘述中正確的是(C)。A、在窗體的Form_Load事件過程中定義的變量是全局變量B、局部變量的作用域可以超出所定義的過程C、在某個Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作用域只限于該過程D、在調用過程時，所有局部變量被系統(tǒng)初始化為0或空字符串127、假定有以下函數過程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗體上添加一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()Dimstr1AsString,str2AsStringstr1=InputBox("請輸入一個字符串")str2=Fun(str1)Printstr2EndSub程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，單擊"確定"按鈕后程序在窗體上輸出結果（D）。A、abcdefgB、gfedcbaC、GFEDCBAD、ABCDEFG128、若已編寫了一個Sort子過程，在該工程中有多個窗體，為了方便的調用Sort子過程，應該將該過程放在(B)。A、窗體模塊B、標準模塊C、類模塊D、工程129、下面子過程語句說明合法的是（D）A、Subf1（ByValn()AsInteger）B、Functionf1（f1AsInteger）AsIntegerC、Subf1（n()AsInteger）AsIntegerD、Functionf1（ByValnAsInteger）AsInteger130、在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應使用(D)關鍵字在過程中定義局部變量。A、DimB、PrivateC、PublicD、Static131、在窗體上畫三個單選按鈕，組成一個名為chkOption的控件數組。用于標識各個控件數組元素的參數是(D)。A、TagB、IndexC、ListIndexD、Name132、假如列表框（List1）有四個數據項，那么把數據項“China”添加到列表框的最后，應使用(D)語句。A、3,"China"B、"China",C、"China",3D、"China"133、如果列表框（List1）中沒有被選定的項目，則執(zhí)行語句的結果是(D)。A、移去第一項B、移去最后一項C、移去最后加入列表的一項D、以上都不對134、以下敘述中錯誤的是(C)。A、在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的KeyCode)B、在KeyUp和KeyDown事件過程中，將鍵盤上的“1”和右側小鍵盤上的“1”視作不同的數字(具有不同的KeyCode)C、KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放D、KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放135、設組合框Combo1中有3個項目，則以下能刪除最后一項的語句是(B)。A、TextB、2C、3D、136、下列控件中，沒有Caption屬性的是(B)。A、框架B、列表框C、復選框D、單選按鈕137、引用列表框（List1）最后一個數據項應使用的表達式是（C）A、B、(ListCount)C、D、(ListCount-1)138、窗體的MouseDown事件過程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4個參數，關于這些參數，正確的描述是(A)。A、通過Button參數判定當前按下的是哪一個鼠標鍵B、Shift參數只能用來確定是否按下Shift鍵C、Shift參數只能用來確定是否按下Alt和Ctrl鍵D、參數x,y用來設置鼠標當前位置的坐標139、復選框的Value屬性為1時，表示(B)。A、復選框未被選中B、復選框被選中C、復選框內有灰色的勾D、復選框操作有錯誤。140、引用列表框的最后一項應使用(A)。A、B、C、(ListCount)D、(ListCount-1)141、設窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當前被選中的列表項內容的是(D)。A、B、C、D、142、表示滾動條控件取值范圍最大值的屬性是(A)。A、MaxB、LargeChangeC、ValueD、Max-Min143、為了在按下Esc鍵時執(zhí)行某個命令按鈕的Click事件過程，需要把該命令按鈕的一個屬性設置為True，這個屬性是(D)。A、ValueB、DefaultC、CancelD、Enabled144、假如列表框（List1）有四個數據項，那么把數據項“China”添加到列表框的最后，應使用語句(D)。A、3,"China"B、"China",C、"China",3D、"China",145、復選框的Value屬性為2時，表示(C)。A、復選框未被選中B、復選框被選中C、復選框內有灰色的勾D、復選框操作有錯誤。146、為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設置為True，這個屬性是(A)。A、ValueB、DefaultC、CancelD、Caption147、下面說法不正確的是（D）A、層菜單不允許設置快捷鍵B、使菜單項中的文字具有下畫線，可在標題文字前加&符號C、一菜單項名為MenuTerm，則語句=Flase將使該菜單項失效D、希望在菜單中顯示"&"符號，則在標題欄中輸入"&"符號148、以下敘述中錯誤的是(C)。A、在程序運行時，通用對話框控件是不可見的B、在同一個程序中，用不同的方法(如ShowOpen或ShowSave等）打開的通用對話框具有不同的作用C、調用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文件D、調用通用對話框控件的ShowColor方法，可以打開顏色對話框149、菜單編輯器中，輸入哪一個選項（A）會在菜單欄上顯示文本A、標題B、名稱C、索引D、訪問鍵150、菜單控件只有一個事件（B）A、MouseUpB、ClickC、DBClickD、KeyPress151、在用通用對話框控件建立“打開”或“保存”文件對話框時，如果需要指定文件列表框所列出的文件類型是文本文件(即.txt文件)，則正確的描述格式是(A)。A、“text(.txt)|(*.txt)”B、“文本文件(.txt)|(.txt)”C、“text(.txt)||(*.txt)”D、“text(.txt)(*.txt)”152、下面哪個屬性可以控制菜單項可見或不可見（C）A、HideB、CheckedC、VisibleD、Enabled153、下面說法不正確的是（D）A、層菜單不允許設置快捷鍵B、使菜單項中的文字具有下畫線，可在標題文字前加&符號。C、一菜單項名為MenuTerm，則語句=Flase將使該菜單項失效。D、希望在菜單中顯示“&”符號，則在標題欄中輸入“&”符號。154、下面哪個屬性可以控制菜單項可見或不可見（C）A、HideB、CheckedC、VisibleD、Enabled155、改變驅動器列表框的Drive屬性將激活（A）事件。A、ChangeB、ScrollC、KeyDownD、KeyUp156、在窗體上建立通用對話框需要添加的控件是（C）A、Data控件B、Form控件C、CommonDialog控件D、VBComboBox控件157、下面幾個關鍵字均表示文件的打開方式，只能進行讀不能寫的是（A）。A、InputB、OutputC、RandomD、Append158、為建一個隨機文件，其中每一條記錄由多個不同數據類型的數據項組成，應使用（A）。A、記錄類型B、數組C、字符串類型D、變體類型159、下列說法錯誤的是（B）。A、當用Write#語句寫順序文件時，文件必須以Output或Append方式打開B、用Open語句打開一個文件時，對同一個文件可以用幾個不同的文件號打開C、用Output和Append方式打開文件時，不用將文件關閉，就能重新打開文件D、用Append方式打開文件時，進行寫操作，寫入文件的數據附加到原來文件的后面160、執(zhí)行語句Open""ForRandomAs#1Len=50后，對文件""中的數據能夠進行的操作是(C)。A、只能寫不能讀B、只能讀不能寫C、即可以讀，也可以寫D、不能讀，也不能寫二、填空題1，下面程序對已知數組a，刪除數組中數組元素中某個元素PrivateSubCommand1_Click()Dima(),key%,i%,j%a=Array(1,6,8,3,5,9,10,2,7,4)key=Val(InputBox("輸入要刪除的值"))Fori=0ToUBound(a)Ifkey=a(i)ThenForj=i+1ToUBound(a)a(j-1)=a(j)NextjReDimPreservea(UBound(a)-1)MsgBox("刪除完成")ExitSubEndIfNextiMsgBox("找不到要刪除的元素")EndSub2，下列程序表示將輸入的一個數插入到按遞減的有序數列中，插入后使該序列仍有序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("輸入欲插入的數"))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之間查找滿足如下條件的整數：該整數，逆向排列得到的另一個四位數是它自身的倍數（2倍以上）。查找結果和逆向排列數分別顯示在對應的列表框PrivateSubCommand1_Click()DimnAsIntegerDimmAsIntegerDimiAsIntegerFori=1000To9999m=0n=iDoWhilen>0m=m*10+nMod10n=n\10LoopIfmModi=0Andm\i>1Thenim&"="&i&"*"&m\iEndIfNextiEndSub4，將100~150之間的偶數，拆分成兩個素數之和，最后輸出格式如圖。其中，prime函數判斷參數x是否為質數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,子過程F（N，M，T）對一個四位數n整整數判斷：已知該整數n，逆向排列獲得另一個4位數m是特自身的倍數，則t為true表示滿足上述條件。。。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=TrueEndIfEndSub.子過程MoveStr（）是把字符組移動m個位置，當Tag為Ture是左移，則前m個字符一道字符數組尾，例如，“abcdefghij”左移3個位置后，結果為“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)=cNextiEndIfEndSub.子過程CountN用來統(tǒng)計字符串中各數字字符（0-9）出現的個數；主調程序對在textbox1框輸入的文本，每次單擊“統(tǒng)計”按鈕，調用該子過程，在Label1框顯示結果。PrivateSubCommand1_Click()Dimn(9)AsInteger,i%CallCountN(n(),Fori=0To9Ifn(i)Then"字符"&i&"出現的次數為"&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)+1EndIfNextiEndSub.下列程序中的子過程myplit。。用于實現split函數的功能，即將數字字符s鞍分隔符“，”分離到sArry數組中，分離的個數為n。。。。PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrlAsString,num(100)AsInteger,n%,i%IfKeyAscii=13Thenstr1=TrimCallMySplit(str1,num,n)=""Fori=1Tonnum(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工程中有兩個窗體form1和form2，一個標準模塊module1，設在form1中定義了過程aa，在module1中定義了過程bb。Subaa(x,y,z)z=x*x+y*yEndSubSubbb(x,y,z)z=x^3+y^3EndSub當在form1中單擊命令按鈕時，調用以上過程計算兩個數的平方和和立方和，并分別將計算結果顯示在文本框text3和text4中，請?zhí)羁胀瓿烧{用語句。PrivateSubCommand1_Click()a=Valb=ValCall[aa(a,b,c1)]=c1bb[a,b,c2]=c2EndSub――――――――――――――――――2下面的程序用于根據文本框X中輸入的內容進行以下處理：若X為2、4、6，則打印"X的值為2、4、6"；若X在11到15之間，則打印"X的值為大于等于11小于等于15"；若X大于20，則打印"X的值大于20"；否則，打印"X不在范圍內"。PrivateSubCommand1_Click()SelectCaseValCase[2,4,6]Print"X的值為2,4,6"Case[11to15]Print"X的值為大于等于11小于等于15"CaseIs>20Print"X的值大于20"CaseElsePrint"X不在范圍內"EndSelectEndSub――――――――――――――3下面的程序是使用冒泡法對數組進行排序，請將程序補充完整。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'進行n-1遍比較'對第i遍比較時，大數沉底For[j=1ton-i]'在數組i~n個元素中選最小元素的下標If[iA(j)>iA(j+1)]Thent=iA(j)iA(j)=iA(j+1)iA(j+1)=tEndIfNextjEndSub――――――――――――4程序的功能是使用輾轉相除法求兩個數的最大公約數。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、輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEF”變換成“FEDCBA”。請將程序補充完整。PrivateSubCommand1_Click()Dima$,i%,c$,n%'n存放字符串的長度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(回車)鍵后，將組合框中沒有的項目添加到組合框。請將程序補充完整。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)DimflagAsBooleanIfKeyAscii=13Thenflag=FalseFori=0To-1'查找項目是否已存在If[=(i)]Thenflag=TrueExitForEndIfNextiIfflag=FalseThen'不存在則添加[]EndIfEndIfEndSub―――――――――7、下面的程序是使用選擇法對數組進行升序排列，請將程序補充完整。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'進行n-1遍比較iMin=i'對第i遍比較時，初始假定第i個元素最小For[j=i+1ton]'在數組i~n個元素中選最小元素的下標If[a(j)<a(imin)]TheniMin=jNextjt=iA(i)'i~n個元素中選出的最小元素與第i個元素交換iA(i)=iA(iMin)iA(iMin)=tNextiEndSub―――――――――――8、找出被3、5、7除，余數均為1的最小的5個正整數。PrivateSubCommand1_Click()Dimcountn%,n%n=1:countn=0Don=n+1If[nmod3=1Andnmod5=1Andnmod7=1]ThenPrintncountn=countn+1EndIfLoop[untilcountn=5]EndSub――――――――――――――9、下面程序段是檢查輸入的算術表達式中圓括號是否配對，并顯示相應的結果。本程序在文本框輸入表達式，邊輸入，邊統(tǒng)計，以輸入回車鍵作為表達式輸入結束，然后顯示結果。Dimcount1%PrivateSubText1_KeyPress(KeyAsciiAsInteger)If[chr(keyAscii)]="("Thencount1=count1+1ElseIfChr(KeyAscii)=")"Then[count1=count1+1]EndIfIfKeyAscii=13ThenIfcount1=0ThenPrint"左右括號配對"ElseIfcount1>0ThenPrint"左括號多于右括號";count1;"個"ElsePrint"右括號多于左括號";-count1;"個"EndIfEndIfEndSub――――――――――――10、順序文件的建立。建立文件名為“c:\”的順序文件，內容來自文本框，每按Enter鍵寫入一條記錄，然后清除文本框的內容，直到文本框內輸入“END”字符串。PrivateSubForm_Load()Open“c:\”ForOutputAs#1=“”EndSubPrivateSubText1_KeyPress(keyAsciiAsInteger)IfkeyAscii=13ThenIf[Ucase(Text1)="END"]ThenClose#1EndElse[Print#1,Text1]=“”EndIfEndIfEndSub―――――――――――――11、輸入若干字符，統(tǒng)計有多少個元音字母、有多少個其他字母，不區(qū)分大小寫，并顯示結果。其中，CountY中放元音字母個數，CountC中放其他字符數。PrivateSubCommand1_Click()DimCountY%,CountC%,i%DimC$,B$c=Fori=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;"個"Print"其它字母有";CountC;"個"EndSub――――――――12、將C盤根目錄下的一個文本文件復制到新文件中，并利用文件操作語句，將文件從磁盤上刪除。PrivateSubCommand1_Click()Dimstr1$Open“c:\”ForInputAs#1Open“c:\”[ForoutputAs#2]DoWhile[NotEoF(1)]LineInput#1,str1Print#2,str1LoopClose#1,#2KILL“c:\”EndSub―――――――――<PIXTEL_MMI_EBOOK_2005>613、產生[10，37]之間的隨機整數的VisualBasic表達式是[<int(Rnd*28+10)>]。判斷s字符變量是大寫字母字符的邏輯表達式為[<s>="A"Ands<="Z">]。表示x是5的倍數或9的倍數的邏輯表達式是[<xMod5=0OrxMod9=0>]Len("vb程序設計")的值是[<6>]。表示字符變量s是字母字符（不區(qū)分大小寫）的VB表達式是[<Lcase(s)>="a"AndLcase(s)<="z"或者Ucase(s)>="A"AndUcase(s)<="Z">]。將一個兩位數x的個位數與十位數交換位置，組成另一個兩位數，則對應的表達式是[<(xMod10)+x\10>]。隨機產生一個“C”～“L”范圍內的大寫字符，則對應的VB表達式是[<Chr(Int(Rnd*10+68))>]。Round的值是[<-4>]。Int的值是[<3>]。下面程序段運行后的輸出結果是[<220321422523>]。Fori=0To3PrintTab(5*i+1);"2"+i;"2"&i;Nexti循環(huán)語句Fori=-3to20Step0的循環(huán)次數是[<無數次>]。在過程中定義的局部變量，如果希望過程結束后還保存變量的值，則應使用[<Static>]關鍵字進行聲明。由Array函數建立的數組，其變量必須是[<Variant>]。要使循環(huán)語句循環(huán)執(zhí)行20次，Fork=____to-5Step-2，則k=[<33>]。循環(huán)語句Fori=Step的循環(huán)次數是[<19>]。下列程序段中，第41句共執(zhí)行了[<12>]次。30Forj=1To12Step340Fork=6To2Step-241Printj,k42Nextk43Nextj循環(huán)語句Fori=-3to20Step4的循環(huán)次數是[<6>]。下面程序運行后的輸出結果是[<**$$$****$$$$$>]。a="*":b="$"Fori=1To4IfiMod2=0Thenx$=String(Len(a)+i,b)Elsex$=String(Len(a)+i,a)EndIfPrintx$;Nexti下面程序的運行結果是[<22484>]。x=242:y=44z=x*yDoUntilnx=yIfx>yThenx=x-yElsey=y-xLoopPrintx,z/x下列程序段中，第40句共執(zhí)行了[<4>]次。30Forj=1To12Step340Fork=6To2Step-241Printj,k42Nextk43Nextj如果在建立菜單時在標題文本框中輸入一個[<下劃線或者“_”>],那么菜單顯示時形成一個分隔線如果菜單標題的某個字母前輸入一個[<&>]符號，那么該字母就成了熱鍵字母。[<Clear>]方法可以清除列表框中的所有內容。列表框中的[<List>]和Selected兩個屬性均為數組。[<Style>]屬性設置為1，單選按鈕和復選框以圖形方式顯示。當用戶單擊滾動條的空白處時，滑塊移動的增量由[<Largechange>]屬性決定。當用戶單擊鼠標右鍵時，MouseDown、MouseUp和MouseMove事件過程中的Button參數值為[<2>]。列表框中項目的序號是從[<0>]開始的。VisualBasic中有一種控件組合了文本框和列表框的特性，這種控件是[<組合框>]。如果窗體的[<KeyPreview>]屬性設置為True，則控件的KeyPress事件過程可以接收到在窗體的KeyPress過程中修改過的值。復選框的[<Value>]屬性設置為2-Grayed時，變成灰色，禁止用戶選擇。復選框的[<value>]屬性設置為2-Grayed時，復選框變成灰色，禁止用戶選擇。滾動條產生Change事件是因為它的[<Value>]屬性值改變了。如果要每隔15秒產生一個Timer事件，則Interval屬性應設置為[<15000>]。當用戶單擊滾動條兩端的箭頭時，滑塊移動的增量由[<Smallchange>]屬性決定。[<>]表示列表框（List1）中最后一項的序號。VisualBasic提供的對數據文件的三種訪問方式為順序訪問方式、[<二進制訪問方式>]和隨機訪問方式。編程題1產生1－100以內的素數PrivateSubCommand1_Click()Dimi%,j%,tagAsBooleanForj=1To100tag=TrueFori=2Toj-1IfjModi=0Thentag=FalseNextiIftagThenPrintj;NextjEndSub2、從鍵盤輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的“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)=bNextaPrintnEndSub到200被5或11整除的數的和PrivateSubCommand1_Click()Dimi%Fori=0To200IfiMod11=0OriMod5=0ThenSum=Sum+iEndIfNextiPrint"總和是";SumEndSub4輸入一年份，判斷他是否為閏年，并現實是否是閏年的有關信息。PrivateSubCommand1_Click()Dimy%y=Val(Text1)IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox(y&"年是閏年")ElseMsgBox(y&"年是平年")EndIfEndSub5、已知x,y,z3個變量中存放了3個不同的數，比較它們的大小并進行調整，使得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個a），其中a和n的值隨機產生，a的范圍是[1,9]的整數，n的范圍是[5,10]。如a=3,n=6,則s=3+33+333+3333+33333+333333。編程確定n和a的值，并計算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+as=s+tPrintTab(9);tNextiPrintPrintTab(9);"s=";sEndSub7、計算100~300之間所有能被3和7整除的數之和。PrivateSubCommand1_Click()Dims%,i%s=0Fori=100To300IfiMod3=0OriMod7=0Thens=s+iEndIfNextiPrint"s="&sEndSub8、編程求200--400范圍內5的倍數或7的倍數之和。(一個數如果同時是7和5的倍數，則只能加一次。)PrivateSubCommand1_Click()Dims1%,s2%,s3%,i%s1=0s2=0Fori=200To400IfiMod5=0OriMod7=0Thens1=s1+iEndIfNextiFori=200To400IfiMod5=0AndiMod7=0Thens2=s2+iEndIfNextis3=s1-s2