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

最新推荐文章于 2023-06-05 04:53:13 发布

鲸商

最新推荐文章于 2023-06-05 04:53:13 发布

阅读量1.8k

点赞数

文章标签：计算机用户界面设计方法

用户界面设计

一、单选题

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) 以上都不对

来源:教育联展网-计算机二级考试

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

来源:教育联展网-计算机二级考试

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的前面)

来源:教育联展网-计算机二级考试

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

来源:教育联展网-计算机二级考试

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

来源:教育联展网-计算机二级考试

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事件都不发生

来源:教育联展网-计算机二级考试

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

B)A

C)A

D)A

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)以上说法均不正确

来源:教育联展网-计算机二级考试

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

End Sub

Sub S2()

y = 10

Form1.Show

End Sub

Model2代码如下：

Sub Main()

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)

来源:教育联展网-计算机二级考试

二、填空题

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 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

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

来源:教育联展网-计算机二级考试

参考答案

一、单选题

二、填空题

【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

来源:教育联展网-计算机二级考试

鲸商

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
计算机用户界面设计方法,2012年计算机二级VB用户界面设计练习题及答案

用户界面设计一、单选题1．下列控件中没有Caption属性的是 ________。A) 框架···B) 列表框C)复选框D) 单选按钮2．复选框的Value 属性为 1 时，表示 ________。A) 复选框未被选中B) 复选框被选中C) 复选框内有灰色的勾D) 复选框操作有误3．用来设置斜体字的属性是 ________。A) FontItalicB) FontBoldC) FontNam...
复制链接

扫一扫