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