37

1.下列敘述中正確的是

A.數據結構中的數據元素可以是另一種數據結構

B.數據結構中的數據元素只能是另一種線性結構

C.數據結構中的數據元素只能是另一種非線性結構

D.以上說法均不正確

2.設數據元素集合為{A，B，C，D，E，F}，下列關系為線性結構的是

A.R={ (D,F),(E,C),(B,C),(A,B),(C,F) }

B.R={ (D,E),(E,A),(B,C),(A,B),(C,F) }

C.R={ (A,B),(C,D),(B,A),(E,F),(F,A) }

D.R={ (D,E),(E,A),(B,C),(F,B),(C,F) }

3.設棧的存儲空間為S(1:m)，初始狀態為top=m+1。經過一系列入棧與退棧操作后，top=m�，F又在棧中退出一個元素后，棧頂指針top值為

A.m+1

B.0

C.m-1

D.產生�？斟e誤

4.設循環隊列存儲空間為Q(1:50)。初始狀態為front=rear=50。經過一系列入隊和退隊操作后，front=14，rear=19，則該循環隊列中的元素個數為

A.46

B.45

C.6

D.5

5.設二叉樹中共有15個結點，其中的結點值互不相同。如果該二叉樹的前序序列與中序序列相同，則該二叉樹的深度為

A.15

B.6

C.4

D.不存在這樣的二叉樹

6.下列各組的排序方法中，最壞情況下比較次數相同的是

A.冒泡排序與快速排序

B.簡單插入排序與希爾排序

C.堆排序與希爾排序

D.快速排序與希爾排序

7.單元測試主要涉及的文檔是

A.編碼和詳細設計說明書

B.確認測試計劃

C.需求規格說明書

D.總體設計說明書

8.下列關于數據庫系統的敘述中正確的是

A.數據庫的數據項之間無聯系，記錄之間存在聯系

B.數據庫中只存在數據項之間的聯系

C.數據庫的數據項之間以及記錄之間都存在聯系

D.數據庫的數據項之間以及記錄之間都不存在聯系

9.設有三張表，客戶（客戶號，姓名，地址），產品（產品號，產品名，規格，進價），購買（客戶號，產品號，價格），其中表客戶和表產品的關鍵字（鍵或碼）分別為客戶號和產品號，則表購買的關鍵字為

A.客戶號，產品號

B.客戶號

C.產品號

D.客戶號，產品號，價格

10.

A.(b,e, 1,2)

B.(c,c,11,4)  

C.(a,a,2,2)

D.空

11.Visual Basic窗體設計器的主要功能是(  )。

A.畫圖

B.編寫源程序代碼

C.建立用戶界面

D.顯示文字

12.程序運行時，當用鼠標點擊滾動條兩端的箭頭按鈕時，不會產生的結果是(  )。

A.改變Value屬性的值

B.激活Scroll事件

C.激活Change事件

D.滾動框移動

13.已知文本框Text1中輸入了一篇英文短文，并編寫了如下程序段：

   Str_x = Text1.Text

   n = Len(Str_x)

   m = 0

   t = 0

   For i = 1 To n

      w = UCase(Mid(Str_x, i, 1))

      If w >= "A" And w <= "Z" Then

         If t = 0 Then m = m + 1

         t = t + 1

      Else

        t = 0

      End If

   Next

   Print m

該程序段的功能為統計并輸出英文短文中(  )。

A.首字母大寫的單詞的個數

B.大寫字母的個數

C.字母的個數

D.單詞的個數

14.設窗體上有文本框Text1和命令按鈕Command1，并編寫了下面的過程：

Private Sub Command1_Click()

    ch$ = ""

    x% = Val(Text1.Text)

    k = 2

    For k = 2 To x / 2

        If x Mod k = 0 Then

            ch = ch & " " & k

        End If

    Next k

    Print ch

End Sub

