A)1  1  1  1  1     
  1  1  1  1  1      
  1  1  1  1  1       
  1  1  1  1  1        
  1  1  1  1  1 
B) 1
        1
           1
              1        
                  1
C)1  0  0  0  0     
  0  1  0  0  0
  0  0  1  0  0
  0  0  0  1  0
  0  0  0  0  1
D) 1  1  1  1  1
【命題目的】考查考生對循環結構的掌握。
【解題要點】程序以矩陣格式輸出一個二維數組，由程序可知，數組的主對角線上的元素賦值為1，其他元素未賦值，初值為0。所以輸出結果如選項C）所示。
【考點鏈接】Do…Loop循環結構。
(26) 以下屬于Visual Basic中合法的數組元素的是
A) K8       
B) k［8］
C) k(0)       
D) k［8］
【命題目的】考查考生對數組知識的掌握。
【解題要點】數組元素的正確引用。
【錯解分析】在Visual Basic中，數組元素一般形式為x(整數），括號中的整數是一個確定值，而且數組名x后的圓括號不能省去，也不能由其他的括號代替，所以正確答案是選項C）。
【考點鏈接】控件數組的引用。
(27) Sub過程與Function過程最根本的區別是
A) Sub過程的過程不能返回值，而Function過程能返回值
B) Function過程可以有形參，Sub過程不可以
C) Sub過程可以使用Call語句直接使用過程名調用，而Function過程不可以
D) 兩種過程參數的傳遞方式不同
【命題目的】考查考生對函數和過程的理解。
【解題要點】在Visual Basic中有兩類過程，一類是系統提供的內部函數和事件過程；另一類是用戶根據自己的需要定義的，供事件過程的多次調用。在第二類過程中，涉及最多的是子過程。它們的共同點都是完成某種特定功能的一組程序代碼；不同的是函數是可以直接返回值的特殊過程，所以函數過程定義時有返回值的類型說明。
兩者最大的區別就是Sub過程的過程不能直接返回值，而Function過程能直接返回值。
【考點鏈接】函數和過程的定義及引用。
(28) 單擊命令按鈕時，下列程序的執行結果是
Private Sub Command1_Click()
   Dim a As Integer, b As Integer, c As Integer
   a=3
   b=4
   c=5
   Print SecProc(c, b, A)
End Sub
Function FirProc(x As Integer, y As Integer, z As Integer)
   FirProc=2 * x + y + 3 * z+2
   End Function
   Function SecProc(x As Integer, y As Integer, z As Integer)
      SecProc=FirProc(z, x, y) + x+7
   End Function
A) 20       
B) 25
C) 37       
D) 32
【命題目的】考查考生對函數調用的應用。
【解題要點】此題程序代碼中用了兩層調用，我們對這樣的問題要多加小心，不能掉以輕心，千萬不要把實參和相對應的形參弄混淆。主調過程Command1_Click輸出的是SecProc(c, b, a）的返回值，調用過程SecProc時，主調過程分別把實參c、b、a地址傳給形參x、y、z，此時在過程SecProc中，SecProc＝FirProc(a，c，b) ＋7。由此看出，程序段執行此語句時，將調用過程FirProc。把實參a，c，b的地址分別傳給形參x、y、z，此時在過程FirProc中，FirProc = 2 * x + y + 3 * z+2，所以FirProc(a，c，b）＝6+4+15+2＝27，SecProc(a，c，b）＝27+3+7＝37。
【考點鏈接】過程的定義和調用。

(29) 有如下事件過程：
Function UNC (ByVal x As Integer, ByVal y As Integer) As Integer
   Do While y <> 0
      sic=x / y
      x=y
      y=sic
   Loop
   UNC=x
End Function
以下是該函數的調用過程，該程序的運行結果是
Private Sub Command1_Click()
   Dim a As Integer
   Dim b As Integer
   a=12
   b=2
   x=UNC (a, b)
   Print x
End Sub
A) 0        
B) 6
C) 2        
D) 80
【命題目的】考查考生對函數的定義和調用的運用。
【解題要點】本題考查函數調用和輸出格式的語句。調用UNC的過程如下：
x=12,y=2時，sic=6,x=2,y=6；
x=2,y=6時，sic=0,x=6,y=0；
y=0，所以跳出循環，輸出x＝6并結束程序。
【考點鏈接】過程的定義和調用。
(30) 有如下程序：
Private Sub Command1_Click()
   Dim k As Integer, m As Integer
   Dim op As Integer
   k=4: m=1
   op=PPC(k, m) : Print op;
   op=PPC (k, m) : Print op
End Sub
Private Function PPC (a As Integer, b As Integer)
   Static m As Integer, i As Integer
   m=0: i=2
   i=i + m + 1
   m=i + a + b
   PPC=m
End Function
程序運行后，輸出的結果為
A) 4  6       
B) 6   6
C) 8  8       
D) 10  12
【命題目的】考查考生對函數及函數參數的運用。
【解題要點】在Sub過程中，程序段先定義了3個Integer型變量k，m，op，并給k賦給初值4，m的初值為1，然后調用事件過程PPC，并將它的值賦給op；在事件過程PPC中定義了兩個形參，參數的傳送是通過引用實參，即將k，m的地址作為a，b的地址；在PPC中，將m，I定義為靜態變量，第一次調用后的值仍然保留，但是m，I分別都有賦值語句，將它們的值變為0，2，所以返回值不變。
【考點鏈接】過程的定義和調用，以及參數傳遞方式的選擇。