1、WORD格式哇咔咔 謝謝使用呼喚奇跡的爺們一、單項選擇題1、與傳統的程序設計語言相 比,Visual Basic 最突出的特點 是（C）。B、程序開發環A 、結構化程序設計C、事件驅動編程機制境D 、程序調試技術2、賦值語句： a=123 & MID(123456,3,2)執行后， a 變量中的值是（ C ）A 、 12334B、 123C、 12334D、 1573、保存一個工程至少應保存兩個文件，這兩個文件分別是（ B ）。A 、文本文件和工程文件 B 、窗體文件和工程文件C、窗體文件和標準模塊文件D 、類模塊文件和工程文件專業資料整理窗體 的語句是（ C ）。4、以下能在窗Form1 的

2、標題欄中顯示體VisualBasic窗體 窗體 A 、Form1.Name=VisualBasicB、Form1.Title=VisualBasicC、Form1.Caption=VisualBasic窗體 D、Form1.Text=VisualBasic 窗體 5、為了裝入一Visual Basic應用程序，應當個（ D ）.frmA 、只裝入窗體文件（）.vbpB、只裝入工程文件（）C、分別裝入工程文件和標準模塊文件.bas（）D、分別裝入工程文件、窗體文件和標準模塊文 件A 、標題欄B、菜單欄C、狀態欄9、以下敘述中錯誤的是(C) 。A 、 VisualBasic是事件驅動型可視化編程工

3、具B、 Visual應用程序不具有明顯的開始和結束語Basic句C、 Visual Basic工具箱中的所有控件都具有寬度（D、 Visual Basic中控件的某些屬性只能在運行時設置10、要使 Print方法在 Form_Load 事件中起作用的A 、D、工具欄Width ）和高度（ Height 屬性要對窗體BackcolorB、 ForeColorC、 AutoRedrawD 、 BackStyle（C） 屬性進行設6、賦給一個數組的數據類型一定要（A ）。A 、相同 B 、不相同C、兩可D、都不對7、下面正確的賦值語句是（C）。A 、 x+y=30B、 y= *r*rC、 y=x+3

4、0D、 3y=x8、 Visual Basic 6.0集成環境的主窗口中不包括 （ C ）11、若要使命令按鈕不可操作，要對（A） 屬性進行設 制A 、 EnabledB 、 VisibleC、 BackColorD、 Caption12、以下敘述中錯誤的是 (B) 。A 、一個工程中可以包含多個窗體文件B、在一個窗體文件中用Private 定義的通用過程能被其他窗體調用C、在設計 VB 程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的磁盤文件D、一個工程默認的啟動對象是Form113、Cls 方法可以清除窗體或圖片框中的 (C) 內容 。A 、在設計階段使用 Picture 設置的背

5、景位圖B、在設計階段放置的控件C、在運行階段產生的圖形和文字D、以上均可14、設 x=3,y=5, 則以下表達式值為真的是 (C)B 、 (xx) And (y0) (y0)C、 (xy) Or(y0)D 、 x=y And y1015、為了防止用戶隨意將光標置于控件之上，應將進 行 (D) 設置 A 、將控件的 TabIndex 屬性設置為B、將控件的TabStop屬性設置為TrueC、將控件的TabStop屬性設置為FalseD、將控件的Enabled屬性設置為False(D) 事件中判Enter鍵，應在文本框16、要判斷在文本框是否按了的斷。A 、 ChangeB、KeyDownC、 C

6、lickD、KeyPress17、以下關于焦點的敘述中，錯誤的是(A) 。TabStop 屬性為 False ，則不能接收從鍵盤上輸入的0A 、如果文本框的 數據B、當文本框失去焦點時，觸發LostFocus 事件C、當文本框的 Enabled 屬性為 False 時，其 Tab 順序不起作用D、可以用 TabIndex 屬性改變 Tab 順序Enabled 屬性設為 False ，則18、如果文本框的 (A) 。A 、文本框的文本將變成灰色，并且此時用戶不能將光標置于文本框上。B、文本框的文本將變成灰色，用戶仍然能將光標置于文本框上，但是不能改變文本 框中的內容。C、文本框的文本將變成灰色，