程序運行后，在文本框中輸入28，單擊命令按鈕，則輸出是(  )。

A.2  4  7  14

B.14  7  4  2

C.2  4  6  8  10  12  14

D.1  3  5  7  9  11  13

15.設有如下程序代碼：

Dim a%

Public b%, c%

Private Sub Form_Click()

    Dim b%

    Print a; b; c

End Sub

Private Sub Form_Load()

    Dim a%

    a = 5

    b = 8

    c = 10

End Sub

運行程序時單擊窗體，則在窗體上顯示的是(  )。

A.0  0  10

B.0  8  10

C.5  8  10 

D.5  0  10

16..設有以下程序片段：

Public x%

Private y$

Private Sub Command1_Click()

    Dim a

    ……

End Sub

Private Sub Command2_Click()

    Static b

    ……

End Sub

在Command1_Click過程中無法訪問的變量是(  )。

A.a

B.b

C.x

D.y

17.設有如下程序段：

Dim x As Integer

x = Val(InputBox("輸入變量x的值"))

Select Case x

   Case ________________

       Print "*"

   Case Else

       Print "#"

End Select

以上程序段的功能是，當變量x的值在5到10之間，或者大于20時，輸出“*”，其它情況輸出“#”，則程序中橫線處應填入的內容是(  )。

A.5 To 10, Is>20

B.5-10 Or x>20

C.x>= 5 And x <= 10 Or x > 20

D.5 To 10: x>20

18.編寫如下程序代碼：

Private Sub Command1_Click()

   s = "Visual Basic"

   x = Left(s, 1)

   For i = 2 To Len(s)

      z = Mid(s, i, 1)

      If z > x Then x = z

   Next i

   Print x

End Sub

程序運行后，單擊命令按鈕Command1，輸出結果為(  )。

A.a

B.V

C.s

D.u

19.設a、b、c為整型變量，其值分別為4、5、6。以下程序段的輸出結果是(  )。

a = b: b = c: c = a

Print a; b; c

A.5  6  4

B.4  5  6

C.5  6  5

D.6  5  4

20.Visual Basic數據類型中，占用內存最小的是(  )。

A.Integer         

B.Boolean         

C.Single          

D.Byte

21.當復選框的Value屬性值為1時，表示(  )

A.該復選框不可用

B.該復選框不可見

C.沒有選中該復選框 

D.選中該復選框

22.在窗體上畫一個名稱為List1的列表框和一個名稱為Text1的文本框，然后編寫如下兩個事件過程：

Private Sub Form_Load()

    List1.AddItem "100"

    List1.AddItem "200"

    List1.AddItem "300"

    List1.AddItem "400"

    Text1.Text = ""

End Sub

Private Sub List1_DblClick()

    a = List1.Text

    Print a + Text1.Text

End Sub

程序運行后，在文本框中輸入"500"，然后雙擊列表框中的"400"，則輸出結果為(  )。

A.400500

B.500400

C.900

D.0

23.在窗體上畫一個文本框（名稱為Text1）和一個標簽（名稱為Label1），程序運行后，在文本框中每輸入一個字符，都會立即在標簽中顯示文本框中字符的個數。以下可以實現上述操作的事件過程是(  )。

A. Private Sub Text1_Change()

        Label1.Caption = Str(Len(Text1.Text))

     End Sub

B.Private Sub Text1_Click()

        Label1.Caption = Str(Len(Text1.Text))

     End Sub

C.Private Sub Text1_Change()

        Label1.Caption = Text1.Text

     End Sub

D.Private Sub Label1_Change()

        Label1.Caption = Str(Len(Text1.Text))

     End Sub

24.以下敘述中，錯誤的是(  )

A.在設計階段不能調整通用對話框控件的大小

B.當文本框失去焦點時，觸發其LostFocus事件

C.可以將計時器控件的Enabled屬性設置為False，使其不能自動觸發Timer事件

