假設當前選中的項目是S(列表框中的壹行)。
1，給每道菜編號，比如:01-水煮魚，02-宮保雞丁...使用數組(如arrPrice)保存價格，索引相應的數字，並獲得價格:
P = arrPrice(val(Mid(s，1，2))'這裏默認的數字是2位數，也就是最多99種菜，可以擴展。
只需計算所有選中的價格。
2.列表框有壹個屬性ItemData(Index ),可以存儲額外的數字(整數)。如果用這個屬性來節約價格，就不需要數字(或者數組)。訂購時，復制該屬性，並計算該屬性的值。
List1。AddItem“水煮魚——40元”
list1。ItemData(0)=40
..
3.當然也可以提取當前格式的價格，這需要分析字符串。對於倒串，最後的“-”和“元”是價格。
S2 = strverse (s)'反轉字符串，即“123”變成“321”。
NPos = Instr(s2，"-" '查找第壹個"-"，因為是倒排的，所以是原字符串中的最後壹個"--"。
如果nPos & gt。0然後p = val (STRREVERSE (MID (S2，2，NPOS-2))'得到價格，然後再反過來轉換成數字。
如果價格格式是固定的(如固定2位數)，可以簡化為壹句話:
p = mid(s，len(s)-2，2)