在窗体上添加一个combo1和一个list1控件,输入以下代码: Private Sub Form_Load()Combo1.AddItem "AAA"Combo1.AddItem "BBB"Combo1.AddItem "CCC"Combo1.AddItem "DDD"End SubPrivate Sub Combo1_Click()List1.AddItem Combo1.TextEnd Sub
Private Sub Form_Load() With Combo1 .AddItem "a" .AddItem "b" .AddItem "c" .ListIndex = 0 End WithEnd Sub Private Sub Combo1_Click() List1.AddItem Combo1.TextEnd Sub