D.如果文本框的TabStop屬性值為False，則不能接收從鍵盤上輸入的數據

25.以下關于圖片框控件的說法中，正確的是(  )。

A.清空圖片框控件中圖形的方法之一是將其Picture屬性的值設置為Null

B.可以通過調用圖片框的Print方法在圖片框中輸出文本

C.為使圖像能自動適應圖片框的大小，應將圖片框的Stretch屬性設置為False

D.用cls方法可以清除圖片框中裝入的圖片

26.當復選框控件被選中（即復選框控件內顯示“√”標記）時，其Value屬性的值為(  )

A.0

B.1

C.True 

D.False

27.對于復選框來說，Value屬性可以設置為0、1或2。其中1表示選中該復選框。故B選項正確

A. Combo1.RemoveItem Combo1.ListCount-1

B.Combo1.RemoveItem Combo1.Index

C.Combo1.RemoveItem 3

D.Combo1.RemoveItem Combo1.ListIndex

28.設有一名稱為txtName的文本框，則下列能使其具有輸入焦點的語句是(  )

A.Focus=True

B.txtName.SetFocus=True

C.txtName.SetFocus  

D.txtName=SetFocus  

29.編寫如下程序代碼：

Private Sub Command1_Click()

   Const n = 5

   Dim arrx(n) As Integer

   For i = 1 To 5

      arrx(i) = i * i

   Next i

   Call swap(arrx(), n)

   For i = 1 To n

      Print arrx(i);

   Next

End Sub

Public Sub swap(a() As Integer, k As Integer)

   For i = 1 To k / 2

      t = a(i)

      a(i) = a(k - i + 1)

      a(k - i + 1) = t

   Next

End Sub

程序運行后，單擊命令按鈕Command1，輸出結果為(  )。

A.1   4   9   4   1  

B.4   1   9   25   16

C.1   4   9   16   25    

D.25   16   9   4   1

30.如果在過程A中用語句：Call proc(a, b) 調用下面的過程

Private Sub proc(b As Integer, ByVal a As Integer)

    a = a + 1

    b = b * 2

End Sub

則調用結束后的結果是(  )。

A.過程A中變量b的值變為原有值的2倍

B.過程A中變量a的值變為原有值的2倍

C.過程A中變量a的值變為原有值的2倍，b的值等于原有值加1

D. 過程A中變量b的值變為原有值的2倍，a的值等于原有值加1

31.以下Case子句中錯誤的是(  )。

A. Case Is > 10 And Is < 50 

B.Case Is > 10

C.Case 0 To 10

D.Case 3, 5, Is > 10

32.設在程序開始處有語句：Option Base 0，則下面定義的數組中正好有12個元素的是(  )。

A.Dim s%( 3 , 2 )

B.Dim a%( 12 )

C.Dim s%( 3 , 4 )

D.Dim a%( -6 To 6 )

33.在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫以下程序代碼：

Private Sub sub1(ByRef d(), ByRef m1 As Integer)

  Dim i As Integer

  m1 = d(LBound(d))

  For i = LBound(d) + 1 To UBound(d)

    If m1 < d(i) Then m1 = d(i)

  Next i

End Sub

Private Sub Command1_Click()

  Dim n1 As Integer

  n1=-1

  Dim data()

  data = Array(10, 20, -20, 50, 15, -5)

  Call sub1(data(), n1)

  Text1.Text = n1

End Sub

程序運行過程中，當單擊命令按鈕Command1時，則在文本框Text1中顯示的結果為(  )。

A. -5

B. -1

C.0

D.50

34.有以下程序代碼：

Private Sub Command1_Click ()

    Print fun(10), fun(5)

End Sub

Private Function fun(n As Integer) As Integer

    Static t

    For k = 1 To n

        t = t + k

    Next k

    fun = t

End Function

執行Command1_Click過程產生的輸出是(  )。

A.55            15 

B.55            70

C.15            55

D.15            70

