1、一1"【單選題】Visual Basic的編程機(jī)制是 D 。A、可視化 B、面向?qū)ο?C、面向圖形 D、事件驅(qū)動(dòng)"2"【單選題】Visual Basic集成環(huán)境的大部分窗口都可以從主菜單項(xiàng) （） 的下拉菜單中找到相應(yīng)的打開命令。BA、編輯 B、視圖 C、格式 D、調(diào)試"3"【單選題】每個(gè)窗體對(duì)應(yīng)一個(gè)窗體文件，窗體文件的擴(kuò)展名是 C 。、.bas B、.cls C、.frm D、.vbp"4"【單選題】工程文件的文件名后綴是什么？_ BA.bmp B.vbp C.frm D.bas "5"【單選題】窗體設(shè)計(jì)

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

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

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

5、 Left"2"【單選題】要使Print 方法在Form_Load事件中起作用，要對(duì)窗體的 屬性進(jìn)行設(shè)置。C （A）BackColor (B)ForeColor (C) AutoRedraw (D) Caption"3"【單選題】要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì) 屬性進(jìn)行設(shè)置 B （A）BackColor (B)ForeColor (C) BorderStyle (D) BackStyle"4"【單選題】要使命令按鈕不可操作，要對(duì) 設(shè)置 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窗體的標(biāo)題欄顯示”歡迎使用VB”，以下 語句正確。A（A） Form1.Caption=”歡迎使用VB”（B）Form1.Caption=歡迎使用VB (C) Form1.Caption=歡迎使用VB (D) Form1.Caption=”歡迎

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

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

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

