在窗体上画一个名称为List1的列表框，然后编写如下程序： Private ...

单项选择题

设窗体上有一个名称为Check1的复选框，并有下面程序代码：
Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Check1.Value=1
End Sub
根据上面的事件过程，可以得出结论

A．鼠标单击该复选框，复选框的标题被改为“1”
B．鼠标右键单击该复选框，可以选中该复选框
C．鼠标左键单击该复选框，它被选中，右键单击它，取消选中
D．鼠标右键单击该复选框，它被选中，左键单击它，取消选中

单项选择题

下列控件中，不响应Click事件的是

A．框架
B．标签
C．图像框
D．形状

单项选择题

设窗体上有一个名称为List1的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是

A．List1.List(List1.ListCount)="VB程序"
B．List1.List(List1.ListCount-1)="VB程序"
C．List1.AddItem"VB程序"
D．List1.AddItem"VB程序"，List1.ListCount

单项选择题

已知列表框控件List1中已放入若干表项，下列关于List1的叙述中错误的是

A．第一个表项的序号为0
B．没有选中任何一个表项时，ListIndex属性的值为-1
C．最后一个表项的序号为ListCount
D．可用MultiSelect属性设置是否可多选

单项选择题

判断复选框是否被选中的属性为

A．Selected
B．Checked
C．Value
D．Index

单项选择题

窗体上有1个名称为Label1的标签；1个名称为Listl，且含有若干表项的列表框。为了使得单击List1中某个表项时，在Label1中相应地显示该表项，应使用的程序代码为

A．Private Sub List1_Click()Label1.Caption=List1.IndexEnd Sub
B．Private Sub List1_Click()Label1.Caption=List1.ListCountEnd Sub
C．Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub
D．Private Sub List1_Click()Label1.Caption=List1.SelectedEnd Sub

单项选择题

以下关于控件的叙述中，正确的是

A．列表框包含了组合框的全部功能
B．列表框兼有组合框和文本框的功能
C．列表框和组合框具有完全不同的功能
D．组合框兼有列表框和文本框的功能

单项选择题

判断单选按钮是否被选中的属性为

A．Selected
B．Checked
C．Value
D．Index

单项选择题

窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：
Private Sub Command1_Click()
n%=List1.ListIndex
If n＞0 Then
ch$=List1.List(n)
List1.List(n)=List1.List(n-1):List1.List(n-1)=ch
End If
End Sub
程序运行时，选中1个列表项，然后单击Command1按钮，则产生的结果是

A．若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置
B．选中的列表项与它前面的列表项互换位置
C．若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置
D．选中的列表项与它后面的列表项互换位置

单项选择题

窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click()
For i=0 To List1.ListCount-1
If List1.Selected(i)=True Then
List2.AddItem Text
End If
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是

A．将For循环的终值改为List1.ListCount
B．将List1.Selected(i)=True改为List1.List(i).Selected=True
C．将List2.AddItem Text改为List2.AddItern List1.List(i)
D．将List2.AddItem Text改为List2.AddItem List1.ListIndex

单项选择题

窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：
Private Sub Command1_Click()
str1=Trim(Combo1.Text)
flag=0
If str1＜＞""Then
For i=0 To Combo1.ListCount-1
If str1=Combo1.List(i)Then
Combo1.RemoveItem i:Combo1.Text=""
flag=1
End If
Next
If flag=1 Then
Combo1.AddItem Combo1.Text
End If
End Sub
程序中存在问题，以下关于程序问题的叙述中，正确的是

A．For循环的循环初值i应该从1开始
B．语句Combo1.RemoveItem i有错误
C．语句Combo1.AddItem Combo1.Text有错，Combo1.Text的内容已存在于组合框中
D．应把程序倒数第3行中的If flag=1改为If flag=0

单项选择题

在窗体上画一个名称为List1的列表框，然后编写如下程序：
Private Sub
Form_Click()
For i=1 To 10
Item="Item" &i:List1.AddItem
Item Next i
End Sub
程序运行时，单击窗体，所完成的功能是

A．向列表框中添加10个项目
B．向列表框中添加11个项目
C．向列表框中添加10个数字
D．向列表框中添加1～10的和

单项选择题

设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。
Private Sub Check1_Click(Index As Integer)
For k=0 To List1.ListCount-1
If Check1(Index).Caption=List1.List(k) Then Exit For
Next k
If k＜List1.ListCount Then
List1.RemoveItem k
Else
List1.AddItem______
End If
End Sub
为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是

A．k
B．Check1.Caption
C．Check1(k)
D．Check1(Index).Caption

单项选择题

在窗体上画一个水平滚动条，其属性值Min满足

