(21)為了使文本框同時具有垂直和水平滾動條，應先把MultiLine屬性設置為True，然后再把SemllBars屬性設置為( )。

　　A.0

　　B.1

　　C.2

　　D.3

　　(22)文本框Textl的KeyDown事件過程如下：

　　Private Sub Textl—KeyDown(KeyCode As Integer，Shift As Integer)End Sllb

　　其中參數KeyCode的值表示的是發生此事件時( )。

　　A.是否按下了Alt鍵或Ctrl鍵

　　B.按下的是哪個數字鍵

　　C.所按的鍵盤鍵的鍵碼

　　D.按下的是哪個鼠標鍵

　　(23)窗體上有一個名稱為HSerolll的滾動條，程序運行后，當單擊滾動條兩端的箭頭時，立即在窗體上顯示滾動框的位置(即刻度值)。下面能夠實現上述操作的事件過程是( )。

　　A.Private Sub HSemlll_Change( ) End SubPrint HSemlll.

　　B.Private Sub HScmlll_Change( )Value Print HScrolll.SmallChange End Sub

　　C.Private Sub HScrolll—Scroll( )Print HSerolll.ValueEnd Sub

　　D.Private Sub HScrolll Scroll( )Print HScrolll.SmallChange

　　End Sub

　　(24)若已把一個命令按鈕的Default屬性設置為True，則下面可導致按鈕的Click事件過程被調用的操作是( )。

　　A.用鼠標右鍵單擊此按鈕

　　B.按鍵盤上的Esc鍵

　　C.按鍵盤上的回車鍵

　　D.用鼠標右鍵雙擊此按鈕

　　(25)要使兩個單選按鈕屬于同一個框架，下面三種操作方法中正確的是( )。

　　①冼畫一個框架，再在框架中畫兩個單選按鈕

　　②先畫一個框架，再在框架外畫兩個單選按鈕，然后把單選按鈕拖到框架中

　　③先畫兩個單選按鈕，再畫框架將單選按鈕框起來

　　A.①

　　B.①、②

　　C.③

　　D.①、②、③

　　(26)能夠存放組合框的所有項目內容的屬性是( )。

　　A.Caption

　　B.Text

　　C.List

　　D.Selected

　　(27)設窗體上有一個標簽Labell和一個計時器Timerl，Timerl的Interval屬性被設置為l000，Enabled屬性被設置為True。要求程序運行時每秒在標簽中顯示一次系統當前時間。以下可以實現上述要求的事件過程是( )。

　　A.Private SUb Timed_Timer( )Labell.Caption=TrueEnd Sub

　　B.Private Sub Timerl_Timer( )Labell.Caption=Time$End Sub

　　C.Private Sub Timerl Timer( )labell.Interval=lEnd Sub

　　D.Private Sub Timed_Timer( )For k=1 To Timerl.IntervalLabell.Caption=TimerNext k End Sub

　　(28)窗體上有一個名稱為CD1的通用對話框控件和由四個命令按鈕組成的控件數組Command1，其下標從左到右分別為0.1、2、3，窗體外觀如圖所示。

　　命令按鈕的事件過程如下：

　　Private SUb Command1～Click(Index As Integer)

　　Select Case Index

　　Case 0

　　CD1.Action=l

　　Case l

　　CD1.ShowSave

　　Case 2

　　CD1.Action：5

　　Case 3

　　End

　　End Select

　　End Sub

　　對上述程序，下列敘述中錯誤的是( )。

　　A.單擊“打開”按鈕，顯示打開文件的對話框

　　B.單擊“保存”按鈕，顯示保存文件的對話框.

　　C.單擊“打印”按鈕，能夠設置打印選項，并執行打印操作

　　D.單擊“退出”按鈕，結束程序的運行

　　(29)窗體上有一個名稱為Framel的框架(如圖)，若要把框架上顯示的“Framel”改為漢字“框架”，下面正確的語句是( )。

　　A.Framel.Name=”框架”

　　B.Framel.Caption=”框架”

　　C.Framel.Text=”框架”

　　D.Framel.Value=”框架”

　　(30)在窗體上畫一個名稱為Comb01的組合框，名稱為Textl的文本框，以及名稱為CommanD1的命令按鈕，如圖所示。

　　運行程序，單擊命令按鈕，將文本框中被選中的文本添加到組合框中，若文本框中沒有選中的文本，則將文本框中的文本全部添加到組合框中。命令按鈕的事件過程如下：

　　Privme Sub

　　CommanD1—Click( )

　　If Textl.

　　SelLength<>0

　　ThenElse

　　Comb01.

　　AdD1tem Textl

　　End IfEnd Sub程序中橫線處應該填寫的是( )。

　　A.Comb01.AddItem Textl.Text

　　B.Combol，AddItem Textl.SelStart

　　C.Comb01.AddItem Textl.SelText

　　D.Comb01.Addhem Textl.SelLength

　　(31)窗體上有一個名稱為Textl的文本框，一個名稱為CD1的通用對話框，一個標題為“打開文件”的命令按鈕，如圖所示。

　　命令按鈕的單擊事件過程如下：

　　Private Sub CommanD1—Click( )CD1.

　　ShowOpen

　　Open CD1.

　　FfleName For Input As#1MsgBox CD1.

　　FfleNalne

　　Line Input#1.

　　sTextl.Text=SClose#1

　　End Sub

　　單擊命令按鈕，執行以上事件過程，打開選定的文件，讀取文件的內容并顯示在文本框中，以下敘述中正確的是( )。

　　A.程序沒有錯誤，可以正確完成打開文件、讀取文件中內容的操作

　　B.執行Open命令時出錯，因為沒有指定文件的路徑

