Question

VB：设计如图程序，实现“饭店点菜”，代码写下面





Answer 1

根据你的题目要求写的代码，你自己把控件都设置好，直接运行就可以了，代码我都测试过，没问题的。
Private Sub Command1_Click()
Me.List2.AddItem List1.Text
Me.List1.RemoveItem (Me.List1.ListIndex)
End Sub

Private Sub Form_Load()
With Me.List1
.AddItem "宫保鸡丁"
.AddItem "红烧带鱼"
.AddItem "红烧牛肉"
.AddItem "麻婆豆腐"
.AddItem "青菜蘑菇"
.AddItem "香菇油菜"
.AddItem "香辣鸡翅"
.AddItem "鱼香肉丝"
.AddItem "过油肉"
.AddItem "雪盖火山"
.AddItem "蚂蚁上树"
End With
End Sub