一、程式題
1.寫出下面程式的執行結果(10分)
1. Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程式執行後，單擊命令按鈕，如果輸入3，則在窗體上顯示的內容是:
2. Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next i
Print s
End Sub
單擊命令按鈕後，程式的執行結果為：
1、6
2、9
二、填空題
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
當在Command1按鈕上單擊，該程式的輸出結果是( )
(A)12 (B)13 (C)14 (D)15
2. 設有如下通用過程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗體上畫一個名稱為Text1的文字框和一個名稱為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)
= n
End Sub
程式執行後，單擊命令按鈕，在文字框中顯示的內容為( )
(A)10 (B)15 (C)25 (D)24
3. 要為工程新增一個過程，可執行“( )”選單中的“新增過程”
(A)檔案 (B)檢視 (C)工程 (D)工具
4. 以一關於鍵盤事件中，敘述錯誤的是( )
(A) 在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的KeyCode)
(B) 在KeyUp和KeyDown事件過程中，將鍵盤上的“1”和右側小鍵盤上的“1”視作不同的數字(即具有不同的KeyCode)
(C) KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放
(D) KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放
5. 以下關於選單的敘述中錯誤的是( )
(A) 在同一個窗體的選單項中，不允許出現標題相同的選單項
(B) 在選單的標題欄中，“&”所引導的字母指明瞭訪問該選單項的鍵盤訪問鍵
(C) 程式執行過程中，可以重新設定選單的“Visual”屬性
(D) 彈出式選單也在選單編輯器中定義
6. 有一個選單項名為Menu123，若想在程式執行的過程中選中該選單項，即在該選單項前面顯示“√”，可執行下面的( )語句
(A)led = True (B)led = False
(C)ked = True (D)ked = False
7. 可通過“開啟”對話方塊的( )屬性設定對話方塊中所顯示檔案的型別
(A)FileName (B)Filter (C)FilterIndex (D)InitDir
8. 以一關於通用對話方塊控制元件的敘述中錯誤的是( )
(A) 在程式執行時，通用對話方塊控制元件是不可見的
(B) 在同一個程式中，用不同的方法(如ShowOpen或ShowSave等)開啟的通用對話方塊具有不同的作用
(C) 呼叫通用對話方塊控制元件的`ShowOpen方法，可以直接開啟在該通用對話方塊中指定的檔案
(D) 呼叫通用對話方塊控制元件的ShowColor方法，可以開啟顏色對話方塊
9. 在顯示顏色對話方塊之前必須設定( )屬性，否則將發生不存在字型的錯誤
(A)FontName (B)FontSize (C)Max (D)Flags
10. 以一敘述中錯誤的是( )
(A) 一個工程中只能有一個Sub Main過程
(B) 窗體的Show方法的作用是將指定的窗體裝入記憶體並顯示該窗體
(C) 窗體的Hide方法和Unload方法的作用完全相同
(D) 若工程檔案中有多個窗體，可以根據需要指定一個窗體為啟動窗體
