求高手写VB程序编码~高分悬赏~万分感谢

来源：百度知道 编辑：UC知道 时间：2024/05/14 02:15:57
要制作一个点餐系统。就是用复选框在所需要的食品旁边打钩，list就会出现其价格，然后，按点餐command，就会把所点的食品的价格相加显示在list里。

比如A.汉堡10元
B.可乐3元
C.薯条5元

在A，B旁打钩，按“点餐”命令，显示其应付价格13元。

就是这个代码....会追加分~

控件：画一个复选按钮，将其复制粘贴2次，得到check1（0），check1（1），check1（2），一个listbox，一个textbox，一个command。
程序代码如下：
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim sum As Single

Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
a = 13
List1.AddItem "汉堡 " & a
Case 1
b = 3
List1.AddItem "可乐 " & b
Case 2
c = 3
List1.AddItem "薯条 " & c
End Select
End Sub

Private Sub Command1_Click()
sum = a + b + c
Text1.Text = sum
End Sub