1、一1"【單選題】Visual Basic的編程機制是 D 。A、可視化 B、面向對象 C、面向圖形 D、事件驅動"2"【單選題】Visual Basic集成環境的大部分窗口都可以從主菜單項 （） 的下拉菜單中找到相應的打開命令。BA、編輯 B、視圖 C、格式 D、調試"3"【單選題】每個窗體對應一個窗體文件，窗體文件的擴展名是 C 。、.bas B、.cls C、.frm D、.vbp"4"【單選題】工程文件的文件名后綴是什么？_ BA.bmp B.vbp C.frm D.bas "5"【單選題】窗體設計

2、器是用來設計 B 。A、應用程序的代碼段 B、應用程序的界面 C、對象的屬性 D、對象的事件 "6"【單選題】使用 方法不可以進入代碼窗口編寫代碼。AA、執行“文件”菜單中的打開命令 B、在窗體上單擊鼠標右鍵，在彈出的快捷菜單中選擇“查看代碼”命令C、雙擊窗體設計器的任何地方D、執行“視圖”菜單中的“代碼窗口”命令"7"【單選題】VB6.0集成開發環境有三種工作狀態，不屬于三種工作狀態之一的是 D 。A.設計狀態 B.編寫代碼狀態C.運行狀態 D.中斷狀態"8"【單選題】VB6.0集成開發環境不包括_窗口。A A.DOS界面窗口 B.

3、窗體窗口 C.代碼窗口 D.屬性窗口"9"【單選題】在設計應用程序時，通過_ 窗口可以查看到應用程序工程中的所有組成部分 B A.代碼窗口 B.窗體設計窗口 C.屬性窗口 D.工程資源管理器窗口"10"【單選題】VB6.0是一種面向 的編程環境。B A.機器 B.對象 C.過程 D.應用"11"【單選題】在VB集成環境創建VB應用程序時，除了工具箱窗口，窗體中的窗口，屬性窗口外，必不可少的窗口是 C。A.窗體布局窗口 B.立即窗口 C.代碼窗口 D.監視窗口"12"【單選題】不能打開屬性窗口的操作是 D 。A. 單

4、擊工具欄中的“屬性窗口”按鈕 B. 選取“視圖”菜單中的“屬性窗口”子菜單項C. 在對象上單擊右鍵，從彈出的快捷菜單中選擇“屬性窗口”選取項D. 選取“工程”菜單中的“屬性窗口”子菜單項"13"【單選題】事件的名稱 CA、都要由用戶定義 B、有的由用戶定義，有的由系統定義C、都是由系統預先定義 D、是不固定的"14"【單選題】對象的三要素不包括 D。A、屬性 B、方法C、事件 D、程序"二1"【單選題】對于窗體，下面 屬性在程序運行時其屬性設置起作用。C（A）MaxButton (B) BorderStyle (C) Name (D)

5、 Left"2"【單選題】要使Print 方法在Form_Load事件中起作用，要對窗體的 屬性進行設置。C （A）BackColor (B)ForeColor (C) AutoRedraw (D) Caption"3"【單選題】要使標簽控件顯示時不覆蓋其背景內容，要對 屬性進行設置 B （A）BackColor (B)ForeColor (C) BorderStyle (D) BackStyle"4"【單選題】要使命令按鈕不可操作，要對 設置 A （A） Enabled (B)Visible (C) BackColor (D)Cap

6、tion"5"【單選題】文本框沒有 屬性 D（A）Enabled (B)Visible (C) BackColor (D)Caption"6"【單選題】不論何控件，共同具有的是 屬性 B（A）Text (B)Name (C) ForeColor (D)Caption"7"【單選題】要使Form1窗體的標題欄顯示”歡迎使用VB”，以下 語句正確。A（A） Form1.Caption=”歡迎使用VB”（B）Form1.Caption=歡迎使用VB (C) Form1.Caption=歡迎使用VB (D) Form1.Caption=”歡迎