7、用戶仍然能改變文本框中的內 容。D、文本框的文本正常顯示，用戶能將光標置于文本框上，但是不能改變文本框中的內 容。19、程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是 (C) 。(B)A 、 MouseDown B 、 MouseUp C、 LoadD 、 Click20、圖像框有一個屬性，可以自動調整圖形的大小，以適應圖像框的尺寸，這個屬性是 A 、 AutosizeB、 StretchC、 AutoRedrawD、 Appearance21、為了防止用戶隨意將光標置于控件之上，應設置的屬性是(D) 。A 、將控件的 TabIndex 屬性設置為 0B、將控件的 TabStop 屬

8、性設置為 TrueC、將控件的 TabStop 屬性設置為 False D、將控件的 Enabled 屬性設置為 False22、不論何控件，共同具有的是(B) 屬性。A 、 TextB、 NameC、 ForeColorD、 Caption23、以下關于窗體的描述中，錯誤的是(A) 。A 、執行 Unload Form1 語句后，窗體 Form1 消失，但仍在內存 中 B、窗體的 Load 事件在加載窗體時發生C、當窗體的 Enabled 屬性為 False 時，通過鼠標和鍵盤對窗體的操作都被 禁止 D、窗體的 Height 、 Width 屬性用于設置窗體的高和寬24、當運行程序時，系統自

9、動執行窗體的(A) 事件過程。B 、A 、 LoadC、 Unload25、窗體設計器是用來設計A 、應用程序的代碼段C、對象的屬性26、 Visual Basic是取了A 、事件驅動ClickD 、 GotFocus(B) 。B、應用程序的界面(A) 的編程機 制。D 、對象的事件 向對象的可視化程序設計語言，采B 、按過程順序執行C、從主程序開始執行D、按模塊順序執行27、確定一個控件在窗體上的位置的屬性是(D) 。A 、 Width 或 HeightB 、 Width 和 HeightC、 Top 或 LeftD 、 Top 和 Left28、如果要改變窗體的標題，則需要設置的屬性是 (

10、A) 。A 、 Caption B 、 NameC、 BackColorD 、 BorderStyle29、以下敘述中錯誤的是 (C) 。A 、打開一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件B、保存 Visual Basic程序時，應分別保存窗體文件及工程文件C、Visual Basic應用程序只能以解釋方式執行D、事件可以由用戶引發，也可以由系統引發30、以下敘述中錯誤的是 (B) 。A 、雙擊鼠標可以觸發 DblClick 事件B、窗體或控件的事件的名稱可以由編程人員確定C、移動鼠標時，會觸發MouseMove 事件D、控件的名稱可以由編程人員設定31、在 Visual

11、 Basic中最基本的對象是 (C) 。它是應用程序的基石，是其他控件的容器。A 、文本框B 、命令按鈕C、窗體D 、標簽32、以下敘述中正確的是 (A) 。A 、窗體的 Name 屬性指定窗體的名稱，用來標識一個窗體B、窗體的 Name 屬性的值是顯示在窗體標題欄中的文本C、可以在運行期間改變對象的Name 屬性的值D、對象的 Name 屬性值可以為空33、在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是(C)A 、工程資源管理器窗口B、工具箱窗口C、代碼窗口D、屬性窗口(A)(A)34、Visual Basic是一種面向對象的可視化程序設計語言，采取了的編程機制是A 、事件驅動B 、按

12、過程順序執行C、從主程序開始執行D、按模塊順序執行35、用來設置粗體字的屬性是(C)。A 、 FontItalicB、 FontNameC、 FontBoldD 、 FontSize36、如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的 是A 、如果工程中含有 Sub Main 過程，則程序一定首先執行該過程B、不能把標準模塊設置為啟動模塊C、用 Hide 方法只是隱藏一個窗體，不能從內存中清除該窗體D、任何時刻最多只有一個窗體是活動窗體37、為了把焦點移到文本框，所使用的方法是(A)A 、 SetFocusB、 VisibleC、 RefreshD、 GetFocus38、 INT(

13、100*RND)產生的隨機整數的閉區間是( A )。A、0 ，99B 、 1 ， 100C、 0 ， 100D 、 1 ， 99(B )39、如果要在命令按鈕上顯示圖形文件，應設置命令按鈕的 A 、 Style 屬性和 Graphics 屬性 B 、 Style 屬性和 Picture 屬性B 、 VisibleD 、 CaptionForm1, 則把窗體的標題設置為“ VB_Test ”的語句為(B)C、 Caption 屬性40、若要使命令按鈕不可操作，要對 A 、 EnabledC、 BackColor41、假定窗體的名稱為 A 、 Form1= “ VB_TestD、Graphics

