1、1、求一個三位正數N的十位數的正確方法是_C_。A、lnt（N/10)-lnt(N /100)B、N-lnt(N-1000)*100C、n 10 Mod 10D、lnt(N/10)-lnt(N/10)*102、表達式(-1)*Sgn(-100+Int(Rnd*100)的值是_A_。A、1B、0C、-1D、隨機3、在程序中分別將變量IntA、Bl、st和D定義為整型、布爾型、字符串型和日期型，下列賦值語句在執行時會出錯的是_A_。A、Bl=#True# B、st= "" C、D=#10/05/01#D、Inta=4.64、圖像框有一個屬性，可以自動調整圖形的大小，以適應圖像框

2、的尺寸，這個屬性是_B_。A、AppearanceB、StretchC、AutoredrawD、Autosize5、使用_C_方法可將新的列表項添加到一個列表框中。A、Clear B、AddItem C、Print D、RemoveItem6、下列 _B_ 不是列表框的方法。A、Clear B、AddItem C、Print D、RemoveItem7、執行下列程序段，輸出結果為 _B_。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A、

3、出錯B、7 0C、4 4D、7 7 9、執行下列程序段，輸出結果為 _B_。Dim a() As IntegerDim i As IntegerReDim a(10)For i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A、7 0B、出錯C、7 7D、4 410、執行下面的程序，輸出結果是_A_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F

4、(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End FunctionA、18 30B、9 18C、7 18D、4 911、窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過程Sub1中分別用Public K As Integer,Dim K As Integer聲明了兩個同名變量K，則在過程Sub1中要訪問全局變量K，可采用_C_。A、Form1.KB、Form.KC、Frm1.kD、K12、一個工程中含有窗體Form1.Form2和標準模塊Model1，如果在F

5、orm1中有語句 Public X As Integer 在Model1中有語句 Public Y As Integer 則以下敘述中正確的是BA、變量X.Y的作用域相同 B、在From1中可以直接使用XC、Y的作用域是Model1D、在Form2中可以直接使用X和Y13、VB是一種面向_C_的程序設計語言。A、過程 B、用戶 C、對象D、方法14、以下敘述中錯誤的是_D_。A、事件可以由用戶引發，也可以由系統引發B、打開一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件C、保存Visual Basic程序時，應分別保存窗體文件及工程文件D、Visual Basic應用程序只能以解

6、釋方式執行15、VB是用于開發_A_環境下的應用程序的工具。A、WindowsB、DOSC、DOS和WindowsD、UNIX16、為了建立一個隨機文件，其中每一條記錄由多個不同數據類型的數據項組成，應使用_C_。A、字符串類型B、數組C、記錄類型D、變體類型17、下面關于隨機文件的描述不正確的是_A_。A、一個文件中記錄號不必唯一B、每條記錄的長度必須相同C、可通過編程對文件中的某條記錄方便地修改D、文件的組織結構比順序文件復雜18、以下關于文件的敘述中，錯誤的是_B_。A、順序文件中的記錄一個接一個地順序存放B、隨機文件中記錄的長度是隨機的C、LOF函數返回給文件分配的字節數D、執行打開文

7、件的命令后，自動生成一個文件指針20、執行以下語句后，a的值為_C_。 Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 100A、101B、100C、溢出D、9922、在窗體上畫一個命令按鈕和一個文本框，其名稱分別為Command1和Text1，把文本框的Text屬性設置為空白，然后編寫如下事件過程：Private Sub Command1_Click() A = Inputbox("Enter An Integer") B = Inputbox("Enter An Integer") Text1.T

8、ext = B + AEnd Sub程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入4和56，則文本框中顯示的內容是_C_。A、出錯B、60C、564D、45623、執行語句：A = Inputbox("Today", "Tomorrow", "Yesterday")將顯示一個輸入對話框，在對話框的輸入區中顯示的信息是_C_。A、Tomorrow B、Today C、Yesterday 26、下列程序段的執行結果是_A_。X = 2 Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Pr

9、int Y - X > 0A、False B、TrueC、-1D、127、在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is < 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，

10、則在Text2中顯示的內容是D_。A、20B、30C、40D、1028、設在菜單編輯器中定義了一個菜單項，名為Menu1。為了在運行時隱藏該菜單項，應使用的語句是 _A_。A、Menu1.Visible=FalseB、Munu1.Enabled=FalseC、Menu1.Visible=TrueD、Menu1.Enabled=True 29、以下使用方法的代碼中，正確的是_D_。A、Form1.ClearB、Combo1.ClsC、Label1.SetFocus D、Text1.SetFocus30、設有一個命令按鈕，若要實現按回車鍵等同按此鍵，應設置其_D_ 。A、Default屬性設為Fa

11、lseB、Cancel屬性設為True C、Cancel屬性設為FalseD、Default屬性設為True 32、在用通用對話框控件建立"打開"或"保存"文件對話框時，如果需要指定文件列表框所列出的文件類型是文本文件（即.txt文件），則正確的描述格式是_A_。A、"文本文件(.txt)|*.txt"B、"text (.txt)"|(*.txt)C、"text(.txt)|(*.txt)"D、"text(.txt)(*.txt)"33、在以下4個邏輯表達式中，其邏輯值為&q

12、uot;真"的是_B_。A、not (3+4<4+6) B、not(1>2)C、1>2 or 2>3 D、2>1and 3<2 34、設A="12345678"，則表達式Val(Left(A,4)+Mid(A,4,2)的值為_A_。A、123445B、123456C、8D、635、以下能夠觸發文本框Change事件的操作是_C_。A、文本框獲得焦點B、設置文本框的焦點C、改變文本框的內容D、文本框失去焦點 36、VB中可以使用自己定義的Sub過程和Function過程，_D_ 過程稱為函數，這種過程可以返回值。A、通用B、屬性C

13、、事件D、Function37、下面程序段的運行結果為_C_。 Dim s As Integer, i As Integer i = 1: s = 1 Do i = i + s Loop Until s > 10 Print i, sA、11 1 B、11 10C、溢出 D、10 1 38、以下關于窗體的描述中，錯誤的是_B_。A、窗體的Height、Width屬性用于設置窗體的高和寬B、執行Unload Form1語句后，窗體Form1消失，但仍在內存中C、窗體的Load 事件在加載窗體時發生D、當窗體的Enabled 屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止39、以下敘

14、述中錯誤的是_B_。A、下拉式菜單和彈出式菜單都用菜單編輯器建立B、如果把一個菜單項的Enabled屬性設置為False，則該菜單項不可見C、除分隔線外，所有菜單項都能接收Click事件D、在多窗體程序中，每個窗體都可以建立自己的菜單系統40、在程序中可以通過復選框和單選按鈕的_A_屬性值來判斷它們的當前狀態它。A、Value B、Caption C、Checked D、Selected42、運行如下程序后，輸出結果為_。 Dim i As Integer, y As Integer For i = 3 To 15 Step 3 y = y + i i = i + 3 Next i Print

15、 i; y答案：21 2743、如果依次輸入75,55,45,70,30,25,40,15,20,5,下列程序段的執行結果為_。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 20 x = InputBox("輸入X的數值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d答案：33046、素互換，第2個元素與第9個元素互換分別輸出數組原來各元素的值和對換后各元素的值。 Private Sub

16、Command1_Click() Dim a(10) As Integer Dim i As Integer, j As Integer Print "原序列：" For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print For i = 1 To _ t = a(i) _ _ Next i Print "交換后的序列：" For i = 1 To 10 Print a(i); Next i Print End Sub答案：第一空：5 第二空：NYa(i)=a(11-i) 第三空：

17、NYa(11-i)=t47、執行以下程序段，則第一行輸出結果是_，第二行輸出結果是_。Dim a(-3 To 5) As SingleDim b(3, 4) As IntegerPrint UBound(a), UBound(b, 1)Print LBound(a), LBound(b, 2)答案：第一空：5 3 第二空：NY-3 048、設有數組聲明語句：Dim A(-1 To 2,-1 To 1) As Long，則數組A在內存中所占的字節數為_。答案：4849、順序文件通過PRINT語句或_語句把緩沖區中的數據寫入磁盤。答案：WRITE52、假設遞歸函數fact(n)用來求n的階乘，請補

18、充程序。 Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = _ End If End Function答案：n*fact(n-1)54、執行以下程序，單擊命令按鈕后，如果在彈出的對話框中單擊"是"按鈕，則窗體上的輸出內容是_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數據！" & Chr(13) & Chr(10) & &quo

19、t;請重新輸入", vbYesNo+ vbCritical, "提示信息") Print a End Sub答案：655、運行下列程序，單擊命令按鈕后，在窗體上輸出結果為_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3), s(3) Dim x, i% For i = 1 To 3 s(i) = 0 For j = 1 To 3 a(i, j) = i + j s(i) = s(i) + a(i, j) Next j Next i For Each x In s Print x; Next x End

20、 Sub答案：9 12 151下列符號常量的聲明中，_D_是不合法的。Const a As single =1.1Const a As Integer =12Const a =OKCost a As Double =Sin(1)2在以下有關對象屬性的敘述中錯誤的是_D_。只能在執行時設置或改變的屬性為執行時屬性所有對象都具有Name 屬性 對象的某些屬性只能在設計時設定，不能使用代碼改變Enabled屬性值設為False的控件對象在窗體上將不可見3以下關于圖片框控件的說法中，錯誤的是_A_。用Stretch屬性可以自動調整圖片框中圖形的大小清空圖片框控件中圖形的方法之一是加載一個空圖形圖片框控

21、件可以作為容器使用可以通過Print方法在圖片框中輸出文本4設窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當前被選中的列表項內容的是DList1.Index List1.Listindex List1.ListList1.Text5以下關于動態數組的語句中，正確的是_D_。ReDim a(3,4)：ReDim Preserve a(4,7)Dim a() As Integer：ReDim a(5) ：ReDim a(3,4)：a(4)=a(3)+1Dim a() As Integer：ReDim a(5) As SingleReDim a(k+1)：ReDim pres

22、erve a(10)6執行下面的程序，輸出結果是_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End Function18 308名為sort的Sub子過程的形式參數為一數組，以下的定義語句中正確的是_A_。Private Sub sort(A(

23、) As Integer)Private Sub sort(ByVal A() As Integer)Private Sub sort(A(10) As Integer)Private Sub sort(A( ，) As Integer)9以下敘述中錯誤的是_D_。Visual Basic應用程序不具有明顯的開始和結束語句Visual Basic中控件的某些屬性只能在運行時設置Visual Basic 是事件驅動型可視化編程工具Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性10 一只白色的足球被踢進球門，則白色、足球、踢、進球門是_。屬性、對象、事

24、件、方法11 以下敘述中正確的是_A_。隨機文件中每個記錄的長度是固定的Open命令的作用是打開一個已經存在的文件使用Input #語句可以從隨機文件中讀取數據一個記錄中所包含的各個元素的數據類型必須相同13 假定在窗體上建立了通用對話框，其名稱為CommonDialog1 ，用下面的語句可以建立一個對話框:CommonDialog1.Action = 2與該語句等價的語句是_A_。CommonDialog1.showsaveCommonDialog1.showopenCommonDialog1.showcolorCommonDialog1.showfont14 執行以下語句后，a的值為_3

25、_。 Dim a As Integer a = 1 Do a = a + 2 Loop While a = 100窗體Form1的名稱屬性是frm，它的Load事件過程名是_Form_Load16運行如下程序后，輸出結果為_30_。 a = 0 For j = 1 To 30 Step 2 a = a + j mod 5 Next j Print a18 運行下列程序，單擊命令按鈕后，在窗體上輸出結果為_9 12 15_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3), s(3) Dim x, i% For i = 1 To 3

26、s(i) = 0 For j = 1 To 3 a(i, j) = i + j s(i) = s(i) + a(i, j) Next j Next i For Each x In s Print x; Next x End Sub20 假設遞歸函數fact(n)用來求n的階乘，請補充程序。 Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = _n*fact(n-1)_ End If End Function22 執行以下程序，單擊命令按鈕后，如果在彈出的對話框中單擊&qu

27、ot;是"按鈕，則窗體上的輸出內容是_6_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數據！" & Chr(13) & Chr(10) & "請重新輸入", vbYesNo+ vbCritical, "提示信息") Print a End Sub23 設有數組聲明語句：Dim A(-1 To 2,-1 To 1) As Long，則數組A在內存中所占的字節數為_48_。1 以下可以作為Visual Basic變量名的是_D

28、_。F1.1 a*b2FA F2A2 以下敘述中錯誤的是_。程序運行過程中，可以重新設置菜單的Visible屬性在菜單的標題欄中，"&"所引導的字母指明了訪問該菜單項的訪問鍵在同一窗體的菜單項中，不允許出現標題相同的菜單項彈出式菜單也在菜單編輯器中定義3 下列程序段的執行結果為_。Dim a(10) As Integer, b() As IntegerDim i As IntegerReDim b(5)For i = 1 To 10 a(i) = i If i Mod 2 = 0 Then b(i/2) = a(i) End IfNext iPrint a(4);

29、b(3)4 64 在調用過程時，下列說法中正確的是_C_。只能使用Call語句調用Sub過程調用Sub過程時，實際參數必須用括號括起來Function過程也可以使用Call語句調用Function過程也可以使用Call語句調用5 表達式Abs(-5)+Len("ABCDE")的值是_10_。5ABCDE 10 -5ABCDE 06 單選按鈕（OptionButton）用于一組互斥的選項中。若一個應用程序包含多組互斥條件，可在不同的_中安排適當的單選按鈕，即可實現。框架控件（Frame）或圖片框（PictureBox）7 閱讀下面程序，當單擊窗體后，窗體上輸出的是17 13

30、3_。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 1 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 1 Next i Print a; b; k End Sub9 下列程序的執行結果為_35 20_。 Private Sub Form_Click() Dim M As Integer, N As Integer M = 15: N = 20 Call try(M

31、, N) Print M; N End Sub Sub try(x As Integer, Byval y As Integer) x = x + 20 y = x + y End Sub11 執行以下程序，單擊命令按鈕后，如果從鍵盤上輸入5，則第一行輸出結果是_1 2 3 4 5_，第二行輸出結果是_(NY)00000000000_。 Private Sub Command1_Click() Dim a() As Integer Dim n As Integer, i As Integer n = InputBox("input n:") ReDim a(n) For i

32、 = 1 To n a(i) = i Print a(i); Next i Print ReDim a(10) For i =0 To 10 Print a(i); Next i End Sub12 執行下列程序，單擊命令按鈕在窗體上輸出結果為_5 6 3_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, k As Integer Dim i As Integer, j As Integer, n As Integer n = UBound(a, 1) For i = 1 To n - 2 For j =

33、i To n - i a(i, j) = k + 1 a(j, n + 1 - i) = k + 2 a(n + 1 - i, n + 1 - j) = k + 3 a(n + 1 - j, i) = k + 4 k = k + 4 Next j Next i If n Mod 2 <> 0 Then a(n + 1) / 2, (n + 1) / 2) = k + 1 End If Print a(1, 2); a(2, 3); a(3, 3) End Sub14 執行下面的程序段，輸出結果是_ABCBCD_。 Dim str1 As String, str2 As String

34、 str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str115 執行下面程序段，如果運行時輸入2，則在窗體上輸出結果是_4_。 Dim x As Integer x = InputBox("input x") If x > 1 Then y = x + 2 ElseIf x < 5 Then y = x + 3 ElseIf x = 2 Then y = x End If P

35、rint y16 執行以下程序，單擊命令按鈕后，窗體上的輸出結果是_-1_。 Private Sub Command1_Click() Dim a As Integer a = True * 6 + 5 Print a End Sub17 執行下面程序，若依次輸入10，20，30，40，50，60，則輸出結果是_10 30 50 20 40 60_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 2) As Integer Dim i%, j%, t For i = 1 To 3 For j = 1 To 2 a(i, j) = Inp

36、utBox("請輸入數組元素的值") Next j Next i For Each t In a Print t; Next t End Sub1 如果X是一個正數的實數，將千分位四舍五入，保留兩位小數的表達式是_。0.01*Int(100*(X+0.005) 2 為了建立一個隨機文件，其中每一條記錄由多個不同數據類型的數據項組成，應使用_。記錄類型下面所列四組數據中，全部是正確的VB常數的是_。ABCE，#02-03-2004#，E-23 窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過程Sub1中分別用Public K As Integer,Dim K As In

37、teger聲明了兩個同名變量K，則在過程Sub1中要訪問全局變量K，可采用_。Frm1.k4 運行以下程序，單擊命令按鈕后，如果用戶從鍵盤上輸入6、5、4、3、2、1，則窗體上輸出內容為_9_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox("input number") Next i ReDim Preserve a(10) a(10) = a(5) + a(4

38、) Print a(10)End Sub 5 以下敘述中錯誤的是_D_。一個工程中只能有一個Sub Main過程窗體的Show方法的作用是將指定的窗體裝入內存并顯示該窗體若工程文件中有多個窗體，可以根據需要指定一個窗體為啟動窗體窗體的Hide方法和Unload方法的作用完全相同 6 以下關于文件的敘述中，錯誤的是_A_。 隨機文件中記錄的長度是隨機的順序文件中的記錄一個接一個地順序存放執行打開文件的命令后，自動生成一個文件指針LOF函數返回給文件分配的字節數7 以下敘述中錯誤的是_A_。 在同一窗體的菜單項中，不允許出現標題相同的菜單項程序運行過程中，可以重新設置菜單的Visible屬性在菜單

39、的標題欄中，"&"所引導的字母指明了訪問該菜單項的訪問鍵彈出式菜單也在菜單編輯器中定義8 下面的程序是找出兩個正整數a和b，使a<b、a+b=99、a和b的最大公約數是3的倍數，并統計滿足條件數對的個數。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim m As Integer, n As Integer Dim r As Integer, k As Integer For a = 1 To 49 _b=99-a_ m = a: n = b Do _r=m mod n_ m = n

40、 n = r Loop Until r = 0 If m Mod 3 = 0 Then _k=k+1_ Print a; b End If Next a Print "符合條件的數對個數為" & k & "個" End Sub10 閱讀下列程序，輸出結果是_30 0_。 Private Sub Command1_Click() Dim i As Integer For i = 10 To 1 Step -2 s = s + i Next i Print s,i End Sub11 運行下面的程序，第二行顯示結果是_11 22 33_。 O

41、ption Base 1 Private Sub Form_Click() Dim a, b(), i, j, k a = Array(11, 12, 13, 21, 22, 23, 31, 32, 33) ReDim b(3, 3) Call read(a, b) Call prt(b) End Sub Private Sub read(a, b) For i = 1 To 3 For j = 1 To 3 k = k + 1 b(i, j) = a(k) Next j Next i End Sub Private Sub prt(b) For i = 1 To 3 For j = 1 To

42、 3 p = b(i, j) Mod 3 + 1 q = b(j, i) Mod 3 + 1 Print b(p, q); Next j Print Next i End Sub12 以下程序是求1到1000之間所有能被3整除的數的和，按要求完善程序。 Private Sub Command1_Click() Dim n As Integer, s As Long n = 1 Do While n <= 1000 If n Mod 3 = 0 Then _s=s+n_ _n=n+1_ Loop Print s End Sub13 執行以下程序，單擊命令按鈕后，輸出結果是_0 1 2 3

43、4 5 6 7 8 9 10_。 Private Sub Command1_Click() Dim a(10) As Integer Dim b For i = 1 To 10 a(i) = i Next i For Each b In a Print b; Next b End Sub14 在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框，在文本框中輸入以下字符串: Microsoft Visual Basic Programming 然后編寫如下事件過程: Private Sub Command1_Click() Open "D:TempOut

44、f.Txt" For Output As #1 For I = 1 To Len(Text1.Text) C = Mid(Text1.Text, I, 1) If C >= "A" And C <= "Z" Then Print #1, Lcase(C); End If Next I Close End Sub程序運行后,單擊命令按鈕后,文件Outf.Txt中的內容是_mvbp_。15 下列程序段的執行結果為_182 2_。 j = 0: n = 5 Do j = (j + 1) * (j + 2) n = n - 1 Loop U

45、ntil n < 3 Print j; n16 設計一個函數，求任意數的階乘。編寫通用函數過程如下，請補充程序。 Public Function f(n As Double) As Double Dim s As Double Dim i As Integer If n < 0 Then Exit Function s=1 For i = 1 To n _s=s*n_ Next i f = s End Function17 1 運行以下程序，單擊命令按鈕后，如果用戶從鍵盤上輸入6、5、4、3、2、1，則窗體上輸出內容為_9_。Private Sub Command1_Click()

46、 Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox("input number") Next i ReDim Preserve a(10) a(10) = a(5) + a(4) Print a(10)End Sub4 有如下程序 a = 100 Do s = s + a a = a + 1 Loop While a > 120 Print a運行后的輸出結果為_101_。5 執行以下程序，單擊命令按鈕后，輸出結果是

47、_。 Private Sub Command1_Click() Dim a(10) As Integer Dim b For i = 1 To 10 a(i) = i Next i For Each b In a Print b; Next b End Sub1 2 3 4 5 6 7 8 9 10執行以下程序，單擊命令按鈕后，如果在彈出的對話框中單擊"是"按鈕，則窗體上的輸出內容是_6_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數據！" & Chr(13) &am

48、p; Chr(10) & "請重新輸入", vbYesNo+ vbCritical, "提示信息") Print a End Sub7 設有數組聲明語句：Dim A(-1 To 2,-1 To 1) As Long，則數組A在內存中所占的字節數為_48_。1 設菜單中有一個菜單項為"Open"。若要為該菜單命令設計訪問鍵，即按下Alt及字母O時，能夠執行"Open"命令，則在菜單編輯器中設置"Open"命令的方式是_。把Caption屬性設置為&Open2 在使用OPEN語句打開