7、使用VB”"8"【單選題】要使某控件在運行時不可顯示，應對 進行設置 B （A） Enabled (B) Visible (C) BackColor (D) Caption"9"【單選題】要使窗體在運行時不可以改變窗體的大小和沒有最大，最小化按鈕，只要對下面 進行設置。B（A）MaxButton (B) BorderStyle (C) Width (D) MinButton"10"【單選題】當運行程序時候，系統自動執行啟動窗體的 事件過程 A（A）Load (B)Click (C) Unload (D) GotFocus"1

8、1"【單選題】當文本框的ScrollBars 屬性設置了非零值，卻沒有效果，原因為 B 。（A） 文本框中沒有內容（B） 文本框的MultiLine屬性為False（C） 文本框的MultiLine屬性為True（D） 文本框的Locked屬性為True"12"【單選題】要判斷在文本框時否按了Enter鍵，應在文本框的 事件中判斷 D （A）Change (B)KeyDown (C)Click (D)KeyPress"三1"【單選題】在一個語句內寫多條語句時，每個語句之間用_符號分隔 B （A）, (B) ： (C) 、 （D） ；"

9、2"【單選題】一句語句要在下一行繼續寫，用（ ）符號作為續行符。C（A）+ (B) - (C) _ (D)"3"【單選題】下面（ ）是合法的變量名。C（A）X_YZ (B)123ABC (C)integer (D)X-Y"4"【單選題】下面（ ）是不合法的單精度型常數。 A（A）100! (B)100.0 (C)1E+2 (D)100.0D+2"5"【單選題】下面（ ）是合法的單精度型變量。A（A）num! (B)sum% (C)xinte$ (D)mm#"6"【單選題】表達式16/4-25*8/4 MO

10、D 52的值為（ ）。B（A）14 (B)4 (C)20 (D)2"7"【單選題】數學關系3<=x<10表示成正確的VB表達式為（ ）。B（A）3<=X<10 (B)X>=3 AND X<10 (C ) X>=3 OR X<10 (D) 3<=X AND <10"8"【單選題】已知A$=”12345678” 則表達式Val(Left$(A$,4)+Mid(A$,4,2)的值為（ ）。B（A） 123456 (B)123445 (C) 8 (D) 6"9"【單選題】表達式Len

11、(“123程序設計ABC”)的值為（ ）。A（A）10 (B)14 (C)20 (D)17"10"【單選題】下面正確的賦值語句是（ ）。C（A）X+Y=30 (B)Y=*R*R (C) Y=X+30 (D)3*Y=X"11"【單選題】為了給X,Y,Z三個變量賦值為1，下面正確的賦值語句是_。A（A）X=1:Y=1:Z=1 (B) X=1,Y=1,Z=1 (C) X=Y=Z=1 (D)XYZ=1"12"【單選題】已知A=3.5,B=5.0,C=2.5,D=True 則表達式：A>=0 AND A+C>B+3 OR NOT D

12、的值為（ ）。B（A）True （B）False （C）0 （D）1"13"【單選題】Int(198.555*100+0.5)/100的值為（ ）。C(A) 198 (B) 199.6 (C)198.56 (D)200"14"【單選題】下列符號常量的聲明中，( )是不合法的。D （A）Const a As Single=1.1 （B）Const a As Integer=”12”（C）Const a As Double=Sin(1) （D）Const a=”OK”"15"【多選題】以下語句的輸出第一個結果是( )；第二個結果是( )。

13、BDa=sqr(3)print format(a,”$#.#”)print format(a,”$0000.#”) （A）$1.732 （B）$1.73 （C）$1732 （D）$0001.73"16"【單選題】函數InStr(""VB程序,visual Basic,vb"",""vb"")的值為_。A （A）0 （B）1 （C）18 （D）Vb"17"【單選題】Private Sub Form_Click() Dim a As Integer Static b As Int

14、eger a=b+1 b=a+b Print a, b End Sub當鼠標單擊了窗體4次時窗體顯示的結果為( )。D （A）1，2 （B）4，5 （C）4，8 （D）8，15"四1"【單選題】賦值語句的作用是（ ）。C （A）賦值語句用于將表達式的值賦給變量 （B）賦值語句用于將表達式的值賦給屬性 （C）賦值語句用于將表達式的值賦給變量或屬性 （D）賦值語句用于將表達式的值賦給變量和屬性"2"【單選題】語句X=X+1的正確含義是( )。C（A）變量X的值與X+1的值相等 （B）將變量X的值存到X+1中去（C）將變量X的值加1后賦給變量X （D）變量X的

15、值為1"3"【單選題】VB中的注釋語句是( )。B （A）執行語句 （B）非執行語句 （C）命令語句 （D）結構化語句"4"【單選題】在默認情況下InputBox $ 函數返回值的類型為（ ）B （A）數值 （B）字符串 （C）變體 （D）數值或字符串(視輸入的數據而定)"5"【單選題】MsgBox函數中有4個參數，其中必須寫明的參數是( )。C （A）指定對話框中顯示按鈕的數目 （B）對話框標題（C）提示信息 （D）所有參數都是可選的"6"【單選題】運行以下程序中變量Var3的結果是（ ）。BDim Var1,V

16、ar2,Var3Var1=”Hello”Var2=”World!”Var3=Var1 & “ “ & Var2Var1=10Var2=20Var3=Var1 + var2（A）”Hello World!” （B）30 （C）1020 （D）出錯"7"【多選題】在窗體上畫一個命令按鈕，然后編寫如下事件過程，程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分別輸入456和123，則輸出結果分別是( )和（ ）D、A（1） Private Sub Command1_click() a=InputBox(“Enter the first Integer”) b=In

17、putBox(“Enter the Second Integer”) Print b+a End Sub（2） Private Sub Command1_click() Dim a,b As Integer a=InputBox(“Enter the first Integer”) b=InputBox(“Enter the Second Integer”) Print b+a End Sub （A）579 （B）123 （C）456 （D）123456"8"【多選題】Print方法可以在()對象上輸出數據。（多選）ADEG （A）窗體 （B）桌面 （C）標題欄 （D）立即

18、窗口 （E）圖片框 （F）狀態欄 （G）打印機 （H）代碼窗口"9"【單選題】下列程序段的執行結果為 。A X=2 Print X+1；X+1 （A）3 3 （B）X+1 X+1 （C）3 4 （D）2+1 2+1"10"【單選題】下面語句正確的是。CA.If x y Then Print “x不等于y”B.If x <> y Print “x不等于y”C.If x <> y Then Print “x不等于y”D.If x y Print “x不等于y”"11"【單選題】下面語句正確描述：如果x3y且x>

19、;y，則y=x3是。AA.If x<=3*y and x>y Then y= x3B.If and(x<=3y,x>y) Then y=x3C.If x<=3*y and x>y Then y=x*3D.If x<=3*y: x>y Then y=x3"12【單選題】下面程序段能夠正確實現目的：如果X<Y，則A=15，否則A=-15.CA.If X<Y Then A=15 B.If X<Y Then A=15:Print A A=-15 A=-15:Print A Print AC.If X<Y Then D.I

20、f X<Y Then A=15 A=15:Print A A=-15 Else Print A A=-15:Print A End If End If"13"【單選題】在下面程序運行時鍵入2，則該程序的運行結果是。C Private sub command1_click()X=inputbox(“請輸入一個整數”)Select case x Case Is<-3 Print (x+1)/(x+3) Case 3 To 3 Print x*x+1 Case Is>3 Print (x+1)/(x-3)End selectEnd subA.2 B.0.6 C.

21、5 D.-3"14"【單選題】下列程序段的執行結果為。A x=5 y=-20 If Not x>0 Then x=y-3 Else y=x+3 Print x-y;Y-xA.-3 3 B.5 -8 C.3 -3 D.25 -25"五1"【單選題】運行下列程序，輸出的結果為_。DPrivate Sub Form_Click() s=0 Do s = (s + 1) * (s + 2) Number = Number + 1 Loop Until s>=30 Print Number;sEnd Sub(A)0 1 (B)30 30 (C)4 30

22、 (D)3 182"2"【單選題】運行下列程序，輸出的結果為_。DPrivate Sub Form_Click() A$ = ""54321"": B$ = ""abcde"" j = 1 Do While j <= 5 Print Mid(A$, 6 - j, 1) + Mid(B$, j, 1); j = j + 1 Loop PrintEnd Sub(A)a1b2c3d4e5 (B)a5b4c3d2e1 (C)e1d2c3b4a5 (D)1a2b3c4d5e"3"

23、【單選題】下面程序段的執行結果為_。AI=0For g=10 to 19 Step 3 I=I+1Next gPrint I(A) 4 (B) 5 (C) 3 (D) 6"4"【單選題】運行下列程序，輸出的結果為_。CPrivate Sub Form_Click() For j = 1 To 10 a = 20 - (2 * j - 1) If a / 3 = a 3 Or a / 5 = a 5 Then Sum = Sum + a End If Next j Print ""Sum="" SumEnd Sub(A)Sum= 27

24、(B)Sum= 15 (C)Sum= 32 (D)32"5"【單選題】運行下列程序，結果為_。CPrivate Sub Command1_Click() a$ = ""A WORKER IS OVER THERE"" x = Len(a$) For i = 1 To x - 1 b$ = Mid(a$, i, 2) If b$ = ""ER"" Then s = s + 1 Next i Print sEnd Sub(A)1 (B)2 (C)3 (D)4"6"【單選題】在窗體

25、上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1=InputBox(""請輸入一個字符串""） For i=1 To Len(Str1) Str2=UCase(Mid(Str1,i,1)+Str2 Next i Print Str2End Sub程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串""abcdefg""，則單擊""確定""按鈕后在窗

26、體上的輸出結果為_。D(A) abcdefg (B) ABCDEFG (C) gfedcba (D) GFEDCBA"7"【單選題】運行下列程序，執行Print i * j的次數為_。BPrivat Sub Form_Click() For i =1 to 3 For j =5 to 1 step 2 Print i * j Next j Next iEnd Sub(A)7 (B)9 (C)12 (D)15"8"【單選題】下面程序段的執行結果為_。Ck=0For j=1 to 2 For i=1 to 3 k=i+1 Next i For i=1 to

27、7 k=k+1 Next iNext jPrint k(A) 10 (B) 6 (C) 11 (D) 16"六1"【單選題】語句Dim A(-3 to 5)As Integer定義的數組的元素個數是_。D(A)6 (B)7 (C)8 (D)9 "2"【單選題】語句Option Base 1: Dim a(3,4)定義的數組中，所包含的數組元素的個數是_。A(A)12 (B)7 (C)20 (D)15 "3【單選題】語句Dim a(3,4,5)定義的數組中所包含的數組元素的個數是_。B(A)12 (B)60 (C)120 (D)345 "

28、;4"【單選題】下面的數組聲明語句中_是正確的。B(A)Dim A3,4 As Integer (B)Dim A(3,4) As Integer(C)Dim A3;4 As Integer (D)Dim A(3;4) As Integer"5"【單選題】當程序運行時，在窗體上單擊鼠標時，下面事件過程的執行結果是_。DPrivate Sub Form_Click( ) Dim a(1 to 20) As Integer Dim k As Integer For k=1 To 20 a(k)=k*k Next k Print a(k) End Sub (A) 400

29、(B) 20 (C)441 (D)出錯 "6"【單選題】下列程序段的執行結果是_。ADim M(10)For I=0 To 10 M(I)=2*INext IPrint M(M(3)(A)12 (B)6 (C)0 (D)4"7"【單選題】下列程序段的執行結果是_。BDim A(5)For I=1 to 5 A(I)=I*INext IPrint A(I-1)(A)5 (B)25 (C)0 (D)16"8"【單選題】設執行以下程序段時依次輸入1、3、5，執行結果為_。A Dim a(4) As Integer,b(4) As Integ

30、er For K=0 To 2 a(K+1)=Val(InputBox(""請輸入數據:"") b(3-K)=a(K+1) Next K Print b(K)(A)1 (B)3 (C)5 (D)0"9"【單選題】下列程序段的執行結果為_。CDim M(10)For K=1 To 10 M(K)=11-KNext KX=6Print M(2+M(X)(A)2 (B)3 (C)4 (D)5"10"【單選題】下列程序段的執行結果為_。CDim M(10),N(10)I=3For T=1 To 5 M(T)=T N(I)=

31、2*I+TNext TPrint N(I);M(I)(A)3 11 (B)3 15 (C)11 3 (D)15 3"11"【單選題】以下說法不正確的是_。B(A) 使用Redim語句可以改變數組的維數(B) 使用Redim語句可以改變數組的類型(C) 使用Redim語句可以改變數組每一維的大小(D) 使用Redim語句可以對數組中的所有元素進行初始化"12"【單選題】在窗體上用復制、粘貼的方法建立了一個命令按鈕數組，數組名為M1。設窗體Form1標題為“myform1”，雙擊控件數組中的第三個按鈕，打開代碼編輯器，寫下如下代碼：Private Sub M

32、1_Click(Index As Integer) Form1.Caption=""myform2""End Sub運行時，單擊按鈕數組中的第一個按鈕，窗體標題為_。D(A)Form1 (B)M1 (C)myform1 (D)myform2"13"【單選題】在窗體上畫一個命令按鈕Command1,編寫其Click事件過程代碼如下： Private Sub Command1_Click( ) Dim m(1 to 10) As Integer,k As Integer For k=1 to 10 m(k)=11-k Next k For

33、 k=1 to 10 Print m(m(k); Next k End Sub程序運行時，單擊命令按鈕時，程序的輸出結果是_。D(A) 10 9 8 7 6 5 4 3 2 1 (B) 1 3 5 7 9 2 4 6 8 10 (C) 2 4 6 8 10 5 7 9 (D) 1 2 3 4 5 6 7 8 9 10 "14"【單選題】在窗體上畫一個命令按鈕Command1,編寫其Click事件過程代碼如下：Option Base 1 Private Sub Command1_Click() Dim x() As Integer Dim m As Integer, n As

34、 Integer, k As Integer m = Val(InputBox(""請輸入m的值"") n = Val(InputBox(""請輸入n的值"") ReDim x(m To n) For k = LBound(x, 1) To UBound(x, 1) x(k) = k * k Print x(k) Next k End Sub程序運行時，單擊命令按鈕，在出現的輸入對話框中分別輸入5和5，則程序的輸出結果是_。B(A) 5 (B) 25 (C)出錯 (D)沒有輸出"15"【單選題】

35、下列程序段執行后，元素X(3,4)的值為_。CDim X(3,5)As Integer , i As Integer, j As IntegerFor i=1 to 3 For j=1 to 5 X(i,j)=X(i-1,j-1)+i+j Next j Next i (A) 12 (B) 13 (C)14 (D)15 "16"【單選題】下列程序段的執行結果為_。BDim A(10,10)For I=2 To 4 For J=4 To 5 A(I,J)=I*J Next JNext IPrint A(2,5)+A(3,4)+A(4,5)(A)22 (B)42 (C)32 (D

36、)52"17"【單選題】下列程序段的執行結果為_。CDim M(2)For I=1 To 2 M(I)=0Next IK=2For I=1 To K For J=1 To K M(J)=M(I)+1 Print M(K); Next JNext I(A)1 2 2 3 (B)1 2 3 4 (C)0 2 2 3 (D)0 1 2 3 "18"【單選題】下列程序段的執行結果為_。DDim A(10),B(5)For I=1 To 10 A(I)=INext IFor J=1 To 5 B(J)=J*20Next JA(5)=B(2)Print "

37、"A(5)=""A(5)(A)A(5)=5 (B)A(5)=10 (C)A(5)=20 (D)A(5)=40"七。略。八1"將圖片框的_屬性設置為True時，可使圖片框根據圖片調整大小。(單選題) CA、AutoSizeB、AutoReDrawC、PictureD、Stretch"2"下面敘述不正確的是_。(單選題) CA、驅動器列表框是一種能顯示系統中所有有效磁盤驅動器的列表框B、驅動器列表框的Drive屬性只能在運行時被設置C、從驅動器列表框中選擇驅動器能自動地變更系統當前的工作驅動器D、驅動器列表框中的Drive屬性一

38、發生改變，一定會觸發Change事件"3"使用目錄列表框的_屬性可以返回或設置當前工作目錄的完整路徑(包括驅動器盤符)。(單選題) BA、DriveB、PathC、DirD、ListIndex"4"文件列表框中用于設置或返回所選文件的路徑的屬性是_。(單選題) DA、FileB、FilePathC、PathD、FileName"5"要觸發目錄列表框的Change事件為以下_操作。(單選題) DA、單擊所選目錄B、雙擊所選目錄C、在屬性窗口設置其Path屬性D、以上操作都不對"6"在目錄列表框中，當前被選中的目錄的L

39、istIndex屬性值為_。(單選題) DA、1B、0C、1D、不確定"7"編寫如下事件過程：Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii);Print KeyAsciiEndSub運行程序，按下“a”鍵輸出結果為_。(單選題) AA、A65B、a97C、65AD、97a"8"將窗體的KeyPreview屬性設置為True，然后編寫如下事件過程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) P

40、rint Chr(KeyCode);End SubPrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 32)End Sub按下“a”鍵時，輸出結果為_。(單選題) AA、AaB、AAC、aaD、aA"9"編寫如下事件過程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 3 And Button = 2 Then P

41、rint ""BBBB"" End IfEnd Sub運行后，為了在窗體上輸出“BBBB”，應執行的操作為_。(單選題) DA、同時按下Shift鍵和鼠標左鍵B、同時按下Shift鍵和鼠標右鍵C、同時按下Ctrl鍵，Alt鍵和鼠標左鍵D、同時按下Ctrl鍵，Shift鍵和鼠標右鍵"10"下列關于MouseMove事件的判斷，正確的是_。(單選題) AA、當鼠標指針處在窗體邊框內時，窗體和控件均能識別MouseMove事件B、當鼠標指針在屏幕上移動時就會發生MouseMove事件C、在鼠標移動時，該事件只發生一次D、當鼠標指針處在控件的

42、邊框外時，窗體和控件均能識別MouseMove事件"九1"【單選題】下面敘述中錯誤的是_。D(A)Visual Basic函數分為內部函數和外部函數(B)函數過程以Function語句開始，以End Function語句結束(C)函數過程中的函數體中若沒有賦值語句<函數過程名>=<表達式>，則函數過程將返回一個默認值(D)Function過程中可以再定義一個Function過程"2"【單選題】可以使用_語句退出Sub過程。A(A)Exit Sub (B)Go Off (C)End Sub (D)Exit"3"【

43、單選題】在主調過程中的參數稱為_。B(A)形參 (B)實參 (C)主參 (D)輔參"4"【單選題】在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下程序： Private Sub Command1_Click() Dim x As Integer,y As Integer,z As Integer x=5：y=7：z=0 Text1.Text="""" Call p1(x,y,z) Text1.Text=Str(z) End Sub Sub p1(ByVal a As Integer,ByVal

44、 b As Integer,c As Integer) c=a+b End Sub 程序運行后，如果單擊命令按鈕，則在文本框中顯示的內容是_。D(A)0 (B)12 (C)Str(z) (D)沒有顯示 "5"【單選題】通用過程可以通過執行“工具”菜單中的_命令來建立。A(A)添加過程 (B)通用過程 (C)添加窗體 (D)添加模塊"6"【單選題】現有如下程序:Private Sub Form_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print sEnd SubPublic Function f(x As Integer) If x>=10 Then t=x+1 Else t=x+2 End If f=tEnd Function運行程序,則窗體上顯示的為_。B(A)38 (B)49 (C)61 (D)70"7"【單選題】單擊按鈕時，以下程序運行后的輸出結果是_。APrivate Sub Command1_Click() Dim x As Integer, y