14、屬性(A) 屬性進行設制。B、 Form1.Caption= “ VB_TestC、 Form1.Text= “ VB_Test42、以下敘述中錯誤的是 (A)” D 、F= “ VB_Test。A 、在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件B、以 .BAS 為擴展名的文件是標準模塊文件C、窗體文件包含該窗體及其控件的屬性D、一個工程中可以含有多個標準模塊文件43、要使文本框獲得輸入焦點，則應采用文本框控件的哪個方 法 (A) 。 A 、GotFocusB 、 LostFocusC、KeyPressD 、 SetFocus44、以下不能在“工程資源管理

15、器”窗口中列出的文件類型是(B) 。A 、 .bas B 、 .resC、 .frmD、 .ocx45、剛建立一個新的標準EXE 工程后，不在工具箱中出現的控件是 (C) 。A 、單選按鈕B、圖片框C、通用對話框D 、文本框(B)46、以下敘述中錯誤的是。A 、雙擊鼠標可以觸發 DblClick 事件B、窗體或控件的事件的名稱可以由編程人員確定C、移動鼠標時，會觸發MouseMove 事件D、控件的名稱可以由編程人員設定47、以下能夠觸發文本框 A 、文本框失去焦點 C、設置文本框的焦點48、以下敘述中錯誤的是 A 、一個工程中只能有一 個Change 事件的操作是 (D)B、文本框獲得焦點

16、D 、改變文本框的內容 (C)。Sub Main 過程B、窗體的 Show 方法的作用是將指定的窗體裝入內存并顯示該窗 體 C、窗體的 Hide 方法和 Unload 方法的作用完全相同D、若工程文件中有多個窗體，可以根據需要指定一個窗體為啟動窗體的輸出結果是 (A)49、語句 Print Abs(-62)+Int(-62)A、0B、1C、-1D、-7250、如果將布爾常量值TRUE 賦值給一個整型變量，則整型變量的值為(B)B、-1C、TRUED 、 FALSE51、函數 String(n, str) 的功能是 (B)A 、把數值型數據轉換為字符串B、返回由 n 個字符組成的字符串C、從字符

17、串中取出 n 個字符D、從字符串中第 n 個字符的位置開始取子字符串52、語句 Print Format( “ Hello World ” , “ ” ) 的輸出結果是(B) 。A 、 helloB 、 helloWORLDworldC、HELLO WORLDD、HELLO world53、聲明符號常量應該用關鍵字(B) 。A 、StaticB、 ConstC、PrivateVariant54、要強制顯示聲明變量，可在窗體模塊或標準模塊的聲明段中加入語句(B)A 、 Option Base 0C、 Option Base1Visual Basic 55、下列可作為 (D) 。B 、 Optio

18、nExplicitD 、 Option Compare 變量名的是b cA 、B 、TrueFalseC、 157、執行x$=String(6,后， x 的值是124abc)(B) 。A、 A#AB 、 4AC、 ?xy56、設 a=10 ， b=5 ， c=1 ，執行語句 Print a D、 constA后，窗體上顯示的是 (B)D、出錯信息A 、124abcB 、 111111C、 12458、設 a=6 ，則執行x=IIf(a5,-1,0)后，x的值為( D )A 、5B、 6C、 059、執行語句： c$=“ Glad ” & Mid$(“ Nice to meet you為 (C)

19、 。D 、 abcA 、 Nice to meet youB 、 Glad Nice to meet youD、-1,5,3) ，則變量 c$ 的值C、Glad toD、 Glad60、下面 (D)是合法的字符常數。C、 A 、ABC$B、 ABCABCD 、 ABC61、對于語句If x=1 Then y=1，下列說法正確的是(C)A 、x=1 和 y=1 均為賦值語句B、x=1 和 y=1 均為關系表達式 為關系表達 為賦值語C、x=1 式，y=1 句D、 x=1 為賦值語句， y=1 為關系表達式62、設有聲明： Dim X As Integer,如果Sgn(X)的值為 -1 ，則 X

20、的值是 (D )A 、任何整數 B 、 0 63、在一行內寫多條語句時，每個語句之 間用C、等于 0 的整數 D 、小于 0 的數(B) 符號分隔B、：C、str1 、 str2 中。確定第二個字符串在64、從鍵盤上輸入兩個字符串，分別保存在變量第一個字符串中起始位置的函數是A 、（D） 。A 、Left B 、 MidC、 StringD、 Instr65、設 S= 中華人民共和 ，表達Left （S,1 ） +Right （ S,1 ） +Mid （ S,3,2 ）B）國式的值為（A、 中華民國 B、 中國人民 C、 中共人民 D、 人民共和 66、下列可作為BasicB、中的變量名的是

21、(A)A 、FilenameA(A+B)C、254D67、下面 (A)是合法的變量名。B、C、A 、X_yz123abcInteger68、以下變量命名非法的是(C)。A 、B、xyz123printaaC、boolean69、設有變量聲:Dim TestDate As Date,為變量明方式是VisualD、 BernaldTestDate 正確賦值的表達D、 PrintD、 X-Y(A)A 、 TextDate=#1/1/2002#B、TestDate=# “ 1/1/2002 ” #C、TextDate=date( “ 1/1/2002 ” )D、TestDate=Format( “ m

22、/d/yy ” , “ 1/1/2002 ” )的值是 (B)71、表達式 6*8 Mod 9的值是 (B)。A 、4B、3C、6D 、 772、假設變量 bool_x是一個布爾型(邏輯型 ) 的變量，則下面正確的賦值語句是(B 、bool_xA 、bool_x = False= .False.C、bool_x = #False#D 、bool_x =FalseA 、 TrueB 、 FalseC、-1D、173、設 a= “ Visual Basic70、設 a=2,b=3,c=4,d=5 ，表達式 ab AND c=dC、76、Dim x_y_z%D、 Static var3 As Int

23、eger可以同時刪除字符串前導和尾部空白的函數b=Left(a,8,12)b=Mid(a,8,5)C、D 、b=Rigth(a,5,5)b=Left(a,8,5)74、語句 Print Format$(32548.5, ( B )。“ #,#.#” )的輸出結果是A 、D 、32548.5B、 32,548.5C、 032,548.5032,548.5075、以下聲明語句中錯誤的是(D) 。B 、 Dim var2 =A 、面使 b= “ Basic ”的語句是 (B) B 、A 、 Const var1=123 ABCC、 TrimD 、 MidpublicD、 thanksgiving(C

24、)C、 1D 、無任何值(B) 。C、 20D 、 240 歲條件的人是A 、 LtrimB、 Rtrim77、下列可為合法變量名的是(D) 。A 、IntegerB、 FalseC、78、變量未賦值時，數值型變量的值為 ( A)B 、A 、 0 空79、表達式 16/4-25*8/4 Mod52 的值為B 、A、144確的 80 、下面 If 語句統計滿足性別為男、職稱為副教授以上、年齡小于數，不正語句是（D ）。A 、 If sex=男 And age 40 And (duty= 教授 Or duty= 副教授 )Then n=n+1B、 If sex=男 And age 0Then n=

25、n+1C、 If sex=男 And age 40 And Right(duty,2)= 教授 Then n=n+1D、If sex= 男 And age =b And b10B、(ab)Or(b0)C、(a0)or(ba)And(b0)82、執行語句 a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5),一個輸入對話框，在對話框的輸入區中顯示的信息 是A 、 Today(A) 。B、TomorrowC、YesterdayD、Day before Yesterday83、VB 提供了結構化程序設計3 種基本結構，3 種基本結構是

26、 B )的這(A 、遞歸結構，分支結構，循環結構B、選擇結構，過程結構，順序結構C、過程結構，輸入、輸出結構，轉向結構D、分支結構，循環結構，順序結構84、下面 If 語句統計滿足性別為男、職稱為副教授以上、年齡小于 40 歲條件的人數，不 正確的語句是( D )。A 、 If sex=“男”And ageAnd InStr(duty,“教授” ) 0Then n=n+1B、 If sex=“男”And ageAnd (duty= “教授” Or duty= “副教 40授” )Then n=n+1C、 If sex=“男”And ageAnd Right(duty,2)=“教 40授”The

27、n n=n+1D、 If sex=“男”And ageAnd duty= “教授”And duty= “副教10, ”Red ” , “ Green ”) 執行后， 變量 w 中的值是(C)。A 、 NullB、“ Red ”C、“ Green ”D、-186、賦值語句： a=123+MID( “ 123456 ” ,3,2) 執行后， a 變量中的值是(D)。A 、“ 12334 ”B、123C、12334D、 15787、設有語句 x=InputBox( “ AAAA ”，“ BBBB ”，“” ), 程序運行后，所產生的對話 框的標題應為 (C) 。A 、 AAAAB、空C、BBBBD、

28、出錯，不能產生對話框88、下面正確的賦值語句是C)。(A 、 x+y=30B、 y= *r*rC、 y=x+30D、3y=x89、VB 提供了結構化程序設計的三種基本結構，三種基本結構(D)是A 、遞歸結構、選擇結構、循環結構B、選擇結構、過程結構、順序結構C、過程結構、輸入輸出結構、轉向結構D、選擇結構、循環結構、順序結構90、下面程序段求兩個數中的大數，不正確的是（D）。A 、 Max=IIf(x y,x,y)B、 If x y Then Max=x Else Max=yC、 Max=x ： If y =x Then Max=yD、 If y x ThenMax=y ： Max=x91、下

29、列程序x If xPrintElse Print x+1段： （ A ）。DimThenx結果是運行后，顯示的A 、 1B、0C、-1D、出錯vb 的三種基本結構的是92、以下不屬于 （C）？A 、順序結構B、選擇結構C、遞歸結構D、循環結構93、語句 If x=1 Then y=1,下列說法正確的是（ C ）。A 、 x=1 和 y=1 均為賦值語句B、x=1 和 y=1 均為關系表達式C、x=1 為關系表達式， y=1 為賦值語句D、x=1 為賦值語句， y=1 為關系表達式C）94、賦值語句： a=123 & MID（ “ 123456 ” ,3,2） 執行后， a 變量中的值是（A 、

30、“ 12334B、 123C、 12334D、15795、下面程序段顯示的結果是(A )Dim xx=Int(Rnd)+5Select Case xCase 5“優秀”Case 4Print “良好”Case 3Print “通過”Case ElsePrint “不通過”End SelectA 、優秀B、良好C、通過D、不通過96、為了 x,y 這 3 個變量賦初 給 ,z 值1，下面正確的賦值語句是A)。(A 、 x=1 ： y=1 ： z=1B、 x=1,y=1,z=1C、 x=y=z=1D、 xyz=197、下列語句正確的是（ C）A 、 If A B Then Print A不等于 B

31、B、 If AB Then Printf A不等于 BC、 If AB Then Print A不等于 B98、設有語句 x$=InputBox(“輸入數值” ，“ 0 ”，“示例” ）, 程序運行后，如果從鍵盤上輸入數C、 0 是默認值D、變量 X 的值是字符串“ 10”99、運行下列程序段后，顯示的結果 為（A 、 4B、 9C、 13D、 49100、函數返回值的類型InputBox為A 、數值B、字符串C、變體D、數值或字符串（視輸入的數據而定） 101、一個數組說明為 Dim a（0 to 5 數組共有（A、25(B)B )J1=4: J2=9 If J1J2 Then Print

32、J2 Else Print J1， 1 to 5) As Integer，則該C) 個元素值 10 并按回車鍵，則下列敘述中正確的是（D）B、 36C、 30D、不確定102、數組聲明語句Dim a(2 to 3, -2 to 2,3 to 5) 數為 (C) 。中，數組 a 包含元素的個A、120B、75C、30D、13103、如果在上題語句前加入Option Base 1 ，則該數組共有（ D ） 個元素A、15B、16C、13D、不確定104、如果有聲明 Dim a（15） As Integer，則該數組共有（ B ）個元素A、15B、16C、13D、不確定105、一個數組說明Dim a

33、（5 ， 1 to 5） As Integer，則該數C） 個元素為 組共有（A、25B、36C、30D、不確定106、在 VB 中，默認的數組下標的下界從 （ A ）。0 開始，要想在通用聲明段界定下界，則應使用A 、 Option BaseB、 Option ExplicitC、 ExplicitD、 Low Base107、如下數組聲明語句，正確的是（B）A 、 Dim a3, 4asIntegerIntegeB、 Dim a(3,4) asrC、 Dim a(n, n)asIntegerIntegeD、 Dim a34)asr108、賦給一個數組的數據的值的類型一定要（A ）A 、相同