35.在窗體上畫1個名稱為CD1的通用對話框，1個名稱為Command1的命令按鈕，編寫如下Click事件過程：

Private Sub Command1_Click()

  CD1.FileName = ""

  CD1.Filter = "所有文件|*.*|所有jpg文件|*.jpg|所有bmp文件|*.bmp"

  CD1.FilterIndex = 2

  CD1.Action = 1

End Sub

關于以上代碼，正確的敘述是(  )。

A.執行以上事件過程，可顯示“打開”文件對話框

B.在出現的對話框中，顯示的是所有擴展名為.bmp的文件

C.語句CD1.Action = 1可以等價地改成語句CD1.ShowSave

D.在出現的對話框中，顯示的是所有擴展名為.bmp的文件

36.設有一名稱為mnuBold的下拉菜單項，程序運行時，希望達到如下效果：當第一次單擊該菜單項時，其標題左側顯示“√”，當第二次單擊該菜單項時，其標題左側的“√”消失，依此交替進行，...... 。則應在mnuBold_Click事件過程中書寫的語句是(  )。

A.mnuBold.Checked = False

B.mnuBold.Checked = True

C.mnuBold.Checked = Not mnuBold.Checked

D.mnuBold.Checked = IIf(mnuBold.Checked, True, False)

37.下列與鼠標拖放操作無關的是(  )。

A.Drag方法

B.KeyPress事件

C.DragOver事件

D.DragDrop事件

38.在窗體上畫一個名稱為Text1的文本框，然后編寫以下事件過程：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

  If _________________ Then

      Text1.SelStart = 0

      Text1.SelLength = Len(Text1.Text)

  End If

End Sub

要求程序運行時，若輸入焦點在Text1上，按下組合鍵Ctrl+A可以選取Text1內所有的文本，則在橫線處應填入的表達式是(  )。

A.KeyCode = 65 And Shift = 2

B.KeyCode = "A" And Shift = "Ctrl"

C.Text1.KeyCode = 65 And Text1.Shift = 2

D.Text1.KeyCode = "A" And Text1.Shift = "Ctrl"

39.下列關于隨機文件的描述中，錯誤的是(  )。

A.每條記錄的長度必須相同 

B.每條記錄都有一個記錄號

C.數據存取靈活方便，容易修改

D.只能隨機存取

40.以下敘述中錯誤的是(  )。

A.保存程序時，應分別保存窗體文件和工程文件

B.打開一個工程文件時，系統自動裝入與該工程有關的窗體文件

C.一個工程中可以包含一個或多個窗體，但不能包含其他模塊

D.標準模塊文件的擴展名是 .bas ，工程文件的擴展名是 .vbp

1.A  數據元素是一個含義很廣泛的概念，它是數據的“基本單位”，在計算機中通常作為一個整體進行考慮和處理。

數據元素可以是一個數據也可以是被抽象出的具有一定結構的數據集合，所以數據結構中的數據元素可以是任何一種數據結構，包括線性結構和非線性結構。故A選項正確

2.B  一個非空的數據結構如果滿足以下兩個條件：有且只有一個根結點；每一個結點最多有一個前件，也最多有一個后件，那么該數據結構稱為線性結構，也稱為線性表。

A選項中，F有兩個前件D、C，屬于非線性結構。B選項中，D為根結點，線性表為DEABCF。C選項中，A有兩個前件B、F，屬于非線性結構。D選項中，有兩個根結點D、B，屬于非線性結構。故B選項正確

3.A  棧是一種特殊的線性表，它所有的插入與刪除都限定在表的同一端進行。入棧運算即在棧頂位置插入一個新元素，退棧運算即是取出棧頂元素賦予指定變量。

題目中初始狀態為top=m+1，可知入棧棧頂指針top=top-1, 出棧棧頂指針top=top+1，由于棧長為m，當top=m時，棧中還有一個元素，即top指針所指向的元素，再出棧一個元素后top指向棧底，�？�，此時top=m+1。

