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

<img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/25b92cd3b1167e5d52bc29ee7a6d7e48.gif' /><img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/3e5d1fedf777f05c1788c4e8da2f65dd.gif' /> Private Sub Combo1_Click() Dim temp temp = Combo1.Text [6] = Combo1.List(0) Combo1.List(0) = temp End Sub

时间:2023-10-05 16:14:45

相似题目