Question

想用VB做点餐系统 如何将list中的菜单字符变为数据，并求和后显示到Label上

如何将list1中为全部菜品，list2中为客户已选菜品。问：如何让List2中菜品对应到价格，并且将其求和，并在label1中显示现已编辑如下：Private Sub Command1_Click()List1.ClearList1.AddItem "1号奶茶"List1.AddItem "2号奶茶"List1.AddItem "3号奶茶"List1.AddItem "4号奶茶"List1.AddItem "5号奶茶"End SubPrivate Sub Command2_Click()List1.ClearList1.AddItem "1号果汁"List1.AddItem "2号果汁"List1.AddItem "3号果汁"List1.AddItem "4号果汁"End SubPrivate Sub Command3_Click()List1.ClearList1.AddItem "1号甜品"List1.AddItem "2号甜品"List1.AddItem "3号甜品"End SubPrivate Sub Command6_Click()For j = 0 To List1.ListCount - 1If List1.Selected(j) ThenList2.AddItem List1.List(j)End IfNext jEnd SubPrivate Sub List1_DblClick()List2.AddItem List1.TextEnd SubPrivate Sub List2_dblClick()List2.RemoveItem List2.ListIndexEnd Sub
如何让label1 显示2号奶茶+4号奶茶的价格之和





Answer 1

有价格 有数量 直接计算和 显示在里面即可呀

Answer 2

整套系统你可以找我定做