第9章常用控件习题及答案一、选择题
1．下列哪类控件在运行时一定是不可见的：
(A) CheckBox
(B) Timer
(C) LineShape
(D) GroupBox
答案：B
知识点：控件
难度：1
提示：无
题解：无
2．控件的Location属性是（）数据类型的：
(A) Integer类型
(B) Size结构体
(C) Point结构体
(D) Single类型
答案：C
知识点：控件
难度：1
提示：无
题解：无
3．列表框控件的下列几个属性中，哪一个不是集合类型的：
(A) Items
(B) SelectedIndeics
(C) SelectedItems
(D) MultiColumn
答案：D
知识点：ListBox控件
难度：1
提示：无
题解：无
4．向列表框中添加一个条目，应使用列表框Items属性的什么方法：
(A) Insert
(B) Add
(C) Append
(D) Remove
答案：B
知识点：ListBox控件
难度：1
提示：无
题解：无
5．下面哪种类型的对象不能作为控件的容器：
(A) Form
(B) Panel
(C) ListBox
(D) Frame
答案：C
知识点：容器类控件
难度：1
提示：无
题解：无
6．要使一个图片框控件自动地附着在窗体的某条边上，应该设置它的哪个属性：
(A) Image
(B) Dock
(C) Left
(D) Anchor
答案：B
知识点：控件停靠与锚定
难度：1
提示：无
题解：无
7．下面哪个不是提供选项的控件：
(A) RadioButton
(B) CheckBox
(C) ListBox
(D) ProgressBar
知识点：提供选项的控件
难度：1
提示：无
题解：无
8．普通菜单项是以下哪一类控件：
(A) MenuStrip
(B) ToolStripMenuItems
(C) ContextMenuStrip
(D) ToolStripSplitButton
答案：B
知识点：菜单与工具栏
难度：1
提示：无
题解：无
9．一个菜单项是不是一个分隔条，是由什么属性决定的：
(A) Name
(B) Text
(C) Enabled
(D) Visible
答案：B
知识点：菜单与工具栏
难度：1
提示：无
题解：无
10．在窗体上按下鼠标左键一次后释放，不会触发窗体的哪个事件：
(A) Click
(B) DoubleClick
(C) MouseUp
(D) MouseDown
答案：B
知识点：高级鼠标事件
难度：1
提示：无
题解：无
11.已知列表框中有10个数据项，对列表框操作正确的语句是___________。
(A) ListBox1.Clear()
(B) ListBox1.Items.RemoveAt(4)
(C) ListBox1.Items.RemoveAt("计算机")
(D) ListBox1.Items.Add(1, "打印机")
答案：B
知识点：ListBox控件
难度：1
提示：无
题解：无
12.如果要使用户单击水平滚动条HScrollBar1两端的箭头按钮时，其Value属性增加或减少的值为2，则应设置它的（）属性。
(A)LargeChange
(B)Maximum
(C)SmallChange
(D)Minimum
答案：C
知识点：滑动输入类控件
难度：1
提示：无
题解：无
13.如果窗体上有一个文本框，并且拥有键盘输入焦点，则能够触发此文本框的KeyPress事件是（）操作。
(A)单击鼠标
(B)双击文本框
(C)鼠标滑过文本框
(D)按下键盘上的某个键
答案：D
知识点：键盘事件
难度：1
提示：无
题解：无
14.当用户按下并且释放一个键盘按键后会触发KeyPress、KeyUp和KeyDown事件，这三个事
(A)KeyPress、KeyDown、KeyUp
(B)KeyDown、KeyUp、KeyPress
(C)KeyDown、KeyPress、KeyUp
(D)没有规律
答案：C
知识点：键盘事件
难度：1
提示：无
题解：无
15.要使文本框获得焦点，可调用其（）方法。
(A)ChangeFocus
(B)GotFocus
(C)Focus
(D)SettFocus
答案：C
知识点：键盘输入焦点
难度：1
提示：无
题解：无
16.下列控件中不能接收焦点的是（）。
(A)命令按钮
(B)标签框
(C)文本框
(D)单选按钮
答案：C
知识点：键盘输入焦点
难度：1
提示：无
题解：无
17.下列属性中，图片框控件没有_________ 属性。
(A) StretchImage
(B) Autosize
(C) Visible
答案：D
知识点：图片框控件
难度：1
提示：无
题解：无
17. 如果组合框Combo1中有3个条目，则能删除最后一项的语句是_________
(A) Combo1.Items.RemoveAt Text
(B) Combo1.Items.RemoveAt 2
(C) Combo1.Items.RemoveAt 3
(D) Combo1.Items.RemoveAt Combo1.Listcount
答案：B
知识点：组合框控件
难度：1
提示：无
题解：无
18．要使某控件在运行时隐藏，应对________属性进行设置。
(A) Enable
(B) Visible
(C) Width
(D) MinimizeBox
答案：B
知识点：控件
难度：1
提示：无
题解：无
19．执行了下面的程序后，列表框中的条目有______________。
Dim i As Integer
For i= 1 To 6
ListBox1.Items.Add(i)
Next
For i= 1 To 3
ListBox1.Items.RemoveAt(i)
Next
(B)2，4，6
(C)4，5，6
(D)1，3，5
答案：D
知识点：列表框控件
难度：1
提示：无
题解：无
20．在下列说法中，正确的是_____________。
(A)程序运行时，定时器控件可显示在窗体上
(B)在列表框中不能进行多项选择
(C)在列表框中能够将项目按字母顺序从大到小排列
(D)组框控件也有Click和DoubleClick事件
答案：D
知识点：控件
难度：1
提示：无
题解：无
21．下列_____________控件没有Minimize、Maximize和Value属性。
(A)HScrollBar
(B)ProgressBar
(C)NumericUpDown
(D)TabControl
答案：D
知识点：控件
难度：1
提示：无
题解：无
22. 当ComboBox控件的DropDownStyle属性设置为Simple时，以下说法正确的是____________。
（A）该值是DropDownStyle属性的默认值
（B）该值使组合框处于不可见状态
（D）该值使组合框中文本框部分可编辑，且列表部分处于可见状态
答案：D
知识点：组合框
难度：1
提示：无
题解：无
23．以下_____________ 语句可以向列表控件中添加条目。
(A) ListBoxl.Items.Clear()
(B) ListBoxl.Add("newitem")
(C) ListBoxl.Items("newitem")
(D) ListBoxl.Items.Add("newitem")
答案：D
知识点：列表框控件
难度：1
提示：无
题解：无
24.下列控件中，没有Text属性的是（）。
(A)组框
(B)列表框
(C)复选框
(D)定时器
答案：D
知识点：控件
难度：1
提示：无
题解：无
25．复选框的CheckState属性为CheckState.Indeterminate时，表示（）。
(A)复选框未被选定
(B)复选框被选中
(C)复选框处于不确定（中间）状态
(D)复选框不可以操作
答案：C
知识点：复选框控件
提示：无
题解：无
26．在下列关于单选按钮和复选框的说法中，错误的是（）。
(A)单选框被单击一定会触发它的CheckedChanged
(B)同一组中的多个单选框，最多有一个处于选中状态
(C)某个复选框被单击一定会触发它的CheckedChanged
(D)一个复选框的状态发生变化，不会影响其他复选框的状态
答案：A
知识点：控件
难度：1
提示：无
题解：无
27．在设计状态，列表框中的条目可以通过（）属性设置。
(A)List
(B)Items.Count
(C)Text
(D)Items
答案：D
知识点：列表框控件
难度：1
提示：无
题解：无
28.引用列表框ListBox1最后一个条目应使用（）语句。
(A)ListBox1. Items (ListBox1.Items.Count)
(B)ListBox1. Items (ListBox1.Items.Count -1)
(C)ListBox1.Text
(D)ListBox1. Items (ListBox1.SelectedIndex)
答案：B
知识点：列表框控件
难度：1
提示：无
题解：无
29．在下列属性和事件中，属于滚动条和进度条共有的是（）。
(A)Scroll
(B)ValueChanged
(C)LargeChange
(D)Maximum
答案：D
知识点：列表框控件
难度：1
提示：无
题解：无
30.下列关于定时器控件的说法中，正确的是（）。
(A)当Enabled属性为False时，不产生Tick事件
(B)在程序运行时不可见，这是因为Visible属性值为False
(C)若将Interval属性设为0，也可使Tick事件不发生
(D)通过恰当的设置可以将Interval属性的单位改为秒
答案：A
知识点：定时器控件
难度：1
提示：无
题解：无
31．在下列关于菜单的说法中，错误的是（）。
(A)每个菜单项都是一个对象，也有自己的属性、事件和方法
(B)菜单项只有Click事件，没有DoubleClick事件
(C)菜单中的分隔符也是一个对象
(D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择。
答案：B
知识点：菜单栏控件
难度：1
提示：无
题解：无
1．定时器控件的Interval属性值是时间间隔，单位是（1）；当每隔此间隔的时间，定时器会引发一次（2）事件。
答案：（1）毫秒ms；（2）Tick
知识点：定时器控件
难度：1
提示：无
题解：无
2．Visual Basic为添加到窗体上的第一个图片框提供的默认对象名为。
答案：PictureBox1
知识点：图片框控件
难度：1
提示：无
题解：无
3．组合框的属性决定了该组合框是简单组合框、下拉式组合框还是下拉式列表框。答案：DropDownStyle
知识点：组合框控件
难度：1
提示：无
题解：无
4．当复选框被选定，它的CheckedState属性值为（1）；单选框被选定时，则的Checked 属性为（2）。
答案：（1）Checked枚举常量（或数值1）；（2）True
知识点：复选框控件
难度：1
提示：无
题解：无
5.为使加入到列表框的数据自动排序，应设置该控件的__ _____属性。
答案：Sorted
知识点：列表框控件
难度：1
提示：无
6．如果文本框控件中的文本内容发生了变化，会引发事件。
答案：TextChanged
知识点：文本框控件
难度：1
提示：无
题解：无
7．当复选框控件能够显示三种状态时，可通过它的属性返回复选框的状态。答案：CheckState
知识点：复选框控件
难度：1
提示：无
题解：无
8．定时器控件的属性用来设置定时器两次Tick事件发生的时间间隔。
答案：Interval
知识点：定时器控件
难度：1
提示：无
题解：无
9．列表框中条目的序号是从____________开始的。
答案：0
知识点：列表框控件
难度：1
提示：无
题解：无
10．当用户单击滚动条的空白处时，滑块移动的增量值由____________ 属性决定。答案：LargeChange
知识点：滚动条控件
难度：1
提示：无
题解：无
11.如果要每隔5秒产生一个Tick事件，则定时器控件的Interval属性应设置为（）。
答案：5000
知识点：定时器控件
难度：1
提示：无
题解：无
12．快捷菜单是通过（）控件创建的。
答案：ContextMenu
知识点：快捷菜单控件
难度：1
提示：无
题解：无
13．如果已在窗体上已建立多个控件，如TextBox1，Label1，Button1，若要使程序一运行键盘输入焦点就定位在Button1控件上，则应将Button1控件的（ 1 ）属性值的设置值为（ 2 ）。
答案：（1）TabIndex；（2）0
知识点：键盘输入焦点
难度：1
提示：无
题解：无
三、判断题
1．文本框中只能显示单行文本，要显示多行文本应该使用列表框控件。
答案：×
知识点：控件
难度：1
提示：无
题解：无
2．标签控件所显示的文本只能在设计时设置，运行时不能改变。
答案：×
知识点：控件
难度：1
题解：无
3．组框控件和直线形状控件都不能响应用户的鼠标单击事件。
答案：×
知识点：控件
难度：1
提示：无
题解：无
4．滚动条的LargeChange属性值不能小于SmallChange属性值。
答案：×
知识点：滚动条控件
难度：1
提示：无
题解：无
5．调用窗体对象的Hide方法可以隐藏该窗体，但这不会改变它的Visible属性值。
答案：×
知识点：控件
难度：1
提示：无
题解：无
6．直线形状控件无Left属性、Top属性，所以直线形状控件在运行时不能移动。
答案：×
知识点：形状控件
难度：1
提示：无
题解：无
7．组合框控件可以看作是文本框与列表框的组合体，所以它具有二者的全部属性、方法与事件。
答案：×
知识点：组合框控件
难度：1
提示：无
题解：无
答案：×
知识点：定时器控件
难度：1
提示：无
题解：无
9．可以通过程序代码使一个单选框组中的所有单选框均为不选定状态。
答案：√
知识点：单选框控件
难度：1
提示：无
题解：无
10．默认情况下，当向下移动垂直滚动条的滚动框时，其Value属性值会减小。答案：×
知识点：滚动条控件
难度：1
提示：无
题解：无
11．同一个窗体上可以有多个菜单栏和工具栏。
答案：√
知识点：控件
难度：1
提示：无
题解：无
12．作为分隔条的菜单项是不能有事件过程的。
答案：×
知识点：菜单控件
难度：1
提示：无
题解：无
13．如果菜单项的Visible属性为False，则它的子菜单也不会显示。
答案：√
知识点：菜单控件
难度：1
题解：无
14．菜单上不光可有菜单项，还可以有文本框等寄宿控件。
答案：√
知识点：菜单控件
难度：1
提示：无
题解：无
15．通过程序代码可将一个过程与多个控件的事件过程相关联。
答案：√
知识点：动态控件与事件
难度：1
提示：无
题解：无
四、简答题
1．MouseUp、MouseDown、MouseMove事件过程有些什么参数，每个参数的含义是什么。答案：略
知识点：高级鼠标事件
难度：2
提示：无
题解：无
2．KeyDown、KeyUp与KeyPress事件各有什么不同，应分别用在什么场合。
答案：略
知识点：键盘事件
难度：2
提示：无
题解：无
五、编程题
计满足条件的数共有多少对，使用列表框控件把找到的数对显示出来。要求同一组的两个数用逗号分隔，并作为同一条目添加到列表框中。
答案：共16对。
知识点：列表框控件；Function过程
难度：3
提示：无
题解：
1 Private Sub Button1_Click() Handles Button1.Click
2 Dim m As Integer, n As Integer
3 For m = 1 To 49
4 n = 99 - m
5 If gcd(m, n) Mod 3 = 0 Then
6 ListBox1.Items.Add(CStr(m) & "," & Str(n))
7 End If
8 Next
9 TextBox1.Text = "共" & CStr(ListBox1.Items.Count) & "对"
10 End Sub
11 Private Function gcd(m As Integer, n As Integer) As Integer
12 Dim r As Integer
13 Do While n <> 0
14 r = m Mod n
15 m = n
16 n = r
17 Loop
18 gcd = m
19 End Function
2．编写程序，使得一个文本框控件沿窗体内边框的四条边自动顺时针移动。并且在文本框中显示出已移动的距离（以像素为单位）。
答案：见题解。
知识点：定时器控件
难度：3
提示：无
题解：
1 Private intdir(2) As Integer
2 Private Sub Form1_Load() Handles MyBase.Load
3 TextBox1.Top = 0
4 TextBox1.Left = 0
5 TextBox1.Text = 0
6 intdir(1) = 1
7 intdir(2) = 0
8 Timer1.Enabled = True
10 End Sub
11 Private Sub Timer1_Tick() Handles Timer1.Tick
12 TextBox1.Left = TextBox1.Left + intdir(1) * 20 13 TextBox1.Top = TextBox1.Top + intdir(2) * 20 14 TextBox1.Text = TextBox1.Text + 20
15 If TextBox1.Left > Me.ClientSize.Width - TextBox1.Width Then 16 TextBox1.Left = Me.ClientSize.Width - TextBox1.Width 17 intdir(1) = 0 18 intdir(2) = 1
19 ElseIf TextBox1.Top > Me.ClientSize.Height - TextBox1.Height Then 20 TextBox1.Top = Me.ClientSize.Height - TextBox1.Height 21 intdir(1) = -1 22 intdir(2) = 0
23 ElseIf TextBox1.Left < 0 Then 24 TextBox1.Left = 0 25 intdir(1) = 0 26 intdir(2) = -1
27 ElseIf TextBox1.Top < 0 Then 28 TextBox1.Top = 0 29 intdir(1) = 1 30 intdir(2) = 0 31 End If 32 End Sub
3．编制如图所示的程序。本程序根据如下公式，由输入的身高计算标准体重。 男：标准体重（kg ）=
身高（cm ）-100 女：标准体重（kg ）= 身高（cm ）-105
编程完成后，将窗体和项目分别以frmWeight 和prjWeight 为文件名保存在C ：盘根目录下名为myproject 的文件夹中，并编译为可执行文件。
答案：见题解。 知识点：控件 难度：2 提示：无 题解：
图 标准体重程序
3 Text2.Text = CSng(Text1.Text) - 105
4 Else
5 Text2.Text = CSng(Text1.Text) - 100
6 End If
7 End Sub
4．如果一个正整数恰好等于它所有因子之和，则称为“完数”。例如，6的因子有1、2和3，并且6 = 1+2+3，因此6是“完数”。编程找出1000之内所有的完数，并以列表框显示，完数的个数用文本框输出。
答案：共有三个完数：6、28和496。
知识点：定时器控件
难度：4
提示：无
题解：
1 Private Sub bntCalc_Click() Handles bntCalc.Click
2 Dim int1, int2 As Integer
3 Dim intNumber, intAmount As Integer
4 intNumber = 0
5 For int1 = 2 To 999
6 intAmount = 0
7 For int2 = 1 To int1 / 2
8 If int1 Mod int2 = 0 Then ' 如果是因子
9 intAmount = intAmount + int2 ' 求因子之和
10 End If
11 Next
12 If int1 = intAmount Then ' 如果为完数
13 intNumber += 1 ' 个数加1
14 lstOutput.Items.Add(int1) ' 添加到列表框中
15 End If
16 Next
17 txtOutput.Text = intNumber ' 显示完数个数
18 End Sub
5．编程计算哪两个正整数之间的所有连续正整数的和为1000，共有几组这样的数，使用列表框将结果输出。
答案：共有三组：“28-52”、“55-70”和“198-202”。
知识点：定时器控件
难度：4
提示：无
题解：
1 Private Sub bntCalc_Click() Handles bntCalc.Click
2 Dim intstart, intend, intamo As Integer
3 For intstart = 1 To 500 ' 循环上限定为500
4 intamo = 0
5 For intend = intstart To 500
6 intamo += intend
7 If intamo >= 1000 Then Exit For
8 Next
9 If intamo = 1000 Then ' 输出结果
10 lstOutput.Items.Add(CStr(intstart) & " - " & CStr(intend))
11 End If
12 Next
13 End Sub
6．计算平均成绩的程序。
要求：
（1）如图所示，用户从上面文本框输入0-100之间的数值表示成绩，在文本框中按回车键成绩添加到列表框中。
（2）不要求程序进行成绩的有效性检查。
（3）程序自动计算所有已输入成绩的平均分，并显示到下面的文本框中，该文本框的内容用户不能修改。
（4）如果点击“清空”按钮，将列表框中所有的成绩清除，平均成绩显示为空。
答案：见题解。
知识点：控件
难度：4
提示：无
题解：