A．增加一个SmallChange量
B．减少一个SmallChange量
C．增加一个LargeChange量
D．减少一个LargeChange量

单项选择题

关于水平滚动条，如下叙述中错误的是

A．当滚动框的位置改变时，触发Change事件
B．当拖动滚动条中的滚动框时，触发Scroll事件
C．LargeChange属性是滚动条的最大值
D．Value是滚动条中滚动框的当前值

单项选择题

窗体上有一个名称为VScroll1的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是

A．Click
B．KeyDown
C．DragDrop
D．Scroll

单项选择题

窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value的值等于

A．VScroll1.LargeChange
B．VScroll1.SmallChange
C．VScroll1.Max
D．VScroll1.Min

单项选择题

窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是

A．Private Sub HScroll1_Change()Print HScroll1.ValueEnd Sub
B．Private Sub HScroll1_Change()Print HScroll1.SmallChangeEnd Sub
C．Private Sub HScroll1_Scroll()Print HScroll1.ValueEnd Sub
D．Private Sub HScroll1_Scroll()Print HScroll1.SmallChangeEnd Sub

单项选择题

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是

A．程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B．程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C．由于滚动条的Max属性值小于Min属性值，程序会出错
D．由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动

单项选择题

窗体上有一个名称为VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是

A．LargeChange
B．SmallChange
C．Max
D．Min

单项选择题

设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：
Private Sub Form_Load()
HScroll1.Min=0
HScroll1.Max=100
End Sub
Private Sub Command1_Click()
HScroll1.Value=70
End Sub
程序运行时单击命令按钮，则滚动条上滚动块位置的图示是

程序运行时，拖动滚动条上的滚动框，则所触发的事件是

A．Move
B．Scroll
C．Drag
D．DragDrop

单项选择题

设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程：
Private Sub HScroll1_Change()
Text1=HScroll1
End Sub
在程序运行时，当把滚动框移动到最左边时，文本框中显示的是100；当把滚动框移动到最右边时，文本框中显示的是1。根据这些信息，下面的判断中错误的是

A．滚动条的Max和Min属性的值分别是1和100
B．滚动条的Max和Min属性的值分别是100和1
C．文本框中显示的是滚动条Value属性的值
D．如果把滚动框移动到中间位置，文本框中将显示50

单项选择题

设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1；有2个名称分别为Option1、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码：
Private Sub Option1_Click()
HScroll1=Val(Option1.Caption)
End Sub
Private Sub Option2_Click()
HScroll1=Val(Option2.Caption)
End Sub
程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是

A．在最左边
B．在最右边
C．在中间
D．在中间偏左的位置

单项选择题

下列关于水平滚动条的叙述中，错误的是

A．Value属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量
B．Scroll事件在鼠标拖动滚动框时产生
C．用鼠标拖动滚动框后，会触发Change事件
D．单击滚动条两端箭头时，会触发Change事件

单项选择题

下列关于滚动条的叙述中，错误的是

A．在滚动条内单击滚动框前面或后面的部位时，会触发Scroll事件
B．在滚动条内拖动滚动框时，会触发Scroll事件
C．在滚动条内拖动滚动框后，会触发Change事件
D．单击滚动条两端的箭头时，会触发Change事件

单项选择题

窗体上有1个名称为Text1的文本框，1个名称为Timer1的计时器，且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。
Private Sub Form_Click()
Timer1.______
End Sub
Private Sub Timer1_Timer()
Text1.Text=Time()
End Sub
为了实现上述功能，应该在横线处填入的内容为

A．Enabled=True
B．Enabled=False
C．Visible=True
D．Visible=False

单项选择题

定时器的Interval属性的值是一个整数，它表示的是

A．毫秒数
B．秒数
C．分钟数
D．小时数

单项选择题

设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是

A．Private Sub Timer1_Timer()Label1.Caption=TrueEnd Sub
B．Private Sub Timer1_Timer()Label1.Caption=Time$End Sub
C．Private Sub Timer1_Timer()Label1.Interval=1End Sub
D．Private Sub Timer1_Timer()For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd Sub

单项选择题

窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then
flag=1:flag=-flag
End If
If flag=1 Then
Text1.ForeColor=&HFF&"&HFF&为红色
Else
Text1.ForeColor=&HC000&"&HC000&为绿色
End If
End Sub
以下叙述中正确的是

A．每次执行此事件过程时，flag的初始值均为0
B．flag的值只可能取0或1
C．程序执行后，文本框中的文字每5秒改变一次颜色
D．程序有逻辑错误，Else分支总也不能被执行

单项选择题

为了暂时关闭计时器，应把它的一个属性设置为False，这个属性是

A．Visible
B．Timer
C．Enabled
D．Interval

