一、程序題
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) 若工程檔案中有多個窗體,可以根據需要指定一個窗體爲啓動窗體