故選A選項

4.D  循環隊列是隊列的一種順序存儲結構，用隊尾指針rear指向隊列中的隊尾元素，用排頭指針指向排頭元素的前一個位置，因此，從排頭指針front指向的后一個位置直到隊尾指針rear指向的位置之間所有的元素均為隊列中的元素。

隊列初始狀態為front=rear=50，當front=14，rear=19時，隊列中有19-14=5個元素。故選D選項

5.A  二叉樹遍歷可以分為3種：前序遍歷（訪問根結點在訪問左子樹和訪問右子樹之前）、中序遍歷（訪問根結點在訪問左子樹和訪問右子樹兩者之間）、后序遍歷（訪問根結點在訪問左子樹和訪問右子樹之后）。

由結點值互不相同而前序序列與中序序列相同可知，該二叉樹所有的結點都沒有左子樹，所以15個結點的二叉樹深度為15。

故選A選項

6.A  對長度為n的線性表排序，下表為常用排序方法時間復雜度：

方法	平均時間	最壞情況時間
冒泡排序	O(n2)	O(n2)
直接插入排序	O(n2)	O(n2)
簡單選擇排序	O(n2)	O(n2)
快速排序	O(nlog2n)	O(n2)
堆排序	O(nlog2n)	O(nlog2n)

上表中未包括希爾排序，因為希爾排序的時間效率與所取的增量序列有關，如果增量序列為：d₁=n/2, d_i+1=d_i/2，在最壞情況下，希爾排序所需要的比較次數為O(n^1.5)�？芍�冒泡排序與快速排序最壞情況下比較次數相同。故選A選項

7.A  單元測試也稱模塊測試，是對模塊進行正確性的檢驗，以期盡早發現各模塊內部可能存在的各種錯誤。

通常單元測試在編碼階段進行，單元測試的依據除了源程序以外還有詳細設計說明書。

故選A選項

8.C  數據庫中的聯系是指實體之間的對應關系，它反映現實世界事物之間的相互關聯。數據庫中數據項之間以及記錄之間都存在著聯系。故選C選項

9.A  候選鍵（碼）是二維表中能唯一標識元組的最小屬性集。

由于表客戶和表產品的關鍵字分別為客戶號和產品號，即客戶號可以唯一標識客戶，而產品號可以唯一標識產品，則表購買需要屬性客戶號與屬性產品號兩者來共同標識，即能唯一標識購買的最小屬性集為（客戶號，產品號），故表購買的關鍵字為（客戶號，產品號）。故選A選項。

N200030380)

10.A  表示針對元組進行的選擇運算， “A<>B”表示選擇A、B兩個屬性中不相同的元組，D>=2表示選擇屬性D中元素不小于2的元組，關系“”表示選擇兩個條件同時成立的元組。滿足條件的元組只有(b e 1 2)。故選A選項。

11.C  Visual Basic窗體設計器簡稱窗體(Form)，是應用程序最終面向用戶的窗口，它對應于應用程序的運行結果。各種圖形、圖像、數據等都是通過窗體或窗體中的控件顯示出來的，在設計應用程序時，窗體就像是一塊畫布，在這塊畫布上可以畫出組成應用程序的各個構件。故C選項正確。

12.B  對滾動條的操作一般就是移動，滾動條事件有Scroll事件和Change事件，故選項A、C和D均正確；本題正確答案為B

13.D  在變量Str_x中存放文本框中輸入的一篇英文短文，通過Len函數獲得短文的長度，并將其長度賦值給變量n。在外層For循環中，循環變量i從1開始到n結束。表達式Mid(Str_x，i，1)依次截取字符串Str_x中第i個字符，然后通過大寫轉換函數UCase轉換成大寫字母賦值給變量w。緊接著判斷變量w中存放的字符是否為英文字母，若是，則通過變量t判斷該字符是否為該單詞的第一個字符，若是第一個字符，則計數器變量m加1。程序最終的功能是統計一篇英文短文中單詞的個數，故選項D正確。

