第 1 页:选择题 |
第 3 页:基本操作题 |
第 4 页:简单应用题 |
第 5 页:综合应用题 |
第 6 页:参考答案及解析 |
(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
微信搜索"考试吧"了解更多考试资讯、下载备考资料
相关推荐: