2012年计算机二级VB用户界面设计练习题及答案
用户界面设计
一、 单选题
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. 假如列表框List1有四个数据项,那么把数据项“China”添加到列表框的最后,应使用 ________语句。
A) List1.AddItem 3, "China"
B) List1.AddItem "China", List1.ListCount-1
C) List1.AddItem "China", 3
D) List1.AddItem "China", List1.ListCount
7.执行了下面的程序后,列表框中的数据项有________。
Private Sub Form_Click()
For i = 1 to 6
List1.AddItem i
Next i
For i = 1 to 3
List1.RemoveItem i
Next i
End Sub
A) 1,5,6
B) 2,4,6
C)4,5,6
D) 1,3,5
8.如果列表框List1中没有选定的项目,则执行List1.RemoveItem List1.ListIndex 语句的结果是 ________。
A) 移去第一项
B) 移去最后一项
C) 移去最后加入列表中的一项
D) 以上都不对
9.如果列表框List1中只有一个项目被用户选定,则执行Debug.Pring List1.Selected(List1.ListIndex) 语句的结果是 ________。
A) 在Debug窗口输出被选定的项目的索引值
B) 在Debug窗口输出True
C) 在窗体上输出被选定的项目的索引值
D) 在窗体上输出True
10. 假定时钟控件的Interval 属性为1000,Enabled属性为True,并且有下面的事件过程,程序结束后变量x的值为 ________。
Dim x As Integer
Private Sub Timer1_Timer()
For i = 1 to 100
x = x + 1
beep
Next i
End Sub
A) 1155
B) 1000
C) 100
D) 以上都不对
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
11. 下列说法中正确的是 ________。
A) 通过适当的设置,可以在程序运行期间,让时钟控件显示在窗体上
B) 在列表框中不能进行多项选择
C) 在列表框中能够将项目按字母从大到小排序
D) 框架也有Click和DblClick事件
12. 为了防止用户随意将光标置于控件之上,应________。
A) 将控件的TabIndex属性设置为0
B) 将控件的TabStop属性设置为True
C) 将控件的TabStop属性设置为False
D) 将控件的Enabled属性设置为False
13.滚动条产生Change事件是因为 ________值改变了。
A) SmallChange
B) Value
C) Max
D) LargeChange
14 .如果要每隔15s产生一个Timer事件,则Interval属性应设置为________。
A) 15
B) 900
C) 15000
D) 150
15. 列表框的 ________属性是数组。
A) List 和 ListIndex
B) List 和 ListCount
C) List 和 Selected
D) List 和 Sorted
16. 当用户按下并且释放一个键后会触发KeyPress、KeyUp、KeyDown事件,这三个发生的顺序是 ________。
A) KeyPress、KeyDown、KeyUp
B) KeyDown、KeyUp 、KeyPress
C) KeyDown、KeyPress、KeyUp
D) 没有规律
17. 下列关于键盘事件的说法中,正确的是________。
A) 按下键盘上的任意一个键,都会引发KeyPress事件
B) 大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同
C) KeyDown和KeyUp的事件过程中有KeyAscii参数
D) 大键盘上的“4”键的上档字符是“$”,当同时按下Shift和大键盘上的“4”键时,KeyPress事件过程的KeyAscii参数值是“$”的ASCII值
18. 为确保文本框中输入的全部是数字的最佳方法是________。
A) 在KeyDown或KeyUp的事件过程中摒弃非数字输入
B) 在Validate事件过程中利用IsNumeric函数
C) 在Chinge事件过程中利用IsNumeric函数
D) 在KeyPress的事件过程中摒弃非数字输入
19. 用户在使用ActiveX控件之前,需要将他们加载到工具箱中,下面________操作可进行ActiveX控件的加栽。
A) 工程"部件…
B) 视图"工具箱
C) 工具"选项…
D) 工程"引用…
20.把窗体的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
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
21.表示滚动条控件取值范围最大值的属性是______。
A)Max
B)LargeChange
C)Value
D)Max-Min
22.在窗体上画一个名称为Timer的计时器控件,要求每隔0.5秒发生一次计时事件,则以下正确的属性设置语句是______。
A)Timer.Interval=0.5
B)Timer.Interval=5
C)Timer.Interval=50
D)Timer.Interval=500
23.通过设置Line控件的______属性可以绘制多种形状的图形。
A)Shape
B)Style
C)FillStyle
D)BorderStyle
24.若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackColor属性填充,则应______。
A)将Shape控件的FillStyle属性设置为2至7间的某个值,BackStyle属性设置为1
B)将Shape控件的FillStyle属性设置为0或1,BackStyle属性设置为1
C)将Shape控件的FillStyle属性设置为2至7间的某个值,BackStyle属性设置为0
D)将Shape控件的FillStyle属性设置为0或1,BackStyle属性设置为0
25.设窗体上有一个列表框控件List1,且其中有若干列表项,则以下能表示当前被选中的列表项内容的是______。
A)List1.list
B)List1.Text
C)List1.Intdex
D)List1.listIndex
26.下列______程序段能删除列表List1中的所有项。
A)Private Sub Command1_Click()
For I=0 To List.ListCount-1
List1.RemoveItem0
Next I
End Sub
B)Private Sub Command1_Click()
For I=0 To List.ListCount-1
List1.RemoveItem 1
Next I
End Sub
C)Private Sub Command1_Click()
For I=0 To List1.ListCount
List1.RemoveItem 0
Next I
End Sub
D)Private Sub Command1_Click()
For I=0 To List1.ListCount-1
List1.RemoveItem 1
Next I
End Sub
27.下面______控件不支持Change事件。
A)TextBox
B)ListBox
C)Label
D)PictureBox
28.在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:
Private Sub Form_Load()
List1.AddItem"357"
List1.AddItem"245"
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
29.要使用列表中的列表显示成复选框形式,则应将其Style属性设置为______。
A)0
B)1
C)True
D)False
30.窗体上画一个列表框和一个命令按钮,其名称分别为List1 和Command1,然后编写如下事件过程:
Private Sub Form_Load()
List1.Addltem "Item1"
List1.Addltem "Item2"
List1.Addltem "Item3"
End Sub
Private Sub Command1_Click()
List1.List(List1.Listcount)= "AAAA"
End Sub
程序运行后,单击命令按钮,其结果为______。
A)把字符串“AAAA”添加到列表框中,但位置不能确定
B)把字符串“AAAA”添加到列表框的最后(即item3的后面)
C)把列表框中原有的最后一项改为“AAAA”
D)把字符串“AAAA”插入到列表框的最前面(即item1的前面)
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
31.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干城市的名称。但单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是______。
A)Private Sub List_Click()
Label1.Caption=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
B)Private Sub List_Click()
Label1.Name=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
C)Private Sub List_Click()
Label1.Caption=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
D)Private Sub List_Click()
Label1.Name=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
32.以下叙述中错误的是______。
A)在KeyPree事件过程中不能识别键盘的按下与释放
B)在KeyPree事件过程中不能识别回车键
C)在KeyDown和KeyUp事件过程中,将键盘输入的“A”和“a”视作相同字母
D)在KeyDown和KeyUp事件过程中,从大键盘输入的“1”和从小键盘输入的“1”被视作不同的字符
33.以下关于KeyPress 事件过程中参数KeyAscii的叙述中正确的是______。
A)KeyAscii 参数是所按键的ASCII码
B)KeyAscii参数的数据类型为字符串
C)KeyAscii参数可以省略
D)KeyAscii 参数是所按键上标注的字符
34.假定编写如下事件过程:
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, _
X As Single,Y As Single)
If(Button And 2)=2 Then
Print"Hi"
End If
End Sub
程序运行后,为了在窗体上输出“Hi”,应在窗体上执行以下______操作。
A)只能按下左按钮并拖动
B)只能按下右按钮并拖动
C)必须同时按下左)右按钮并拖动
D)按下左按钮拖动或按下右按钮拖动都可
35.编写如下事件过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _
X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序运行后,为了在窗体上输出“Hello”,应在窗体上执行以下______操作。
A)同时按下Shift键和鼠标左按钮
B)同时按下Shift键和鼠标右按钮
C)同时按下Ctrl、Alt键和鼠标左按钮
D)同时按下Ctrl、Alt键和鼠标右按钮
36.在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序:
Private Sub Command1_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
37.假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是____。:
A)选择图片框,然后按Del键
B)执行语句Picture1.Picture=LoadPicture(“ ”)
C)执行语句Picture1.Picture=””
D)选择图片框,在属性窗口中选择Picture属性,然后按回车键
38.在窗体上画一个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
39. 对窗体编写如下事件过程:
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
BBBBB
B) BBBBB
AAAAA
C) AAAAA
D) BBBBB
40. 在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100,程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是
A) Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
B) Private Sub HScroll1_Click()
Text1.Text = HScroll1.Value
End Sub
C) Private Sub HScroll1_Change()
Text1.Text = HScroll1.Caption
End Sub
D) Private Sub HScroll1_ Click ()
Text1.Text = HScroll1.Value
End Sub
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
41. 在窗体上画一个列表框,然后编写如下两个事件过程:
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
42. 编写如下事件过程:
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X as Single,Y as Single)
If(Button And 3)=3 Then
Print “AAAA”
End if
程序运行后,为了在窗体上输出”AAAA”,应按下的鼠标键为____。
A) 左
B) 右
C) 同时按下左、右
D)按什么键都不显示
43. 在命令按钮的MouseDown、MouseUp和Click事件中,分别写入代码:
Print ”aaa”、 Print ”bbb”、 Print ”ccc” ,
程序运行后,单击命令按钮,窗体上将显示____。
A) aaa
bbb
ccc
B)ccc
aaa
bbb
C)aaa
ccc
bbb
D)ccc
bbb
aaa
44.在标签的MouseDown、MouseUp和Click事件中,分别写入代码:
Print ”aaa”、 Print ”bbb”、 Print ”ccc” ,
程序运行后,单击标签,窗体上将显示____。
A)aaa
bbb
ccc
B)ccc
aaa
bbb
C)aaa
ccc
bbb
D)ccc
bbb
aaa
45. 在窗体上画两个滚动条,名称分别为HScroll1、HScroll2;六个标签,名称分别为Label1、Label2、Label3、Label4、Label5、Label6,其中标签Label4~Label6分别显示“A”、“B”、“A*B”等文字信息,标签Label1、Label2分别显示其右侧的滚动条数值,Label3显示“A*B”的计算结果。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮“计算”时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中,以下不能实现上述功能的事件过程是:
A) Private Sub Command1_Chick()
Label3.Caption = Str(Val(Label1.Caption) * Val(Label2.Caption))
End Sub
B) Private Sub Command1_Chick()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C) Private Sub Command1_Chick()
Label3.Caption = HScroll1 * HScroll2
End Sub
D) Private Sub Command1_Chick()
Label3.Caption = HScroll1.Text * HScroll2.Text
End Sub
46. 在窗体上有一个文本框控件,名称为为TxtTime;一个计时器控件,名称为Timer1,要求每一秒在文本框中显示一次当前的时间。程序为:
Private Sub Timer1_ _____()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是______。
A)Enabled
B)Visble
C)Interval
D)Timer
47. 在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”。要求程序运行时,“宋体”单选按钮和"粗体"复选框被选中,则能够实现上述要求的语句序列是______。
A) Option1.Value=True
Check1.Value=False
B) Option1.Value=True
Check1.Value=True
C) Option2.Value=False
Check1.Value=True
D) Option1.Value=True
Check1.Value=1
48. 如果只允许在列表框中每次只能选择一个列表项时,则应将其Multiselect属性设置为:_____。
A)0
B)1
C)2
D)3
49. 要将一个组合框设置为简单组合框(Simple Combo),则应该将其Style属性设置为______。
A)0
B)1
C)2
D)3
50. 为了能在列表框中使用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为______。
A)0
B)1
C)2
D)3
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
51.在用菜单编辑器设计菜单时,必须输入的项有 ________。
A) 标题
B) 快捷键
C) 索引
D) 名称
52.在下列关于菜单的说法中,错误的是________。
A) 每个菜单项与其他控件一样也有自己的属性和事件
B) 除了Click事件之外,菜单项还能响应其他如DblClick等事件
C) 菜单项的快捷键不能任意设置
D) 程序运行时,若菜单项的Enabled属性为False,则该菜单项变成灰色
53.在下列关于对话框的叙述中,错误的是________。
A) CommonDialog1.ShowFont 显示字体对话框
B) 在打开对话框中,用户选择的文件名可以经FileTitle属性返回
C) 在打开对话框中,用户选择的文件名及路径可以经 FileName属性返回
D) 通用对话框中可以制作和显示帮助对话框
54.菜单的热键指使用Alt键和菜单标题中的一个字符来打开菜单,建立热键的方法是在菜单标题的某个字符前加上一个 ________字符。
A) %
B) $
C) &
D) #
55.要将通用对话框 CommonDialog1设置成不同的对话框,应通过________属性来设置。
A) Name
B) Action
C) Tag
D) Left
56. 关于多重窗体的叙述中,正确的是 ________。
A) 作为启动对象的Main子过程只能放在窗体模块内
B) 如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况决定是否加载哪一个窗体
C) 没有启动窗体,程序不能运行
D) 以上都不对
57.在VB中,除了可以指定某个窗体作为启动对象外,还可以指定________作为启动对象。
A)事件
B)Main 子过程
C)对象
D)菜单
58. 以下语句正确的是 ________。
A) CommonDialog1.Filter = All Files|*.*|Picture(*.bmp)|*.bmp
B) CommonDialog1.Filter="All Files"|"*.*"|"Picture(*.bmp)"|"*.bmp"
C) CommonDialog1.Filter="All Files|*.*|Picture(*.bmp)|*.bmp"
D) CommonDialog1.Filter={All Files|*.*|Picture(*.bmp)|*.bmp}
59. 如果Form1是启动窗体,并且Form1的load事件过程中有Form2.Show,则程序启动后 ________。
A) 发生一个运行错误
B) 发生一个编译
C) 在所有的初始化代码运行后Form1是活动窗体
D) 在所有的初始化代码运行后Form2是活动窗体
60. 当用户将焦点移到另一个应用程序时,当前应用程序的活动窗体将 ________。
A) 发生DeActive事件
B) 发生LostFocus事件
C) 发生DeActive和LostFocus事件
D) DeActive和LostFocus事件都不发生
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
61. 窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于 500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能.在以下程序中问号(?)处应填入的内容是______。
Private Sub Text1_LostFocus()
Call CheckInput(Text1,500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2,1000)
End Sub
Sub CheckInput(t As ?,x As Integer)
If Val(t.text)>x Then
MsgBox”请重新输入!”
End If
End Sub
A)Text
B)SelText
C)Control
D)Form
62. 设菜单中只有一个菜单项为“Open”。若要为该菜单命令设置访问键,即按下Alt及字母O时,能够执行“Open”命令,则在菜单编辑器中设置“Open”命令的方式是______。
A)把Caption属性设置为 &Open
B)把Caption属性设置为 O&pen
C)把Name属性设置为 &Open
D)把Name属性设置为 O&pen
63. 在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
CommonDialog1.Filter="All Files(*.*)|*.*|TextFiles”& _
”(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"
CommonDialog1.FilterIndex = 3
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。
A)All Files(*.*)
B)Text Files(*.txt)
C)Executable File(*.exe)
D)不确定
64. 在Visual Basic工程中,可以作为“启动对象“的程序是______。
A)任何窗体或标准模块
B)任何窗体或过程
C)Sub Main过程或其他任何模块
D)Sub Main 过程或任何窗体
65. 以下叙述中错误的是______。
A)在程序运行时,通用对话框控件是不可见的
B)在同一个程序中,用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用
C)调用通用对话框控件的ShowOpen方法,可以直接打开在该通用对话框中指定的文件
D)调用通用对话框控件的ShowColor方法,可以打开颜色对话框
66. 在窗体上画1个文本框,其名称Text1,然后编写如下过程:
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为______。
A)A
A
B)A
B
C)A
C
D)A
D
67. 窗体的MouseDown事件过程______。
Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
有4个参数,关于这些参数,正确的描述是
A)通过Button参数判定当前按下的是哪一个鼠标键
B)Shift参数只能用来确定是否按下Shift
C)Shift参数只能用来确定是否按下Alt和Ctrl键
D)参数x,y用来设置鼠标当前位置的坐标
68. 程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是______。
A)MouseDown
B)MouseUp
C)Load
D)Click
69. 以下叙述中错误的是______。
A)下拉式菜单和弹出式菜单都用菜单编辑器建立
B)在多窗体程序中,每个窗体都可以建立自己的菜单系统
C)除分隔线外,所有菜单项都能接收Click事件
D)如果把一个菜单项的Enable属性设置为False,则该菜单项不可见
70. 以下说法正确的是______。
A)任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器
B)只有当某个窗体为当前活动窗体时,才能打开菜单编辑器
C)任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器
D)以上说法均不正确
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
71. 假定有下面所列的菜单结构:
标题 名称 层次
显示 Appear 1(主菜单)
大图标 Bigicon 2(子菜单)
小图标 Smallicon 3(子菜单)
要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是______。
A)Private Sub Bigicon_Click()
Bigicon.Checked=False
End Sub
B)Private Sub Bigicon_Click()
Me.Appear.Bigicon.Checked=True
End Sub
C)Private Sub Bigicon_Click()
Bigicon.Checked=True
End Sub
D)Private Sub Bigicon_Click()
Appear.Bigicon.Checked=False
End Sub
72. 在用菜单编辑器设计菜单时,必须输入的项是______。
A)名称
B)标题
C)快捷键
D)索引
73. 假定一个工程有一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下:
Public x As Integer
Public y As Integer
Sub S1()
x = 1
S2
End Sub
Sub S2()
y = 10
Form1.Show
End Sub
Model2代码如下:
Sub Main()
S1
End Sub
其中 sub Main 被设置为启动过程。 程序运行后,各模块的执行顺序是______。
A)form1→Model1→Model2
B)Model1→Model2→Form1
C)Model2→Model1→Form1
D)Model2→Form1→Model1
74. 如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是______。
A)如果工程中含有SubMain过程,则程序一定首先执行该过程
B)不能把标准模块设置为启动模块
C)用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D)任何时刻最多只有一个窗体是活动窗体
75. 在窗体上画一个名称为CommonDialog1 的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "all file|*.*|(*.DoC)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "VBTest"
CommonDialog1.Action = 1
End Sub
对于这个程序,以下叙述中错误的是______。
A)该对话框被设置为“打开”对话框
B)在该对话框中指定的默认文件名为空
C)该对话框的标题为VBTest
D)在该对话框中指定的默认文件类型为文本框(*.Txt)
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
二、 填空题
1.复选框 【1】 属性设置为2—Grayed时,变成灰色,禁止用户使用。
2.组合框是组合了文本框和列表框的特性而形成的一种控件。 【2】 风格的组合不允许用户输入列表框中没有的选项。
3.滚动条响应的重要事件有 【3】 和Change。
4.当用户单击滚动条的空白处时,滑块移动的增量由 【4】 属性决定。
5.在对象的KeyPress事件过程中,参数KeyAscii表示所按键的__【5】__值。
6.在程序运行时,如果将框架 【6】 属性设置为False,则框架的标题呈灰色,表示框架内的所有的对象均被屏蔽,不允许用户对其进行操作。
7.当用户单击右键时,MouseDown、MouseUp和MouseMove事件过程的Button参数值为 【7】 。
8.当用户同时按下Ctrl和Shift并单击鼠标时,MouseDown、MouseUp和MouseMove事件过程的Shift参数值为 【8】 。
9.只要将MousePoint属性设置为 【9】 ,鼠标指针就恢复原样。
10.如果将窗体的 【10】 属性设置为True,则控件的KeyPress事件过程可以接收到在窗体的KeyPress过程中修改过的KeyAscii 值。
11.下面的程序段是将列表框List1中重复的项目删除,只保留一项。
For i = 0 To List1.ListCount – 1
For j = List1.ListCount – 1 To 【11】 Step – 1
If List1.List(i) = List1.List(j) Then
【12】
End If
Next j
Next i
12.下列程序段是允许用户按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 【13】 Then
flag = True
Exit for
End If
Next i
If 【14】 Then
【15】
Else
MsgBox(“组合框中已有该项目!”)
End If
End If
End Sub
13.在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Textl.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Texl1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是_【16】____ 。
14.列表框中列表项的数目可通过__【17】__属性获得。
15.为了使计时器控件Timer1每隔1秒触发一次Timer事件,应将Timer1控件的_【18】___属性设置为__【19】___。
16.在窗体上画一个名称为Command1)标题为"计算"的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1)Label2)Label3和Label4,标题分别为"操作数1")"操作数2")"运算结果"和空白;再建立一个含有4个单选按钮的控件数组,名称为Option1,标题分别为"+")"-")"*"和"/"。程序运行后,在Text1)Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Label4中。请在____处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
For i = 0 To 3
If _【20】___ = True Then
opt = Option1(i).Caption
End If
Next
Select Case _【21】___
Case "+"
Result = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Result = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Result = Val(Text1.Text) * Val(Text2.Text)
Case "/"
Result = Val(Text1.Text) / Val(Text2.Text)
End Select
_【22】___ = Result
End Sub
17. 菜单的热键指使用 【23】 键和菜单项标题中的一个字符打开菜单。
18. 建立热键的方法是在菜单标题的某个字符前加一个 【24】 符号,在菜单中这一字符会自动加上下划线,表示该字符是一个热键。
19. 如果把菜单的 【25】 属性设置为True, 则该菜单项将成为一个选项。
20. 不管是在窗口顶部的菜单条上显示菜单还是隐藏菜单,都可以用 【26】 方法把它们作为弹出菜单,在程序运行期间显示出来。
21. 假定有一个通用对话框CommonDialog1,除了可以用CommonDialog1.Action=3显示颜色对话框外,还可以用 【27】 方法显示。
22. 在显示字体对话框之前必须设置 【28】 属性,否则将发生不存在的字体错误。
23. 在用Show方法后显示自定义的对话框时,如果Show方法之后带 【29】 参数,就将窗体作为模式对话框显示。
24. 如果在建立菜单时,在标题文本框中输入一个" 【30】 ",那么菜单显示时,形成一个分割线。
25. CommonDialog是ActiveX控件,需要通过 【31】 命令选择Microsoft Common Dialog 6.0选项,将CommonDialog控件添加到工具箱中。
26.在菜单编辑器中建立一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。
Form1.__ 【32】__ .pmenu
27.在菜单编辑器中建立一个菜单,其主要菜单项的名称为mnuEdit,Visible属性为False。程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序,请填空。
Private Sub Form_ __【33】___(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
__【34】___ mnuEdit
End If
End Sub
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
参考答案
一、单选题
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 |
B | B | A | A | C | D | D | D | B | D | D | D | B | C | C |
16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 |
C | D | D | A | C | A | D | A | A | B | A | B | B | B | B |
31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 |
C | B | A | B | D | A | B | D | A | A | D | C | C | A | D |
46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 |
D | D | A | B | C | D | B | D | C | B | B | B | C | C | D |
61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 |
C | A | C | D | C | C | A | C | D | B | C | A | C | A | D |
二、填空题
【1】 | Value | 【2】 | 下拉式列表框 |
【3】 | Scroll | 【4】 | LargeChange |
【5】 | ASCII码值 | 【6】 | Enabled |
【7】 | 2(vbRightButton) | 【8】 | 3(vbShiftMask or vbCtrlMask) |
【9】 | 0(vbDefault) | 【10】 | KeyPreview |
【11】 | i + 1 | 【12】 | List1.RemoveItem j |
【13】 | CboComputer.Text = CboComputer.List(i) | 【14】 | Not flag |
【15】 | CboComputer.AddItem CboComputer.Text | 【16】 | ABCD |
【17】 | Listcount | 【18】 | Interval |
【19】 | 1000 | 【20】 | Option(i).Value |
【21】 | opt | 【22】 | Label4.Caption |
【23】 | Alt | 【24】 | & |
【25】 | Checked | 【26】 | PopupMenu |
【27】 | CommonDialog1.ShowColor | 【28】 | Flags |
【29】 | 1(vbModal) | 【30】 | _ (下划线) |
【31】 | 工程|部件… | 【32】 | PopupMenu |
【33】 | MouseDown或MouseUp | 【34】 | PopupMenu |
编辑推荐:
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案