14.A  首先程序通過轉換函數Val將文本框中輸入的字符轉換為數值，即變量x的值為28。For循環中，循環變量k的初始值為2，終止值為14，if語句用來判斷x的值是否能被k整除，若能被k整除，則將該值作為字符串保存到字符串變量ch中，也就是說通過For循環結構，找出2到14之間能整除28的數，結果為2，4，7，14。故選項A正確。

15.A  程序開頭位置定義了一個模塊級變量a和兩個全局變量b和c，在默認情況下，模塊級變量對該模塊的所有過程都是可見的，但是對其他模塊中的代碼不可見；全局變量的作用于最大，可以在工程的每個模塊、每隔過程中使用。本題中，程序先執行Form_Load()再執行Form_Click() 函數。當程序加載時先為變量賦初值，在Form_Load事件中，又定義了局部變量a，局部變量的作用于僅限于本過程，出了過程就不復存在了。當局部變量和模塊級變量同名，且作用域發生重疊，局部變量會“屏蔽”模塊級變量，所以在Form_Load過程中，給變量a賦值為5，此處的變量a是局部變量，而不是模塊級變量；b和c也分別賦了值，此時賦的值就是全局變量的值，b=8、c=10。當單擊窗體時，程序執行Form_Click過程，也定義了一個局部變量b，b的初始值為0，與全局變量b同名且作用域發生重疊，局部變量會“屏蔽”全局變量，也就是說在Form_Click過程中，輸出的變量b是局部變量，而變量a和變量c都是全局變量，全局變量a的值為其初始值0，全局變量c的值為10，所以最終輸出的結果為 0 0 10，故選項A正確。

16.B  Command2_Click過程中用Static定義的變量b屬于靜態局部變量，只能在定義的過程中被使用，在其它過程中無法使用和訪問，故B選項正確。

17.A  在Select Case語句中，Case表達式列表可以有3中形式：1）表達式[，表達式]……；2）表達式To表達式；3）Is關系運算表達式；在一個Select Case語句中，3種形式可以混用。故只有A選項正確，選項B、C、D均錯誤。

18.D  Left(s, 1)表示截取字符串s中最左邊1個字符，即x=“V”；Len 英文全稱Length，中文意長度。Len(s)測量字符串長度，函數返回值為12；For循環中，循環變量i初始值為2，終止值為12，每執行一次循環通過表達式“Mid(s, i, 1)”將字符串s中的第i個元素取出來賦值給變量z，再通過if語句判斷z與x的大小，使變量x始終保存較大的元素，也就是說程序的功能為：通過For循環遍歷整個字符串z，找出其中最大的字母，最后輸出。注意：字符的比較其實比較的是字符的ASCII碼，所以字符串s中最大字符為“u”，故D選項正確。

19.C  Print方法可以輸出多個變量的值，各變量用分隔符（逗號、分號或空格）隔開。初始時a=4，b=5，c=6；執行a=b后，a的值為5；執行b=c后，b的值為6；執行c=a后，c的值為5；使用Print方法輸出結果為5；6；5；故C選項正確。

20.D  在Visual Basic中，整數(Integer)占用2個字節；布爾(Boolean)占用2個字節；

單精度浮點型(Single)占用4個字節；字節(Byte)占用1個字節；故D選項正確。

21.D  對于復選框來說，Value屬性可以設置為0、1或2。其中：

10：表示沒有選擇該復選框；1：表示選中該復選框；2：表示該復選框被禁止(灰色)故D選項正確。

22.A  當加載窗體時，首先執行Form_Load()；列表框的Text屬性表示最后一次選中的表項的文本，雙擊列表框中的“400”，表示選中“400”選項，則在List1_DblClick事件中a=“400”，在文本框中輸入“500”，通過“Print a + Text1.Text”輸出“400500”。語句中的“+”為字符串連接符，作用是將兩個字符串連接為一個新串。故本題A選項正確。

