华南俳烁实业有限公司

1．       有如下程序：

Private Function func(ByVal a As Integer, ByVal b As Integer)

  func = a + b

End Function

Private Sub Command1_Click( )

  Dim x As Integer, y As Integer

  Dim z As Integer, r As Integer

  x = 2 : y = 5 : z = 8

  r = func(func(x,y),z)

  Print r

End Sub

當(dāng)在Command1按鈕上單擊，該程序的輸出結(jié)果是（　　　）

（A）12                  （B）13               �。–）14                         （D）15

2．       設(shè)有如下通用過程：

Public Sub Fun(a( ), ByVal x As Integer)

  For i = 1 To 5

x = x + a(i)

            Next

         End Sub

在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：

         Private Sub Command1_Click( )

            Dim art(5) AsVariant

            For i = 1 To 5

              art(i) = i

            Next i

            n = 10

            Call Fun(art( ), n)

            Text1.Text = n

         End Sub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的內(nèi)容為（　　　）

（A）10                  （B）15                      （C）25                      （D）24

3．       要為工程添加一個(gè)過程，可執(zhí)行“（　　�。�”菜單中的“添加過程”

（A）文件               （B）視圖                   （C）工程                   （D）工具

4．       以一關(guān)于鍵盤事件中，敘述錯(cuò)誤的是（　　�。�

（A）       在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母（即具有相同的KeyCode）

（B）       在KeyUp和KeyDown事件過程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作不同的數(shù)字（即具有不同的KeyCode）

（C）       KeyPress事件中不能識(shí)別鍵盤上某個(gè)鍵的按下與釋放

（D）       KeyPress事件中可以識(shí)別鍵盤上某個(gè)鍵的按下與釋放

5．       以下關(guān)于菜單的敘述中錯(cuò)誤的是（　　　）

（A）      在同一個(gè)窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)

（B）      在菜單的標(biāo)題欄中，“&”所引導(dǎo)的字母指明了訪問該菜單項(xiàng)的鍵盤訪問鍵

（C）     程序運(yùn)行過程中，可以重新設(shè)置菜單的“Visual”屬性

（D）     彈出式菜單也在菜單編輯器中定義

6．       有一個(gè)菜單項(xiàng)名為Menu123，若想在程序運(yùn)行的過程中選中該菜單項(xiàng)，即在該菜單項(xiàng)前面顯示“√”，可執(zhí)行下面的（　　�。┱Z句

（A）Menu123.Enabled = True                 （B）Menu123.Enabled = False