( 21 ) 在窗体上画一个名称为List1 的列表框,一个名称为 Label1 的标签,列表框中显示若干城市的名称 。 当单击列表框中的某个城市名时 , 该城市名从列表框中消失 , 并在标签中显示出来 。 下列能正确实现上述操作的程序是
A ) Private Sub List1_Click()
Label1.Caption = List1.ListIndex
List1.RemoveItem List1.Text
End Sub
B ) Private Sub List1_Click()
Label1. Name = List1. ListIndex
List1.RemoveItem List1.Text
End Sub
C ) Private Sub List1_Click()
Label1.Caption = List1.Text
List1.RemoveItem List1.ListIndex
End Sub
D ) Private Sub List1_Click()
Label1.Name = List1.Text
List1.RemoveItem List1.ListIndex
End Sub
第1题:
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是______。
A.Private Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End Sub
B.Private Sub List1_Click() Label1.Name=List1.ListIndex List1.RemoveItem List1.Text End Sub
C.Private Sub List1_Click() Label1.Cavtion=List1.Text List1.RemoveItem List1.ListIndex End Sub
D.Private Sub List1_Click() Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub
第2题:
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A.Private Sub List1 Click() Label1.Caption=List1.List- Index End Sub
B.Private Sub List1_Click() Label1.Name=List1. ListIn- dex End Sub
C.Private Sub List1 Click() Label1.Name=List1.Text End Sub
D.Private Sub List1_Click() Label1.Caption=List1.Text End Sub
第3题:
在窗体上画一个名称为List1的列表框,一个名称为Labe11的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是( )。
A.
B.
C.
D.
第4题:
在窗体上画一个名称为Listl的列表框,一个名称为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题:
在窗体上画一个名称List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单
A.Private Sub list1_Click() Label1. Caption= List1. ListIndex End Sub
B.Private Sub Listl_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