这道VB怎么做?

有一道VB程序代码的问题

只需在窗体添加一个command和2个listbox控件就可以,剩下的代码如下: Private Sub Command1_Click() List1。AddItem (InputBox("请输入内容", "输入"))'用户输入文本后将文本添加到list1里 End Sub Private Sub List1_DblClick() List2。 AddItem (List1。Text)'双击list1的选中文本时,list2添加选中的文本 List1。RemoveItem (List1。ListIndex)'移除list1的选中项 End Sub Private Sub List2_Db...全部

  只需在窗体添加一个command和2个listbox控件就可以,剩下的代码如下: Private Sub Command1_Click() List1。AddItem (InputBox("请输入内容", "输入"))'用户输入文本后将文本添加到list1里 End Sub Private Sub List1_DblClick() List2。
  AddItem (List1。Text)'双击list1的选中文本时,list2添加选中的文本 List1。RemoveItem (List1。ListIndex)'移除list1的选中项 End Sub Private Sub List2_DblClick() List1。
  AddItem (List2。Text) List2。RemoveItem (List2。ListIndex) End Sub 。收起