UC知道VB如何显示以点的菜名
来源：百度知道 编辑：UC知道 时间：2024/09/28 14:38:33
Private Sub Command1_Click()
MsgBox "您点的菜是" & i, 1, "菜单确认"
End Sub
Private Sub Form_Load()
Dim i%
a = Array("麻辣茭白", "梅菜扣肉", "清蒸白鱼", "水晶肴肉", "铁板牛柳", "虾仁蒸饺", "香酥鸭 ", "鱼香茄子", "家常豆腐", "竹筒饭 ", "夫妻肺片", "干煸鳝鱼", "宫保鸡丁", "火爆腰花", "蚂蚁上树", "软炸虾仁", "生菜牛肉", "蒜泥白肉", "蒜香排骨", "糖醋里脊", "回锅肉 ", "杏仁豆腐", "鱼香肉丝", "松鼠鳜鱼", "盐水鸭 ", "佛跳墙 ", "狮子头 ", "红烧肉 ", "辣子鸡丁", "红烧排骨", "凉拌苦瓜", "麻婆豆腐", "拔丝香芋", "牙签牛肉", "松子玉米", "清蒸鲈鱼", "酱牛肉 ", "宫爆鸡丁")
b = Array(10, 18, 20, 20, 20, 15, 18, 10, 10, 10, 15, 20, 18, 20, 20, 15, 20, 18, 25, 25, 18, 25, 20, 25, 28, 18, 18, 18, 20, 20, 12, 12, 1
MsgBox "您点的菜是" & i, 1, "菜单确认"
End Sub
Private Sub Form_Load()
Dim i%
a = Array("麻辣茭白", "梅菜扣肉", "清蒸白鱼", "水晶肴肉", "铁板牛柳", "虾仁蒸饺", "香酥鸭 ", "鱼香茄子", "家常豆腐", "竹筒饭 ", "夫妻肺片", "干煸鳝鱼", "宫保鸡丁", "火爆腰花", "蚂蚁上树", "软炸虾仁", "生菜牛肉", "蒜泥白肉", "蒜香排骨", "糖醋里脊", "回锅肉 ", "杏仁豆腐", "鱼香肉丝", "松鼠鳜鱼", "盐水鸭 ", "佛跳墙 ", "狮子头 ", "红烧肉 ", "辣子鸡丁", "红烧排骨", "凉拌苦瓜", "麻婆豆腐", "拔丝香芋", "牙签牛肉", "松子玉米", "清蒸鲈鱼", "酱牛肉 ", "宫爆鸡丁")
b = Array(10, 18, 20, 20, 20, 15, 18, 10, 10, 10, 15, 20, 18, 20, 20, 15, 20, 18, 25, 25, 18, 25, 20, 25, 28, 18, 18, 18, 20, 20, 12, 12, 1
啊
你这个总体思路有点需要修改。
1、按钮一用于确定，确定后就不需要在确定了。所以按钮一的事件应修改为直接进入下一步（例如给出消费小票、向厨房下单子之类）
2、label的作用没有用好，这里应该显示总价，而你却显示的是最后偶一个价格。应该修改成当前list2的合计。
3、你假定了每样菜只有一份，且不分大小盘。是否要维持？
第一点、第三点要等你进一步明确。
其余修改如下：
Private Sub Form_Load()
Dim i%
Label1 = ""
a = Array("麻辣茭白", "梅菜扣肉", "清蒸白鱼", "水晶肴肉", "铁板牛柳", "虾仁蒸饺", "香酥鸭 ", "鱼香茄子", "家常豆腐", "竹筒饭 ", "夫妻肺片", "干煸鳝鱼", "宫保鸡丁", "火爆腰花", "蚂蚁上树", "软炸虾仁", "生菜牛肉", "蒜泥白肉", "蒜香排骨", "糖醋里脊", "回锅肉 ", "杏仁豆腐", "鱼香肉丝", "松鼠鳜鱼", "盐水鸭 ", "佛跳墙 ", "狮子头 ", "红烧肉 ", "辣子鸡丁", "红烧排骨", "凉拌苦瓜", "麻婆豆腐", "拔丝香芋", "牙签牛肉", "松子玉米", "清蒸鲈鱼", "酱牛肉 ", "宫爆鸡丁")<