10、D 52的值為（ ）。B（A）14 (B)4 (C)20 (D)2"7"【單選題】數(shù)學(xué)關(guān)系3<=x<10表示成正確的VB表達(dá)式為（ ）。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” 則表達(dá)式Val(Left$(A$,4)+Mid(A$,4,2)的值為（ ）。B（A） 123456 (B)123445 (C) 8 (D) 6"9"【單選題】表達(dá)式Len

11、(“123程序設(shè)計(jì)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三個(gè)變量賦值為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 則表達(dá)式：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"【單選題】下列符號(hào)常量的聲明中，( )是不合法的。D （A）Const a As Single=1.1 （B）Const a As Integer=”12”（C）Const a As Double=Sin(1) （D）Const a=”O(jiān)K”"15"【多選題】以下語句的輸出第一個(gè)結(jié)果是( )；第二個(gè)結(jié)果是( )。

13、BDa=sqr(3)print format(a,”$#.#”)print format(a,”$0000.#”) （A）$1.732 （B）$1.73 （C）$1732 （D）$0001.73"16"【單選題】函數(shù)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當(dāng)鼠標(biāo)單擊了窗體4次時(shí)窗體顯示的結(jié)果為( )。D （A）1，2 （B）4，5 （C）4，8 （D）8，15"四1"【單選題】賦值語句的作用是（ ）。C （A）賦值語句用于將表達(dá)式的值賦給變量 （B）賦值語句用于將表達(dá)式的值賦給屬性 （C）賦值語句用于將表達(dá)式的值賦給變量或?qū)傩?（D）賦值語句用于將表達(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）執(zhí)行語句 （B）非執(zhí)行語句 （C）命令語句 （D）結(jié)構(gòu)化語句"4"【單選題】在默認(rèn)情況下InputBox $ 函數(shù)返回值的類型為（ ）B （A）數(shù)值 （B）字符串 （C）變體 （D）數(shù)值或字符串(視輸入的數(shù)據(jù)而定)"5"【單選題】MsgBox函數(shù)中有4個(gè)參數(shù)，其中必須寫明的參數(shù)是( )。C （A）指定對(duì)話框中顯示按鈕的數(shù)目 （B）對(duì)話框標(biāo)題（C）提示信息 （D）所有參數(shù)都是可選的"6"【單選題】運(yùn)行以下程序中變量Var3的結(jié)果是（ ）。BDim Var1,V

16、ar2,Var3Var1=”Hello”Var2=”World!”Var3=Var1 & “ “ & Var2Var1=10Var2=20Var3=Var1 + var2（A）”Hello World!” （B）30 （C）1020 （D）出錯(cuò)"7"【多選題】在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程，程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對(duì)話框中分別輸入456和123，則輸出結(jié)果分別是( )和（ ）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方法可以在()對(duì)象上輸出數(shù)據(jù)。（多選）ADEG （A）窗體 （B）桌面 （C）標(biāo)題欄 （D）立即

18、窗口 （E）圖片框 （F）狀態(tài)欄 （G）打印機(jī) （H）代碼窗口"9"【單選題】下列程序段的執(zhí)行結(jié)果為 。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【單選題】下面程序段能夠正確實(shí)現(xiàn)目的：如果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"【單選題】在下面程序運(yùn)行時(shí)鍵入2，則該程序的運(yùn)行結(jié)果是。C Private sub command1_click()X=inputbox(“請(qǐng)輸入一個(gè)整數(shù)”)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"【單選題】下列程序段的執(zhí)行結(jié)果為。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"【單選題】運(yùn)行下列程序，輸出的結(jié)果為_。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"【單選題】運(yùn)行下列程序，輸出的結(jié)果為_。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、【單選題】下面程序段的執(zhí)行結(jié)果為_。AI=0For g=10 to 19 Step 3 I=I+1Next gPrint I(A) 4 (B) 5 (C) 3 (D) 6"4"【單選題】運(yùn)行下列程序，輸出的結(jié)果為_。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"【單選題】運(yùn)行下列程序，結(jié)果為_。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、上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1=InputBox(""請(qǐng)輸入一個(gè)字符串""） For i=1 To Len(Str1) Str2=UCase(Mid(Str1,i,1)+Str2 Next i Print Str2End Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串""abcdefg""，則單擊""確定""按鈕后在窗

26、體上的輸出結(jié)果為_。D(A) abcdefg (B) ABCDEFG (C) gfedcba (D) GFEDCBA"7"【單選題】運(yùn)行下列程序，執(zhí)行Print i * j的次數(shù)為_。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"【單選題】下面程序段的執(zhí)行結(jié)果為_。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定義的數(shù)組的元素個(gè)數(shù)是_。D(A)6 (B)7 (C)8 (D)9 "2"【單選題】語句Option Base 1: Dim a(3,4)定義的數(shù)組中，所包含的數(shù)組元素的個(gè)數(shù)是_。A(A)12 (B)7 (C)20 (D)15 "3【單選題】語句Dim a(3,4,5)定義的數(shù)組中所包含的數(shù)組元素的個(gè)數(shù)是_。B(A)12 (B)60 (C)120 (D)345 "

28、;4"【單選題】下面的數(shù)組聲明語句中_是正確的。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"【單選題】當(dāng)程序運(yùn)行時(shí)，在窗體上單擊鼠標(biāo)時(shí)，下面事件過程的執(zhí)行結(jié)果是_。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)出錯(cuò) "6"【單選題】下列程序段的執(zhí)行結(jié)果是_。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"【單選題】下列程序段的執(zhí)行結(jié)果是_。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"【單選題】設(shè)執(zhí)行以下程序段時(shí)依次輸入1、3、5，執(zhí)行結(jié)果為_。A Dim a(4) As Integer,b(4) As Integ

30、er For K=0 To 2 a(K+1)=Val(InputBox(""請(qǐng)輸入數(shù)據(jù):"") b(3-K)=a(K+1) Next K Print b(K)(A)1 (B)3 (C)5 (D)0"9"【單選題】下列程序段的執(zhí)行結(jié)果為_。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"【單選題】下列程序段的執(zhí)行結(jié)果為_。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語句可以改變數(shù)組的維數(shù)(B) 使用Redim語句可以改變數(shù)組的類型(C) 使用Redim語句可以改變數(shù)組每一維的大小(D) 使用Redim語句可以對(duì)數(shù)組中的所有元素進(jìn)行初始化"12"【單選題】在窗體上用復(fù)制、粘貼的方法建立了一個(gè)命令按鈕數(shù)組，數(shù)組名為M1。設(shè)窗體Form1標(biāo)題為“myform1”，雙擊控件數(shù)組中的第三個(gè)按鈕，打開代碼編輯器，寫下如下代碼：Private Sub M

32、1_Click(Index As Integer) Form1.Caption=""myform2""End Sub運(yùn)行時(shí)，單擊按鈕數(shù)組中的第一個(gè)按鈕，窗體標(biāo)題為_。D(A)Form1 (B)M1 (C)myform1 (D)myform2"13"【單選題】在窗體上畫一個(gè)命令按鈕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程序運(yùn)行時(shí)，單擊命令按鈕時(shí)，程序的輸出結(jié)果是_。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"【單選題】在窗體上畫一個(gè)命令按鈕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(""請(qǐng)輸入m的值"") n = Val(InputBox(""請(qǐng)輸入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程序運(yùn)行時(shí)，單擊命令按鈕，在出現(xiàn)的輸入對(duì)話框中分別輸入5和5，則程序的輸出結(jié)果是_。B(A) 5 (B) 25 (C)出錯(cuò) (D)沒有輸出"15"【單選題】

35、下列程序段執(zhí)行后，元素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"【單選題】下列程序段的執(zhí)行結(jié)果為_。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"【單選題】下列程序段的執(zhí)行結(jié)果為_。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"【單選題】下列程序段的執(zhí)行結(jié)果為_。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"將圖片框的_屬性設(shè)置為True時(shí)，可使圖片框根據(jù)圖片調(diào)整大小。(單選題) CA、AutoSizeB、AutoReDrawC、PictureD、Stretch"2"下面敘述不正確的是_。(單選題) CA、驅(qū)動(dòng)器列表框是一種能顯示系統(tǒng)中所有有效磁盤驅(qū)動(dòng)器的列表框B、驅(qū)動(dòng)器列表框的Drive屬性只能在運(yùn)行時(shí)被設(shè)置C、從驅(qū)動(dòng)器列表框中選擇驅(qū)動(dòng)器能自動(dòng)地變更系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器D、驅(qū)動(dòng)器列表框中的Drive屬性一

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

39、istIndex屬性值為_。(單選題) DA、1B、0C、1D、不確定"7"編寫如下事件過程：Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii);Print KeyAsciiEndSub運(yùn)行程序，按下“a”鍵輸出結(jié)果為_。(單選題) AA、A65B、a97C、65AD、97a"8"將窗體的KeyPreview屬性設(shè)置為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”鍵時(shí)，輸出結(jié)果為_。(單選題) 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運(yùn)行后，為了在窗體上輸出“BBBB”，應(yīng)執(zhí)行的操作為_。(單選題) DA、同時(shí)按下Shift鍵和鼠標(biāo)左鍵B、同時(shí)按下Shift鍵和鼠標(biāo)右鍵C、同時(shí)按下Ctrl鍵，Alt鍵和鼠標(biāo)左鍵D、同時(shí)按下Ctrl鍵，Shift鍵和鼠標(biāo)右鍵"10"下列關(guān)于MouseMove事件的判斷，正確的是_。(單選題) AA、當(dāng)鼠標(biāo)指針處在窗體邊框內(nèi)時(shí)，窗體和控件均能識(shí)別MouseMove事件B、當(dāng)鼠標(biāo)指針在屏幕上移動(dòng)時(shí)就會(huì)發(fā)生MouseMove事件C、在鼠標(biāo)移動(dòng)時(shí)，該事件只發(fā)生一次D、當(dāng)鼠標(biāo)指針處在控件的

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

43、單選題】在主調(diào)過程中的參數(shù)稱為_。B(A)形參 (B)實(shí)參 (C)主參 (D)輔參"4"【單選題】在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為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 程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是_。D(A)0 (B)12 (C)Str(z) (D)沒有顯示 "5"【單選題】通用過程可以通過執(zhí)行“工具”菜單中的_命令來建立。A(A)添加過程 (B)通用過程 (C)添加窗體 (D)添加模塊"6"【單選題】現(xiàn)有如下程序: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運(yùn)行程序,則窗體上顯示的為_。B(A)38 (B)49 (C)61 (D)70"7"【單選題】單擊按鈕時(shí)，以下程序運(yùn)行后的輸出結(jié)果是_。APrivate Sub Command1_Click() Dim x As Integer, y