1、1界面用了皮肤控件 2左边用了一个表格控件显示分类信息 3左边下面用了一个表格控件来显示小计 4右边用了2个STAb 多选项卡控件来放菜单 5其他都是按钮，按钮用数组的方式，才好控制 相对较简单；Private Sub Command1_ClickMsgBox quot总金额quot = Stra #39这个地方错了，应该是 MsgBox quot总金额quot Stra ，连接符要用 或+ End Sub。
2、给你最基础的代码，便于你理解Private Sub Form_Load Form1Caption = quot点餐quot Frame1Caption = quot菜单quot Check1Caption = quot儿童套餐18元quot Check2Caption = quot标准套餐23元quot Check3Caption = quot商务套餐；Private Sub Command1_Click Dim Flavor As String， MeatDishes As String， Vegetables As String， DeliveryAddress As String For i = 0 To 2 If Option1iValue = True Then Flavor = Option1iCapt。
3、判断购物车是否放东西第一次点餐if cartisEmpty CartItemBean cartBean = new CartItemBeanfood， 1cartputfoodID， cartBean else 判断当前菜是否在购物车中，false表示当前菜没有被；Public Class Form1 Private Sub Button2_ClickByVal sender As SystemObject， ByVal e As SystemEventArgs Handles qkClick ListBox1ItemsClearEnd Sub Private Sub Button1_ClickByVal sender As。
4、要制作一个点餐系统就是用复选框在所需要的食品旁边打钩，list就会出现其价格，然后，按点餐command，就会把所点的食品的价格相加显示在list里比如A汉堡10元 B可乐3元 C薯条5元 在A，B旁打钩，按“点餐”命令。
