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 相关资料 |
