无忧首页企业系统我的无忧
无忧服务:
兼职活动培训
娱乐交友:
交友社区资讯
全职实习:
实习暑假寒假
微信号:school51
扫一下,立即关注
加关注
在线支付,立省10元
下载新版APP
===大学生成长生活平台===

2012年计算机二级VB用户界面设计练习题及答案

2012-12-26来源/作者:卫凯点击次数:4707

用户界面设计

  一、 单选题

  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考试形参实参考前冲刺习题及答案





相关阅读



关于我们 | 联系我们 | 用户指南 | 网站地图 | 意见建议 | 会员注册 | 用户协议 | 隐私政策