在对象引用中，ActiveControl表示( )

A．包含对象的表单

B．包含对象的表单集

C．当前活动表单

D．当前活动表单中有焦点的控件

窗体上有一个组合框，其中已输入了若干项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图5中的“重庆”，则与“北京”交换，得到图6的结果。下面是可实现此功能的程序，请填空。

Private Sub Combo1_Click()
Dim temp
temp=Combo1.Text
______=Combo1.List(0)
Combo1.List(0)=temp
End Sub