【正文】 Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu popForm End If End Sub 則以下描述中錯誤的是 A) 該過程的功能是彈出一個菜單 B) popForm 是在菜單編輯器中定義的彈出式菜單的名稱 C) 參數 X、 Y 指明鼠標的當前位置 D) Button=2 表示按下的是鼠標左鍵 (22) (22) 以下能夠正確計算 n!的程序是 A) Private Sub Command1_Click() n=5:x=1 Do x=x*i i=i+1 Loop While in Print x End Sub B) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While in Print x End Sub C) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i=n Print x End Sub D) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While in Print x End Sub (23) (23) 在窗體上畫一個名稱為 Command1 的命令按鈕，再畫兩個名稱分別為 LabelLabel2 的標簽，然后編寫如下程序代碼： Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call Proc(X,Y) = X =Y End Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序運行后，單擊命令按鈕，則兩個標簽中顯示的內容分別是 A） 5 和 3 B） 25 和 3 C） 25 和 6 D） 5 和 6 (24) (24) 有窗體上畫一個名稱為 Command1 的命令按鈕，一個名稱為 Label1 的標簽，然后編寫如下事件過程 : Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i1 If x Mod 3=0 Then s=s+1 Next i =s End Sub 程序運行后，單擊命令按鈕，則標簽中顯示的內容是 A) 1 B) 5 C) 27 D) 45 (25) (25) 在窗體上畫一個名稱為 Command1 的命令按鈕和三個名稱分別為 LabelLabel Label3 的標簽，然后編寫如下代碼 Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z =x =y =z End Sub 運行程序，連續(xù)三次單擊命令按鈕后，則三個標簽中顯示的內容分別是 A) 10 10 10 B) 30 30 30 C) 30 30 10 D) 10 30 30 (26) (26) 設在窗體上有一個名稱為 Command1 的命令按鈕，并有以下事件過程 Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) ?? End Sub 此過程的功能是把數組 b 中的 5 個數逆序存放（即排列為 9,7,5,3,1）。單擊命令按鈕時，執(zhí)行如下事件過程 : Private Sub Command1_Click() a$=software and hardware b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,b$,c$,1 End Sub 則在彈出的信息框的標題欄中顯示的信息是 A) software and hardwar B) software C) hardware D) 1 (8) (8) 執(zhí)行如下語句 a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5) 將顯示一個輸入對話框，在對話框的輸入區(qū)中顯示的信息是 A) Today B) Tomorrow C) Yesterday D) Day before Yesterday (9) (9) 表示滾動條控件取值范圍最大值的屬性是 A) Max B) LargeChange C) Value D) MaxMin (10) (10) 在窗體上畫一個名稱為 List1 的列表框，一個名稱為 Label1 的標簽。當雙擊列表框中的某個項目時，在標簽 Label1 中顯示所選中的項目，如圖所示。 (7) 在窗體上畫一個命令按鈕，其名稱為 Command1，然后編寫如下程序： Function M(x As Integer,y As Integer)As Integer M=IIf(xy,x,y) End Function Private Sub mand1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b) End Sub 程序運行后，單擊命令按鈕，輸出結果為 [12] 。請在 [8] 和 [9] 處填入適當的內容，將程序補充完整。當向文框中輸入任何字符時，命令按鈕 Command1 變?yōu)榭捎?。程序運行后，在 Text Text2 中輸入兩個數值，選中一個單選按鈕后單擊命令按鈕，相應的計算結果顯示在 Label4，程序運行情況如圖所示。 (1) 在窗體上 畫兩個標簽，其名稱分別為 Label1 和 Label2,Caption 屬性分別為“數值”及空白；然后畫一個名稱為 Hscoll1 的水平滾動條，其 Min 的值為 0， Max 的值為 100?！彼龑У淖帜钢该髁嗽L問該菜單項的訪問鍵 C) 程序運行過程中，可以重新設置菜單的 Visible 屬性 D) 彈出式菜單也在菜單編輯器中定義 (28) 設在菜單編輯器中定義了一個菜單項，名為 menu1。 Next End Sub 程序運行后，單擊窗體，則在窗體上顯示的是 A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4 (22) 下列敘述中正確的是 A) 在窗體的 Form_Load 事件過程中定義的變量是全局變量 B) 局部變量的作用域可以超出所定義的過程 C) 在某個 Sub 過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作用域只限于該過程 D) 在調用過程時，所有局部變量被系統(tǒng)初始化為 0 或空字符串 (23) 在窗體上畫一個命令按鈕，名稱為 Command1。要求程序運行時，“宋體”單選按鈕和“粗體”復選框被選中 (窗體外觀如下圖 ) ，則能夠實現上述要求的 語句序列是 A) =True B) =True =False =True C) =False D) =True =True =1 (14) 為了在按下 Esc 鍵時執(zhí)行某個命令按鈕的 Click 事件過程，需要把該命令按鈕的一個屬性設置為 True，這個屬性是 A) Value B) Default C) Cancel D) Enabled (15) 在窗體上畫一個命令按鈕，名稱為 Command1。 全國計算機等級考試二級筆試試卷 Visual Basic 語言程序設計 (考試時間： 90 分鐘，滿分 100 分 ) 二００二年八月 一、選擇題 (每題 2 分，共 70 分 ) 下列各題 A) 、 B) 、 C) 、 D) 四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。程序為： Private Sub Timer1_ () =Time End Sub 在下劃線上應填入的內容是 A) Enabled B) Visible C) Interval D) Timer (13) 在窗體上畫兩個單選按鈕，名稱分別為 Option Option2，標題分別為“宋體”和“黑體”；一個復選框，名稱為 Check1,標題為“粗體”；一個文本框，名稱為 Text1， Text屬性為“改變文字字體”。 Next j Print Next j End Sub 程序運行后，單擊命令按鈕，窗體上顯示的是 A) 123 B) 234 C) 147 D) 123 246 345 258 456 369 456 369 789 (21) 設有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5i)。能夠正確實現上述功 能的代碼是 A) Private Sub Command1_Click() x=InputBox(“請輸入整數” ) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function B) Private Sub Command1_Click() x=InputBox(“請輸入整數” ) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function C) Private Sub Command1_Click() x=InputBox(“請輸入整數” ) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function D) Private Sub Command1_Click() x=InputBox(“請輸入整數” ) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function (24) 在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框，然后編寫如下程序： Private Sub Command1_Click() Dim x,y,z As Integer x=5 y=7 z=0 =“” Call P1(x,y,z) =Str(x) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序運行后，如果單擊命令按鈕，則在文本框中顯示的內容是 A) 0 B) 12 C) Str(z) D) 沒有顯示 (25) 以下敘述中錯誤的是 A) 如果過程被定義為 Static 類型，則該過程中的局部變量都是 Static 類型 B) Sub 過程中不能嵌套定義 Sub 過程 C) Sub 過程中可以嵌套調用 Sub 過程 D) 事件過程可以像通用過程一樣由用戶定義過程名 (26) 以下敘述中錯誤的是 A) 在 KeyUp 和 KeyDown 事件過程中，從鍵盤上輸入 A 或 a 被視作相同的字母 (即具有相同的 KeyCode) B) 在 KeyUp 和 KeyDown 事件過程中，將鍵盤上的“ 1”和右側小鍵盤上的“ 1”視作不同的數字 (具有不同的 KeyCode) C) KeyPress 事件中不能識別鍵盤上某個鍵 的按下與釋放 D) KeyPress 事件中可以識別鍵盤上某個鍵的按下與釋放 (27) 以下敘述中錯誤的是 A) 在同一窗體的菜單項中，不允許出現標題相同的菜單項 B) 在菜單的標題欄中，“ amp。下列能夠完成該操作的事件過程是 A) Private Sub Command1_C