单项选择题

设窗体上有一个名称为Timer1的计时器控件，其Interval属性被设置为500，Enabled属性被设置为True；还有一个名称为Text1的文本框和下面的事件过程：
Private Sub Timer1_Timer()
Static x As Long
x=x+1:Text1=x
End Sub
程序运行一段时间后，文本框中显示的是100，则表示

A．程序已经运行了100秒
B．程序已经运行了100毫秒
C．程序已经运行了50秒
D．文本框到窗体左边框的距离是100

单项选择题

下列不属于计时器控件属性的是

A．Enabled
B．Interval
C．Index
D．Visible

单项选择题

下列不属于计时器控件属性的是

A．Enabled
B．Interval
C．Name
D．Timer

单项选择题

窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1的形状控件，其Shape属性值为3(Circle)。编写程序如下：
Private Sub Form_Load()
Shape1.ToP=0:Timer1.Interval=100
End Sub
Private Sub Timer1_Timer()
Static x As Integer
Shape1.Top=Shape1.Top+100
x=x+1
If x Mod 10=0 Then
Shape1.Top=0
End If
End Sub
以下关于上述程序的叙述中，错误的是

A．每执行一次Timer1_Timer事件过程，x的值都在原有基础上增加1
B．Shape1每移动10次回到起点，重新开始
C．窗体上的Shape1由下而上移动
D．Shape1每次移动100

单项选择题

窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：
Dim n As Integer
Private Sub Timer1_Timer()
ch=Chr(n+Asc("A")):Label1.Caption=ch:n=n+1:n=n Mod 4
End Sub
运行程序，将在标签中

A．不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭
B．依次显示字符“A”、“B”、“C”、“D”各一次
C．每隔1秒显示字符“A”一次
D．每隔1秒依次显示26个英文字母中的一个

单项选择题

窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等)，一个名称为Timer1的计时器，并有下面程序代码：
Dim r As Single, flag As Integer
Private Sub Form_Load()
r=Shape1.Width
Timer1.Enabled=True
Timer1.Interval=500
End Sub
Private Sub Timer1_Timer()
If flag=0 Then
Shape1.Width=Shape1.Width-10
If Shape1.Width＜=100 Then
flag=1
End If
Else
Shape1.Width=Shape1.Width+10
If Shape1.Width＞=r Then
flag=0
End If
End If
End Sub
运行程序后产生的结果是

A．圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复
B．圆一直在缩小
C．圆每隔0.5秒向右移动一次
D．圆每隔1秒向下移动一次

单项选择题

下列针对框架控件的叙述中，错误的是

A．框架是一个容器控件
B．框架也有Click和DblClick事件
C．框架也可以接受用户的输入
D．使用框架的主要目的是对控件进行分组

单项选择题

要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是①先画一个框架，再在框架中画两个单选按钮②先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中③先画两个单选按钮，再画框架将单选按钮框起来

A．①
B．②
C．③
D．②和③

单项选择题

下面哪个属性肯定不是框架控件的属性

A．Text
B．Caption
C．Left
D．Enabled

单项选择题

如果在框架中画了2个复选框，且框架的Enabled属性被设置为False，2个复选框的Enabled属性被设置为True，则下面叙述中正确的是

A．2个复选框可用
B．2个复选框不可用
C．2个复选框不显示
D．上述都不对

单项选择题

如果要在窗体上使用2组单选按钮，每组都可以有一个被选中，则应该做的是

A．把l组单选按钮画在窗体的左边，另1组画在右边
B．先画2组单选按钮，再画2个框架控件把2组单选按钮分别框起来
C．先画2个框架控件，再把2组单选按钮分别画在不同的框架中
D．因为1个窗体中只有1个单选按钮可以被选中，所以需要使用2个窗体

单项选择题

以下关于框架的叙述中，错误的是

A．框架能够响应Click事件
B．框架是一个容器
C．框架的Enabled属性为False时，框架内的控件均被屏蔽
D．框架可以获得焦点

单项选择题

以下可以作为“容器”的控件是

A．框架
B．图像框
C．标签
D．命令按钮

单项选择题

窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text="程序设计"
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text="等级考试"
End Sub
运行以上程序，单击命令按钮后

A．文本框中显示的是“程序设计”，且焦点在文本框中
B．文本框中显示的是“等级考试”，且焦点在文本框中
C．文本框中显示的是“程序设计”，且焦点在命令按钮上
D．文本框中显示的是“等级考试”，且焦点在命令按钮上

单项选择题

以下能够设置控件焦点的方法是

A．SetFocus
B．GotFocus
C．LostFocus
D．TabStop

单项选择题

设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发