23.A  要想實現題中所敘述的功能，必須使用Text1的Change事件，故首先可以排除B、D；選項C，在標簽中顯示的是文本框中的內容而非字符個數。故選項C錯誤。在標簽中顯示文本框中字符的個數可以使用，Label1.Caption= Str(Len(Text1.Text))語句，其中：Len函數可以獲取文本框Text1中所輸入字符的個數，然后通過Str轉換函數，將數字轉換成字符賦值給Label1的Caption屬性，故本題正確答案為A。

24.D  文本框中TabStop屬性用來設置用戶是否可以使用Tab鍵來選定對象，當文本框的Locked屬性值為False，則不能接收從鍵盤上輸入的數據，故D選項錯誤；A、B、C選項均正確。

25.B  將圖片框Picture屬性的值設置為Null并不能清空圖片框控件中的圖形，故A選項錯誤；圖片框是“容器”控件，可以作為父控件，并且可以通過Print方法接收文本，故B選項正確；Stretch屬性用于圖像框，用來自動調整圖像框中圖形內容的大小，而非圖片框，故C選項錯誤；Cls方法可以清除窗體或圖片框中的信息，并將光標移動到對象的左上角(0,0)處，故D選項錯誤。本題正確答案為B。

26.B  對于復選框來說，Value屬性可以設置為0、1或2。其中1表示選中該復選框。故B選項正確

27.A  ListCount屬性列出組合框中表項的數量。組合框中表項的排列從0開始，最后一項的序號為ListCount-1，所以使用表達式“Combo1.RemoveItem Combo1.ListCount-1”可以從組合框中刪除最后一項，故A選項正確。

28.C  SetFocus是文本框中較常使用的方法：格式為：[對象.]SetFocus，該方法可以把輸入光標（焦點）移動到指定的文本框中。故C選項正確。

29.D  Visual Basic允許把數組作為實參傳送到過程中，當用數組作為過程的參數時，使用的是“傳地址”方式。本題中首先在Command1_Click過程中定義一個數組，并通過For循環給數組中的元素賦值，arrx(1)=1；arrx(2)=4；arrx(3)=9；arrx(4)=16；arrx(5)=25；在swap過程中，形參是數組，通過For循環將數組首尾元素交換。當i=1時，t=a(1)=1，a(1)=a(5)=25，a(5)=t=1，a(1)與a(5)交換成功；當i=2時，t=a(2)=4，a(2)=a(4)=16；a(4)=t=4，a(2)與a(4)交換成功。循環執行2次結束，由于是按地址傳遞，主調過程Command1_Click中數組元素的值即發生了交換，數組元素輸出結果為：25   16   9   4   1。故D選項正確。

30.B  用Call語句調用Sub過程。如果形參前面有關鍵字ByVal，則該參數以傳值方式傳送。調用結束后，變量a的值變為原有值的2倍，變量b的值不變。故本題正確答案為B。

31.A  Case表達式列表可以有以下幾種形式：1）以逗號隔開的一組值。故D選項正確。2）以To關鍵字表示的一個范圍。故C選項正確。3）Is 關系運算表達式。當用關鍵字Is定義條件時，只能是簡單的條件，不能用邏輯運算符將兩個或多個簡單條件組合在一起，故A選項錯誤，B選項正確。本題正確答案為A。

32.A  Option Base語句用來指定數組的下標的默認下界，Option Base 0表示數組的默認下標下界為0，A選項中，數組有4行(0~3)、3列(0~2)，共有4×3=12個元素；B選項中，數組共有(0~12)共計13個元素；C選項中，數組有4行(0~3)、5列(0~4)，共有4×5=20個元素；D選項中，數組有(-6~6)共計13個元素；故A選項正確。

