(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年计算机等级考试报考指南