　　C.Open語句是錯誤的，應把語句中的For Input改為For.Gutput

　　D.Line Input命令格式錯

　　(32)窗體上有一個如右圖所示的圖形控件，控件中顯示了如圖所示的文字，可以判斷這個圖形控件( )。

　　A.是圖像框(Image)

　　B.是圖片框(PietureBox)

　　C.是形狀控件

　　D.不是上述3種控件中的一種

　　(33)窗體上有一個名稱為Combol的組合框，要求在其編輯區輸入文本并按回車鍵后，編輯區中的文本被添加到列表中。下面能實現這一功能的是( )。

　　A.Private Sub Comlbol—KeyDown(KeyCode As Integer，Shift As Integer)IfKeyCode=13 ThenComb01.AdD1tem Comb01.TextErldⅡEnd Sub

　　B.Private Sub Combol—KeyDown(KeyCode As Integer，Shift As Integer)IfKeyCode=13 ThenComb01.Addhem Textl.Text，EIldIfEnd Sub

　　C.Private Sub Combol—Click( )Comb01.AdD1tem Comb01.Text·End Sub

　　D.Private Sub Combol—Click( )Comb01.Addhem Textl.TextEnd Sub

　　(34)工程文件中包含一個模塊文件和一個窗體文件。模塊文件的程序代碼是：

　　Public x As IntegerPrivate Y As Integer窗體文件的程序代碼是：

　　Dim a As Integer

　　Private Sub Form_Load( )Dim b As Integer

　　a=2：b=3：x=10v=20

　　End Sllb

　　Private Sub CommanD1_Click( )

　　a=a+5：b=b+5：x=x+5：y=Y+5Print a;b;x;Y

　　End Sub

　　運行程序，單擊窗體上的命令按鈕，則在窗體上顯示的是( )。

　　A.5 5 15 5

　　B.7 5 15 25

　　C.7 8 15 5

　　D.7 5 15 5

　　(35)窗體上的三個命令按鈕構成名稱為CommanD1的控件數組。如圖所示。

　　程序如下：

　　Private Sub CommanD1—Click(Index As Integer)

　　IfIndex=1 Then

　　Print”計算機等級考試”

　　End If

　　IfIndex=2 Then

　　Prim CommanD1(2).Caption

　　End IfEnd Sub

　　運行程序，單擊“命令按鈕2”，則如下敘述中正確的是( )。

　　A.Print CommanD1(2).Caption語句有錯

　　B.在窗體上顯示“命令按鈕2”

　　C.在窗體上顯示“命令按鈕3”

　　D.在窗體上顯示“計算機等級考試”

　　(36)下面程序的執行結果是( )。

　　Private Sub CommanD1—Click( )a=0

　　k=1Do While k<4

　　X=k+kk=k+1

　　Prim X;

　　LoopEnd Sub

　　A.1 4 27

　　B.1 1 1

　　C.1 4 9

　　D.0 0 0

　　(37)窗體上有名稱分別為Textl、Text2的文本框，名稱為CommanD1的命令按鈕。運行程序，在Textl中輸入“FormList”，然后單擊命令按鈕，執行如下程序：Private Sub CommanD1—Click( )Text2.Text=UCase(Mid(Textl.Text，5，4)End Sub在Text2中顯示的是( )。

　　A.form

　　B.list

　　C.FORM

　　D.LIST

　　(38)窗體上有名稱為CommanD1的命令按鈕，名稱分別為Listl、List2的列表框，其中Listl的MultiSelect屬性

　　設置為1(Simple)，并有如下事件過程：Private Sub CommanD1—Click( )

　　For i=0 To Listl.ListCount一1

　　If Listl.Selected(i)=True Then

　　List2.AddItem Text

　　EndIf

　　NextEnd Sub上述事件過程的功能是將Listl中被選中的列表項添加到List2中。運行程序時，發現不能達到預期目的，應做修改，下列修改中正確的是( )。

　　A.將For循環的終值改為Listl.ListCount

　　B.將Listl.Selected(i)=True改為Listl.List(i).Selected=True

　　C.將List2.AdD1tem Text改為List2.AddItem Listl.List(i)

　　D.將List2ddItem Text改為List2.Addhem Listl.ListIndex

　　(39)設有如下CommanD1的單擊事件過程及fun過程：

　　Private Sub CommanD1_Click( )

　　Dim X As Integer

　　x=Val(InputBox(”請輸入一個整數”))fun(X)

　　End Sub

　　Private Sub fun(x As Integer)

　　If X Mod 2=0 Then fun(X/2)Print X;

　　End Sub

　　執行上述程序，輸入6，結果是( )。

　　A.3 6

　　B.6 3

　　C.6

　　D.程序死循環

　　(40)命令按鈕CommanD1的單擊事件過程如下：

　　Private Sub CommanD1—Click( )Dim a(10，10)As IntegerX=0

　　For i=l T0 3

　　For J=1 T0 3

　　a(i，j)=i}2 Mod J

　　If x

　　Next

　　Next

　　Print XEnd Sub

　　執行上述事件過程后，窗體上顯示的是( )。

　　A.1

　　B.2

　　C.3

　　D.4

長按二維碼關注即可獲得等考資料

2016各科最新預測試卷

等考歷年真題及答案

2016等考成績查詢時間

2016等考各科通關技巧

微信搜索"考試吧"獲取更多考試資訊、備考資料

　　相關推薦：

　　各地2016年全國計算機等級考試報名時間匯總

　　各地2016年計算機等級考試準考證打印時間匯總

　　各地2016年全國計算機等級考試費用匯總

　　2016年計算機等級考試備考沖刺專題

　　考試吧特別策劃：2016年計算機等級考試報考指南