33.D  程序的主要功能為：找出數組中的最大值并輸出。首先，在程序中定義一個數組變量data，然后通過Array函數給數組整體賦值。LBound函數返回數組某一維的下界，UBound函數返回數組某一維的上界。在子程序sub1中，通過ByRef方式將數組的首地址及變量n的地址分別傳給形參數組d和變量m1，此時形參數組d和變量m1與實參數組data和變量n1共享相同的地址空間。在Command_Click過程中語句“Call sub1(data( ), n1)”調用子過程sub1，并傳遞參數。在子過程sub1中，LBound(d)=0(數組下標的下界值)，UBound(d) = 5；m1=d(LBound(d))=d(0)=10。程序進入For循環，i從1開始執行到5結束，當i=1時，d(1)=20，10<20為真，m1=d(1)=20；當i=2時，d(2)=-20，20<-20為假；當i=3時，d(3)=50，20<50為真，m1=d(3)=50；當i=4時，d(4)=15，50<15為假；當i=5時，d(5)=-5，50<-5為假。整個程序運行結束，最終m1的值為50，也就是說n1的值為50，程序返回后將n1的值顯示在文本框Text1中，故選項D正確。

34.B  Command1_Click過程中兩次調用fun函數，第一次調用時，將10傳遞給形參n,在fun函數過程中定義了一個靜態變量i，i的初始值為0，并且變量i的結果可以保留。fun函數中For循環的功能是對1到n之間的值進行累加，循環執行10次，t的值為1+2+3+……+10=55，將累加值通過變量t返回到主調過程Command1_Click中進行輸出，結果為55；主調過程Command1_Click第二次調用函數fun，將5傳遞給形參n，此時靜態變量i保留了上次程序執行的結果55，再循環執行5次，t的值為55+1+2+3+4+5=70，將累加結果通過變量t返回到主調過程Command1_Click中進行輸出，結果為70。故選項B正確。

35.A  過程中的“CD1.Action=1”用來建立Open對話框，它與語句“CD1.ShowOpen”等價，故A選項正確，C選項錯誤；Filter屬性用來指定在對話框中顯示的文件類型，用該屬性可以設置多個文件類型，供用戶在對話框的“文件類型”的下拉列表中選擇。FilterIndex屬性用來指定默認的過濾器，其默認值為一整數。過程中的“CD1.FilterIndex = 2”語句用來指定將第二個過濾器作為默認顯示的過濾器，所以在出現的對話框中，顯示的是所有擴展名為.jpg的文件，故B選項錯誤；執行以上代碼，只能打開選中的文件內容，并不能讀取內容，故D選項錯誤。本題正確答案為A。

36.C  動態設置菜單項標記可以使用Checked屬性，該屬性有True和False兩種取值，當Checked屬性為True時，表示菜單項前面有“√”標記；Checked屬性為False時，菜單項前面沒有“√”標記；只有C選項能夠在顯示和消失兩種狀態之間來回切換，故C選項正確。

37.B  KeyPress事件為鍵盤事件，故B選項正確；A、C、D均與鼠標拖放操作有關，故均正確。

38.A  KeyDown事件有兩個參數，即KeyCode和Shift。其中，KeyCode是按鍵實際的ASCII碼，“A”的KeyCode是65；Shift是轉換鍵，它指的是3個轉換鍵的狀態，包括Shift、Ctrl和Alt，這3個鍵分別以二進制表示，每個鍵有3位，即Shift鍵為001，Ctrl鍵為010，Alt鍵為100。當按下Ctrl鍵時，Shift參數的值為010(十進制數2)。故A選項正確。

39.D  隨機文件既可以隨機存取也可以順序存取，故D選項錯誤；A、B、C敘述均正確。

40.C  一個工程中可以包含一個或多個窗體，也能包含多個標準模塊，故C選項錯誤；其它選項敘述均正確。本題答案為C。