15
14
5
4
第1题:
执行以下语句过程,在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub( )。
A.ab
B.bd
C.ac
D.出错
第2题:
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。
A.Private Sub Text1_Change() Labell.Caption=Text1.Text End Sub
B.Private Sub Text1_Click() Labell.Caption=Text1.Text End Sub
C.Private Sub Labell_Change() Labell.Caption=Text1.Text End Sub
D.Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
第3题:
( 12 )窗体中有两个命令按钮: “ 显示 ” (控件名为 cmdDisplay )和 “ 测试 ” (控件名为 cmdTest ) 。 当单击 “ 测试 ” 按钮时 , 执行的事件功能是 : 首先弹出消息框 , 若单击其中的 “ 确定 ” 按钮 , 则隐藏窗体上的 “ 显示 ” 按钮:否则直接返回到窗体中。请在空白处填入适当的语句,使程序可以完成指定的功能。
Private Sub cmdTest Click ( )
Answer= 【 12 】( “ 隐藏按钮? ” , vbOKCancel+vbQuestion, “ Msg ” )
If Answer=vbOK Then
Me{cmdDisplay.Visible= 【 13 】
End If
End Sub
第4题:
在窗体上画一个名称为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
第5题:
窗体中有两个命令按钮:“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。以下事件过程的功能是:单击“测试”按钮时,窗体上弹出一个消息框。如果单击消息框的“确定”按钮,隐藏窗体上的“显示”命令按钮;单击“取消”按钮关闭窗体。按照功能要求,将程序补充完整。 Private Sub cmdTest_Click()
Answer= (“隐藏按钮”,vbOKCancel)
If Answer=vbOK Then
cmdDisplay.Visible=
Else
Docmd.Close
End If
End Sub
Msgbox,False
第6题:
在运行程序的过程中,当执行“复制”(mnuEditCopy)命令时,使“粘贴”(munEditPaste)命令变为可用,则应做如下处理( )。
A.Private Sub nuEditPaste_Click() …… mun EditPaste.Enable=True End Sub
B.Private Sub mnuEditCopy click …… muEditPaste.Enable=True End Sub
C.Privat Sub munEditPaste_Click() …… mnuEditPaste.Visible=Tme End Sub
D.Private Sub munEditCopy_ClicK() …… munEditPaste.Visible=Tme End Sub
第7题:
在窗体上画一个名为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
第8题:
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干国家的名称,当单击别表中的某个国家名时,在标签中显示选中国家的名称。下列正确实现上述功能的程序是。A. Private Sub List1_Click() Labell.Caption=List1.ListIndex End SubB. Private Sub List1_Click() Labell.Name=List1.ListIndex End SubC. Private Sub List1_Click() Labell.Name=List1.Text End SubD. Private Sub List1_Click() Labell.Caption=List1.Text End Sub
第9题:
在窗体上画一个名称为Listl酌列表框,一个名称为Labell的标签,列表框中显示若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是:______。
A. Private Sub Listl_Click() Labell.Caption=Listl.ListIndex End Sub
B.Private Sub Listl_Click() Labell.Name=Listl.ListIndex End Sub
C.Private Sub Listl_click() Labell.Name=Listl.Text End Sub
D.Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub
第10题:
在窗体上画一个名称为List1的列表框,一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 ______。
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