![[填空题] 窗体上有一个组合框，其中已输入了若干项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图5中的“重庆”，则与“北京”交换，得到图6的结果。下面是可实现此功能的程序，请](http://www.mshxw.com/aiimages/31/256222.png "[填空题] 窗体上有一个组合框，其中已输入了若干项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图5中的“重庆”，则与“北京”交换，得到图6的结果。下面是可实现此功能的程序，请")
[填空题] 窗体上有一个组合框，其中已输入了若干项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图5中的“重庆”，则与“北京”交换，得到图6的结果。下面是可实现此功能的程序，请填空。
![[填空题] 窗体上有一个组合框，其中已输入了若干项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图5中的“重庆”，则与“北京”交换，得到图6的结果。下面是可实现此功能的程序，请](/uploadfile/member/20180926/1537964979.jpg "[填空题] 窗体上有一个组合框，其中已输入了若干项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图5中的“重庆”，则与“北京”交换，得到图6的结果。下面是可实现此功能的程序，请")
Private Sub Combo1_Click()
Dim temp
temp=Combo1.Text
______=Combo1.List(0)
Combo1.List(0)=temp
End Sub
参考答案：
Combo1.List(Combo1.ListIndex)问题解析:
本题实际上就是要通过交换来修改组合框的第一项和当前选中一项的值，要改变列表框和组合框某选项的值，都应该通过列表框和组合框的List属性进行修改，第一项的值Combo1.List(0)应该赋给当前选中的一项，而当前被选中这一项的下标为Combo1.ListIndex，所以第[12]空应填写Combo1.List(Combo1.ListIndex)。
