2012年计算机二级VB用户界面设计练习题及答案(4)
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