第七章 常用控件
一、单选题
1．下列控件中没有Caption属性的是 ________。
A）框架 B）列表框
C）复选框 D）单选按钮
2．复选框的Value 属性为 1 时，表示 ________。
A）复选框未被选中 B）复选框被选中
C）复选框内有灰的勾 D）复选框操作有误
3．用来设置斜体字的属性是 ________。
A）FontItalic B）FontBold C）FontName D）FontSize
4．将数据项“China”添加到列表框List1中成为第二项应使用 ________语句。
A）List1.AddItem "China",1 B）List1.AddItem "China", 2
C）List1.AddItem 1, "China" D）List1.AddItem 2, "China"
5．引用列表框List1最后一个数据项，应使用 ________语句。
A）List1.List(List1.ListCount) B）List1.List(ListCount)
C）List1.List(List1.ListCount-1） D）List1.List(ListCount-1)
6．在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False，程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1._________
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
Timer1控件的属性及值为 ________。
A）Enabled=True B）Enabled=False C）Visible=True D）Visible=False
7．假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是________。
A）选择图片框，然后按Del键
B）执行语句Picture1.Picture=LoadPicture("")
C）执行语句Picture1.Picture=""
D）选择图片框，在属性窗口中选择Picture属性，然后按回车键
8．在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是________。
A) Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B) Private Sub List1_Click()
Label1.Name = List1.ListIndex
End Sub
C) Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D) Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
9．把窗体的KeyPreview属性设置为True，然后编写如下事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序运行后，按键盘上的”A”键，则在窗体上显示的内容是________。
A）A B）B C）C D）D
10．对窗体编写如下事件过程：
Private Sub Form _MouseDown(Button As Integer, _
Shift As Integer, X As Single ,Y As Single)
If Button =2 Then
Print "AAAAA"
End If
End Sub
Private Sub Form _ MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "BBBBB"
End Sub
程序运行后，如果单击鼠标右键，则输出结果为________。
A）AAAAA B）BBBBB C）AAAAA D）BBBBB
BBBBB AAAAA
11．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load()
List1.AddItem "357"
List1.AddItem "246"
List1.AddItem "123"
List1.AddItem "456"
Text1.Text=""
End Sub
Private Sub List1_ DblClick()
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后，在文本框中输入"789"，然后双击列表框中的"456"，则输出结果为________。
A) 1245 B) 456789 C) 789456 D) 0
12．在窗体上画一个列表框，然后编写如下两个事件过程：
Private Sub Form_Click()
List1.RemoveItem 1
List1.RemoveItem 3
List1.RemoveItem 2
End Sub
Private Sub Form_Load()
List1.AddItem "ItemA"
List1.AddItem "ItemB"
List1.AddItem "ltemC"
List1.AddItem "ItemD"
List1.AddItem "ItemE"
End Sub
运行上面的程序，然后单击窗体，列表框中所显示的项目为________。
A) ItemA与ItemB B) ItemB与ItemD
C) ItemD与ItemE D) ItemA与ItemC
二、填空题
1．复选框 【1】 属性设置为2—Grayed时，变成灰，禁止用户使用。
2．组合框是将文本框和列表框的特性组合在一起而形成的一种控件。 【2】 风格的组合不允许用户输入列表框中没有的选项。
3．滚动条响应的重要事件有 【3】 字符串函数strip的作用是和Change。
4．当用户单击滚动条的空白处时，滑块移动的增量由 【4】 属性决定。
5．如果要求每隔15s产生一个Timer事件，则Interval属性应设置为 【5】 。
6．在程序运行时，如果将框架 【6】 属性设置为False，则框架的标题呈灰，表示框架内的所有的对象均被屏蔽，不允许用户对其进行操作。
7.下面的程序段是将列表框List1中重复的项目删除，只保留一项。
For i = 0 To List1.ListCount – 1
For j = List1.ListCount – 1 To 【7】 Step – 1
If List1.List(i) = List1.List(j) Then
【8】
End If
Next j
Next i
8.下列程序段是允许用户按Enter键将一个组合框(CboComputer)中没有的项目添加到组合框中。
Sub CboComputer_Keypress(KeyAscii As Integer)
Dim flag As Boolean
If KeyAscii = 13 Then
flag = False
For i = 0 To CboComputer.ListCount – 1
If 【9】 Then
flag = True
Exit for
End If
Next i
If 【10】 Then
【11】
Else
MsgBox(“组合框中已有该项目！”)
End If
End If
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论