34、B、不相同C、兩可D、都不對109、數組的下標可取的變量類型是（A ）A 、數值型B、字符型C、日期型D、可變型110、數組聲明語 句Dim a(0 to 3, to 2,0 to 5) 中 ，a 包含元素的個數(A) 。-2 數組 為A、120B、 75C、 60D、 13111、假定有如下的 Sub 過程： Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y EndSub 在窗體上添加一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim a As Single Dim b A

35、s Single a = 5: b = 4 S a, b Print a, b End Sub 單擊命令按鈕得到的結果( D )。程序運行時，B、 11A 、在窗體模塊 用 B、在窗體模 塊用 C、在窗體 模塊用C、 1.254D、 1.251112、用以下方式聲明的變量， Dim 進行聲明B ）可以在整個程序中通用？Public 進行聲明Private 進行聲明Private x As IntegerN=10: z=N+z: y=y+z:x=x+z程序運行后， 連續三次單 擊Static 類型D、在窗體模塊用 Static 進行 聲明編寫事件過程：113、在窗體上添加一個命令按鈕和三個標簽，

36、Private SubCommand1_Click() IntegerStatic y As Dim z As Integer Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 命令按鈕，則三個標簽中顯示的內容分別是( A )。A、101010B、303030C、303010D、1030 30114、以下敘述中錯誤的是 (D) 。A 、如果過程被定義為 Static 類型，則該過程中的局部變量 都是B、Sub 過程中不能嵌套定義Sub 過程C、Sub 過程中可以嵌套調用Sub 過程Text1 ，然后編寫如 過事件D

37、、事件過程可以像通用過程一樣由用戶定義過程名115、在在窗體上添加一個命令按 鈕Command1和 一個文本框程：Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 5 y = 7z = 0 Text1.Text = Call p1(x, y, z)Text1.Text = Str(z)End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + bEnd Sub 程序運行后，單擊命令按鈕

