Private Sub combo1_click()
list   '单击combo1后控件显示为空,如何显示值为 上海
End Sub

Private Sub Form_Load()
Combo1.AddItem "广东"
Combo1.AddItem "山西"
Combo1.Text = "北京"
End Sub
Private Sub list()
Combo1.Clear
Combo1.AddItem "广东"
Combo1.AddItem "山西"
Combo1.Text = "上海"
Print "显示combo1的值为 上海"
End Sub