A．Text1的SetFocus事件
B．Text1的GotFocus事件
C．Text1的LostFocus事件
D．窗体的GotFocus事件

单项选择题

对于能够获得焦点的控件，若要使其不能接收焦点，应该

A．将TabStop属性值设为True
B．将TabStop属性值设为False
C．将TabIndex属性值设为0
D．将Enabled属性值设为False

单项选择题

为了使每秒钟发生一次计时器事件，可以将其Interval属性设置为

A．1
B．10
C．100
D．1000

在窗体上画一个名称为List1的列表框，然后编写如下程序： Private Sub Form_Click() For i=1 To 10 Item="Item" &i:List1.AddItem Item Next i End Sub 程序运行时，单击窗体，所完成的功能是

你可能感兴趣的试题

窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是

下列不包含滚动条的控件是

为了删除列表框中的一个列表项，应使用的列表框方法是

设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是

要想不使用Shift或Ctrl键就能在列表框中国时选择多个项目，则应把该列表框的MultiSelect属性设置为

以下不能设置Picture属性的控件是

设窗体上有1个名称为List1的列表框，程序运行时，如果选中了第3个列表项(最上面的列表项为第0个列表项)，则下面不成立的是

如果在列表框List1中没有选中项目，则List1.ListIndex的值为

设窗体上有一个名称为Check1的复选框，并有下面程序代码： Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Check1.Value=1 End Sub 根据上面的事件过程，可以得出结论

下列控件中，不响应Click事件的是

设窗体上有一个名称为List1的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是

已知列表框控件List1中已放入若干表项，下列关于List1的叙述中错误的是

判断复选框是否被选中的属性为

窗体上有1个名称为Label1的标签；1个名称为Listl，且含有若干表项的列表框。为了使得单击List1中某个表项时，在Label1中相应地显示该表项，应使用的程序代码为

以下关于控件的叙述中，正确的是

判断单选按钮是否被选中的属性为

在窗体上画一个名称为List1的列表框，然后编写如下程序： Private Sub Form_Click() For i=1 To 10 Item="Item" &i:List1.AddItem Item Next i End Sub 程序运行时，单击窗体，所完成的功能是

在窗体上画一个水平滚动条，其属性值Min满足

关于水平滚动条，如下叙述中错误的是

窗体上有一个名称为VScroll1的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是

窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value的值等于

窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是

窗体上有一个名称为VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是

程序运行时，拖动滚动条上的滚动框，则所触发的事件是

下列关于水平滚动条的叙述中，错误的是

下列关于滚动条的叙述中，错误的是

定时器的Interval属性的值是一个整数，它表示的是

设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是

为了暂时关闭计时器，应把它的一个属性设置为False，这个属性是

下列不属于计时器控件属性的是

下列不属于计时器控件属性的是

窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序： Dim n As Integer Private Sub Timer1_Timer() ch=Chr(n+Asc("A")):Label1.Caption=ch:n=n+1:n=n Mod 4 End Sub 运行程序，将在标签中

下列针对框架控件的叙述中，错误的是

下面哪个属性肯定不是框架控件的属性

如果在框架中画了2个复选框，且框架的Enabled属性被设置为False，2个复选框的Enabled属性被设置为True，则下面叙述中正确的是

如果要在窗体上使用2组单选按钮，每组都可以有一个被选中，则应该做的是

以下关于框架的叙述中，错误的是

以下可以作为“容器”的控件是

窗体上有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Command1_Click() Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text="等级考试" End Sub 运行以上程序，单击命令按钮后

以下能够设置控件焦点的方法是

设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发

对于能够获得焦点的控件，若要使其不能接收焦点，应该

为了使每秒钟发生一次计时器事件，可以将其Interval属性设置为

在窗体上画一个名称为List1的列表框，然后编写如下程序：
Private Sub
Form_Click()
For i=1 To 10
Item="Item" &i:List1.AddItem
Item Next i
End Sub
程序运行时，单击窗体，所完成的功能是

设窗体上有一个名称为Check1的复选框，并有下面程序代码：
Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Check1.Value=1
End Sub
根据上面的事件过程，可以得出结论

在窗体上画一个名称为List1的列表框，然后编写如下程序：
Private Sub
Form_Click()
For i=1 To 10
Item="Item" &i:List1.AddItem
Item Next i
End Sub
程序运行时，单击窗体，所完成的功能是

窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：
Dim n As Integer
Private Sub Timer1_Timer()
ch=Chr(n+Asc("A")):Label1.Caption=ch:n=n+1:n=n Mod 4
End Sub
运行程序，将在标签中

窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text="程序设计"
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text="等级考试"
End Sub
运行以上程序，单击命令按钮后