38、得到的結果是( A )。A、12B、0C、Str(z)D、沒有顯示結果B)116、如果在程序中要將 a 定義為靜態變量，且為整型數，則應使用的語句是： A 、 Redim a As IntegerB、Static a As IntegerC、Public a As IntegerD、Dim a As Integer117、以下程序的運行結果是(C)Sub s1(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integer For i = 1 T

39、o 4a(i) = i + 5Next i s1 a() For i = 1 To 4 Print a(i)NextiEnd SubA、121416 18B、6789C、2468D、1234118、以下程序的運行結果是 ( D )。 Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a= 2 Sum = 0 For i = 1 To 3

40、Sum = Sum + f(a) Next i PrintSum End Sub A 、 12B、28 C 、32 D 、24119、下列程序輸出結果(C )。Private Sub Command1_Click()For i = 1 To 10GetValue iNext iPrint GetValue(i)End SubPrivate Function GetValue(ByVal a As Integer) Static S AsInteger S = S + a GetValue = SEnd FunctionA、10B、65C、66D、11120、在過程定義的變量，若希望在離開該過程

41、后，還能保存過程中局部變量的值， 則應使用 (D) 關鍵字在過程中定義局部變量。A 、 DimB、PrivateC、PublicD、Static121、在過程定義中用 (C) 表示形參的傳值 A 、 VarB、ByDefC、ByValD、Value122、在在窗體上添加一個命令按鈕Command1和 兩個名稱分別為Label1 和 Label2 的標簽，然后編寫如下事件過程：Private X As Integer Private Sub Command1_Click()X= 5: y = 3 Call proc(X, y) Label1.Caption = X Label2.Caption

42、= yEnd Sub Subproc(ByVal a As Integer, ByVal b As Integer) X = a * a y = b + b End Sub程序運行后，單擊命令按鈕，則兩個標簽 label1 和 label2 中顯示的內容分別是( B )。A 、 25,3B、25,6C、5,3D、5,6123、以下程序的運行結果是(C)。 Dim x As Integer, y As Integer, z As Integer Sub s1(a AsInteger, b As Integer)Dim c As Integera = 2 * a b = b + 2 c = a +

43、 bEnd SubSub s2(a As Integer, ByVal b As Integer)Dim c As Integera = 2 * ab = b + 2c = a + bEnd SubPrivate Sub Command1_Click()x = 4 ： y = ： 4 z = 6Call s1(x, y)Print x + y + zCall s2(x, y)Print x + y + zEnd SubA、2428B、2028C、2018D、2020124、以下關于過程及過程參數的描述中，錯誤的是(C)A 、過程的參數可以是控件名稱B、用數組作為過程的參數時，使用的是“傳地址”

44、方式C、只有函數過程能夠將過程中處理的信息傳回到調用的程序中D、窗體可以作為過程的參數125、以下屬于 Visual Basic合法的數組元素是(C)A 、 x8B、x 8 C、s(0)D、v8126、下列敘述中正確的是 (C) 。A 、在窗體的 Form_Load 事件過程中定義的變量是全局變量B、局部變量的作用域可以超出所定義的過程C、在某個 Sub 過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作 用域只限于該過程0 或空字符D、在調用過程時，所有局部變量被系統初始化為串127、假定有以下函數過程： Function Fun(S As String) As String

45、 Dim s1 As String For i = 1 To在窗體上添加一個命令按 Dim str1 As String, str2Prinstr2 = Fun(str1)Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1 End FunctionAs String str2 End Sub鈕，然后編寫如下事件過程： Private Sub Command1_Click()str1 = InputBox(請輸入一個字符串 )程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串abcdefg”，擊 確定 按鈕后程序在窗體上輸出結果(D )。A

46、 、 abcdefgB、gfedcbaC、GFEDCBAD、ABCDEFG128、若已編寫了一個 Sort 子過程，在該工程中有多個窗體，為了方便的 Sort 子過 調用 程， 應該將該過程放在 (B) 。A 、窗體模塊B、標準模塊C、類模塊D、工程129、下面子過程語句說明合法的是(D )A 、 Sub f1 ( ByVal n() AsInteger )B、Functionf1 ( f1 As Integer) As IntegerC、Sub f1 ( n() As Integer) AsIntegerD、Function ( ByVal n As Integer) Asf1 Intege

47、r130、在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值， 則應使用 (D) 關鍵字在過程中定義局部變量。A 、 DimB、PrivateC、PublicD、Static131、在窗體上畫三個單選按鈕，組成一個名為chkOption 的控件數組。用于標識各個控件數組元素的參數是 (D) 。A 、 TagB、IndexC、ListIndexD、Name132、假如列表框( List1 )有四個數據項，那么把數據項“ China ”添加到列表框的最后，應 使用 (D) 語句。A 、 List1.AddItem 3, ChinaB、List1.AddItem China, Lis

48、t1.List1Count-1C、List1.AddItem China, 3D、List1.AddItem China133、如果列表框（ List1 ）中沒有被選定的項目，則 List1.RemoveItem List1.ListIndex 執行 語句的結果 (D) 。 是A 、移去第一項B、移去最后一項C、移去最后加入列表的一項D、以上都不對(C) 。A 或 a 被視作相同的字 (即具有相 母1”和右側小鍵盤上的1”視作不同134、以下敘述中錯誤的是事件過程中，從鍵盤上輸A 、在 KeyUp 和 KeyDown 入 同 KeyCode) 的B、在 KeyUp 和 KeyDown 事件過程

49、中，將鍵盤上的的數字 ( 具有不同的 KeyCode)C、KeyPress 事件中不能識別鍵盤上某個鍵的按下與釋放D、KeyPress 事件中可以識別鍵盤上某個鍵的按下與釋放135、設組合框 Combo1 中有 3 個項目，則以下能刪除最后一項的語句是 (B)A 、 Combo1.RemoveItem TextB、Combo1.RemoveItem 2C、Combo1.RemoveItem 3D、Combo1.RemoveItem Combo1.Listcount136、下列控件中，沒有 Caption 屬性的是 (B) 。A 、框架B、列表框C、復選框D、單選按鈕137、引用列表框( List1 )最后一個數據項應使用的表達式是(C)A 、 List1.List(List1.ListCount)B、List1.List(ListCount)C、List1.List(List1.ListCount-1)D、List1.List(ListCount-1)138、窗體的 MouseDown 事件過程 Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y