49、文件時，如果省略"for 子句"，則打開的文件存取方式為_隨機存取方式_3 為了建立一個隨機文件，其中每一條記錄由多個不同數據類型的數據項組成，應使用_。記錄類型4 VB 中三種文件訪問的類型為_。順序、隨機、二進制5 如果x是一個正實數，對x的第3位小數四舍五入的表達式是_。0.01*Int(100*(x+0.005)6 Visual Basic 認為下面_D_組變量是同一個變量。Al和A_l Sum和Summary Aver和Average Al和al7 函數Int(Rnd(0)*100)是下列_范圍內的整數。0,998 如果要改變窗體的標題，則需要設置的屬性是_。Ca

50、ption 9 執行下列程序段，輸出結果為 _7 0_。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)10 下列程序段的執行結果為 _0 2 2 3_。Dim 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 jEnd Sub 以下說法中錯誤的是_C_。數組b中的偶數被保存在數組c中如果輸入的數據大于10，則窗體上不

51、顯示任何信息GetArray過程的參數n 是按值傳送的程序運行結束時，在窗體上顯示的是c數組中元素的個數15 以下敘述中錯誤的是_B_Visual Basic 是事件驅動型可視化編程工具Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性Visual Basic應用程序不具有明顯的開始和結束語句Visual Basic中控件的某些屬性只能在運行時設置16 以下有關對象屬性的說法中錯誤的是_B_。所有的對象都具有 Name（名稱）屬性Enabled屬性值設為False的控件對象在窗體上將不可見對象的某些屬性只能在設計時設定，不能使用代碼改變只能在執行時設置或改變的屬性為執行時屬性17 在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是_C_。工程資源管理器窗口 屬性窗口代碼窗口工具箱窗口 20 有程序段如下： For i = 1 To 3 For j = 5 To i Step -1 Print