课程设计报告书

《课程设计报告书》由会员分享，可在线阅读，更多相关《课程设计报告书（36页珍藏版）》请在装配图网上搜索。

1、课程设计报告书（饭店点菜系统）班 级：交0803-4学 号：20081679姓 名：刘 智 敏指导教师：李 静石家庄铁道学院2009年07月12号题目： 饭店点菜系统摘要：本程序设计报告的题目是饭店点菜系统，报告内容包括点菜系统的功能介绍，设计思想、功能模块和流程图说明数据结构、中心算法代码说明，以及程序如何运行及运行效果说明，最后说明了统使用、计心得体会（设计收获、设计中遇到的困难和问题、设计题目及功能的改进意见，对课程设计的建议等等）。通过实践对于窗体，常用控件有了更深意义上的理解。关键字： 窗体 控件 列表框 1、课程设计题目要求41.1主要功能有42、关于系统42.1、设计思想42.2

2、、系统完成功能42.3、功能框图52.4、界面设计52.4.1点菜主界面52.4.2菜系界面介绍72.5、核心算法及说明92.6结论153、后记154、参考文献155、附录155.1主界面155.2主界面165.3烤肉类195.4饼类225.5凉菜类245.6炒菜类265.7主食类285.8汤类315.9抽奖335.10留言板351、课程设计题目要求1.1主要功能有菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；留言板功能：记录顾客的意见和建议，并具有浏览功能；抽奖功能：当顾客的消费达到指定金额时，可分档抽取小奖品。2、关于系统2

3、.1、设计思想主菜单上分6个菜系，分别用6个按钮控制，按相应的命令按钮进入相应的菜系，每个菜系为一个单独的界面，在主菜单上有选菜的总清单，同时显示总的消费额，若金额大于199元，原来被隐藏的抽奖按钮显示，点击进入抽奖界面，点击后按钮被隐藏，以此来防止重复抽奖。每类菜系有各自的界面，其设计思路相似。在列表框 1中显示本菜系的菜的品种及其价格，其价格用相应的数组来记录，用列表框2来显示顾客在本菜系选择的菜，可以实现退菜的功能，用列表框3来记录所选中的菜的各自价格，text用来记录本菜系的的消费额。顾客每作出一个选择则显示此步操作所带来的在本菜系的消费额，在顾客点击每道菜是image中出现对应的图片

4、，在菜系的最下面则是本菜系中所有菜的效果图。主菜单中的总菜单为各个菜系的列表框2的相加，价格为各个text的相加。2.2、系统完成功能记录各个菜系的顾客所作出的选择，记录其价格，在主菜单上显示其点菜清单计算总价格，并根据总消费额来判断是否出现抽奖按钮。总消费额达到199元后可以进入抽奖，以时间控件产生的随机数为划分标准进行抽奖。在抽奖后顾客可以对本次服务留言，并可以显示原来顾客的留言记录2.3、功能框图饭店点菜系统点菜抽奖留言板2.4、界面设计2.4.1点菜主界面6个命令按钮其标题为6大菜系，一个显示所有菜系点菜清单的命令按钮，点菜清单用picture显示，为了美观选用它，因为它可以加背景。一

5、个命令按钮显示消费总金额，并用picture显示。抽奖按钮被隐藏，在消费额达到要求时出现2.4.2菜系界面介绍每类菜系有各自的界面，其设计思路相似。在列表框 1中显示本菜系的菜的品种及其价格，其价格用相应的数组来记录，用列表框2来显示顾客在本菜系选择的菜，可以实现退菜的功能，用列表框3来记录所选中的菜的各自价格，text用来记录本菜系的的消费额。顾客每作出一个选择则显示此步操作所带来的在本菜系的消费额，在顾客点击每道菜是image中出现对应的图片，在菜系的最下面则是本菜系中所有菜的效果图。2.5、核心算法及说明Private Sub Command1_Click() 界面的转换，一个用隐藏，另

6、一个显示 主菜单.Hide 烤肉类.ShowEnd SubPrivate Sub Command2_Click() 主菜单.Hide 凉菜类.ShowEnd SubPrivate Sub Command3_Click() 主菜单.Hide 汤类.ShowEnd SubPrivate Sub Command4_Click() 主菜单.Hide 饼类.ShowEnd SubPrivate Sub Command5_Click() 主菜单.Hide 主食类.ShowEnd SubPrivate Sub Command6_Click() 主菜单.Hide 炒菜类.ShowEnd SubPrivate

7、Sub Command7_Click() 输出消费总额 Picture2.Cls sum = Val(烤肉类.Text1.Text) + Val(凉菜类.Text1.Text) + Val(汤类.Text1.Text) + Val(饼类.Text1.Text) + Val(主食类.Text1.Text) + Val(炒菜类.Text1.Text) Picture2.Print sum; 元 If sum 199 Then 若 消费额高于199 即可参加抽奖 Command9.Visible = True 显示原来被隐藏的抽奖按钮 End IfEnd SubPrivate Sub Command

8、8_Click() 显示顾客的点菜清单 Picture1.Cls For i = 0 To 烤肉类.List2.ListCount - 1 Picture1.Print 烤肉类.List2.List(i) Next i For i = 0 To 凉菜类.List2.ListCount - 1 Picture1.Print 凉菜类.List2.List(i) Next i For i = 0 To 汤类.List2.ListCount - 1 Picture1.Print 汤类.List2.List(i) Next i For i = 0 To 饼类.List2.ListCount - 1 Pi

9、cture1.Print 饼类.List2.List(i) Next i For i = 0 To 主食类.List2.ListCount - 1 Picture1.Print 主食类.List2.List(i) Next i For i = 0 To 炒菜类.List2.ListCount - 1 Picture1.Print 炒菜类.List2.List(i) Next iEnd SubPrivate Sub Command9_Click() 抽奖.Show 主菜单.Hide Command9.Visible = False 点击抽奖按钮后 按钮隐藏 数据全部归零 烤肉类.List2.Cl

10、ear 凉菜类.List2.Clear 汤类.List2.Clear 饼类.List2.Clear 主食类.List2.Clear 炒菜类.List2.Clear 烤肉类.List3.Clear 凉菜类.List3.Clear 汤类.List3.Clear 饼类.List3.Clear 主食类.List3.Clear 炒菜类.List3.Clear 烤肉类.Text1.Text = 凉菜类.Text1.Text = 汤类.Text1.Text = 饼类.Text1.Text = 主食类.Text1.Text = 炒菜类.Text1.Text = End SubPrivate Sub form_

11、load() Picture = LoadPicture(App.Path & 图片背景图片13.jpg) 加载背景图片 Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) 加载命令按钮的图片 Command2.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command4.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Comma

12、nd5.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command6.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command7.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command8.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command9.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Picture1.Picture = LoadPi

13、cture(App.Path & 图片背景图片30.jpg) 加载图像框的图片 Picture2.Picture = LoadPicture(App.Path & 图片背景图片1.jpg) End SubPrivate Sub Command1_Click()Dim j(1 To 6) As Integer 定义数组存放价格j(1) = 68: j(2) = 67: j(3) = 66: j(4) = 65: j(5) = 64: j(6) = 63 Static sum 保留静态变量,sum为本菜系消费额For i = 1 To 6If List1.Selected(i - 1) Then

14、若list1中的项目被选中，其对应价格相加，赋值到text1，并将项目添加到list2中，其text1用来记录sum数值被隐藏sum = Val(Text1.Text)sum = sum + j(i)List2.AddItem List1.TextPicture1.ClsPicture1.Print 消费额：; sum; 元List3.AddItem j(i)Text1.Text = sumEnd IfNext i End SubPrivate Sub Command2_Click() Dim y%, x%, t%x = List2.ListCount 将list2的项目个数赋值给xFor y

15、 = 1 To xIf List2.Selected(y - 1) Then 若list2中的项目被选中其对应价格相减，并移除被选中项目List2.RemoveItem y - 1t = List3.List(y - 1)List3.RemoveItem y - 1sum = Val(Text1.Text)sum = sum - tText1.Text = sumPicture1.ClsPicture1.Print 消费额：; sum; 元Exit ForEnd IfNext yEnd SubPrivate Sub Command3_Click() 窗体的转换 烤肉类.Hide 主菜单.Sho

16、w End SubPrivate Sub form_load() Picture = LoadPicture(App.Path & 图片背景图片13.jpg) 加载背景图片 Image2.Picture = LoadPicture(App.Path & 图片菜预览图烤肉类.jpg) 显示本菜系的所有菜的预览图 Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) 加载命令按钮图片 Command2.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = Load

17、Picture(App.Path & 图片背景图片按钮.jpg) Picture1.Picture = LoadPicture(App.Path & 图片背景图片1.jpg) 加载图像框图片 End SubPrivate Sub List1_Click()If List1.Selected(0) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤肥牛.JPG) 加载被选中菜的图片ElseIf List1.Selected(1) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤牛肉.JP

18、G)ElseIf List1.Selected(2) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤全牛.JPG)ElseIf List1.Selected(3) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤人参牛排.JPG)ElseIf List1.Selected(4) Then Image1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤生牛舌.JPG)ElseIf List1.Selected(5) Then Image1.Pictu

19、re = LoadPicture(App.Path & 图片菜系烤肉类烤无骨牛排.JPG)End IfEnd Sub2.6结论我主要负责的是点菜功能的实现，由于在平常的上课过程中老师详细的讲解了关于列表框的用法，所以在接手时思路比较清晰。但由于实践少，总是遇到这样那样的错误，在刚开始，无法实现价格的记录，后来借助于数组与列表框项目对应，用一个隐性的text来记录价格。从而解决了这个难题。在自己的纠正及同组同学的帮助下，最终在规定的时间实现了在各个分菜系中对于顾客点菜的记录，对于本菜系的消费额的记录，再把各个菜系的的菜的品种及其价格相加，从而，实现了点菜系统应有的功能。从书中的例题中寻找解决问题

20、的方法，在加上对于VB本身的理解，还有同学的帮助，最终达到了自己的目的。3、后记经过10多天的努力，在3个人的通力合作下将点菜系统，抽奖部分，留言板部分加以组合，组成了完整的饭店点菜系统。这次练习把课堂上学的东西又运用到了实际中，加强了理论和实际的联系。4、参考文献1.Visual Basic 6.0编程案例精解， 张路平，电子工业出版社2.Visual Basic 程序设计 王学军，中国铁道出版社3. MSDN4.Visual Basic+Access数据库项目开发实践，周国民，中国铁道出版社5、附录5.1主界面Private Sub Command1_Click() 主菜单.Show 主界

21、面.HideEnd SubPrivate Sub Command2_Click() 留言板.Show 主界面.HideEnd SubPrivate Sub form_load() Picture = LoadPicture(App.Path & 图片背景图片首页.jpg) Command1.Picture = LoadPicture(App.Path & 图片背景图片首页.jpg) Command2.Picture = LoadPicture(App.Path & 图片背景图片首页.jpg) WindowsMediaPlayer1.URL = App.Path & 音乐爱向着我来的那天.wma

22、 WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width 0 ThenLabel1.Move Label1.Left - 50ElseLabel1.Left = 主界面.ScaleWidthEnd IfEnd SubPrivate Sub Timer2_Timer() Label2.Caption = TimeEnd Sub5.2主界面Private Sub Command1_Click() 界面的转换，一个用隐藏，另一个显示 主菜单.Hide 烤肉类.Sho

23、wEnd SubPrivate Sub Command2_Click() 主菜单.Hide 凉菜类.ShowEnd SubPrivate Sub Command3_Click() 主菜单.Hide 汤类.ShowEnd SubPrivate Sub Command4_Click() 主菜单.Hide 饼类.ShowEnd SubPrivate Sub Command5_Click() 主菜单.Hide 主食类.ShowEnd SubPrivate Sub Command6_Click() 主菜单.Hide 炒菜类.ShowEnd SubPrivate Sub Command7_Click()

24、输出消费总额 Picture2.Cls sum = Val(烤肉类.Text1.Text) + Val(凉菜类.Text1.Text) + Val(汤类.Text1.Text) + Val(饼类.Text1.Text) + Val(主食类.Text1.Text) + Val(炒菜类.Text1.Text) Picture2.Print sum; 元 If sum 199 Then 若 消费额高于199 即可参加抽奖 Command9.Visible = True 显示原来被隐藏的抽奖按钮 End IfEnd SubPrivate Sub Command8_Click() 显示顾客的点菜清单 P

25、icture1.Cls For i = 0 To 烤肉类.List2.ListCount - 1 Picture1.Print 烤肉类.List2.List(i) Next i For i = 0 To 凉菜类.List2.ListCount - 1 Picture1.Print 凉菜类.List2.List(i) Next i For i = 0 To 汤类.List2.ListCount - 1 Picture1.Print 汤类.List2.List(i) Next i For i = 0 To 饼类.List2.ListCount - 1 Picture1.Print 饼类.List2

26、.List(i) Next i For i = 0 To 主食类.List2.ListCount - 1 Picture1.Print 主食类.List2.List(i) Next i For i = 0 To 炒菜类.List2.ListCount - 1 Picture1.Print 炒菜类.List2.List(i) Next iEnd SubPrivate Sub Command9_Click() 抽奖.Show 主菜单.Hide Command9.Visible = False 点击抽奖按钮后 按钮隐藏 数据全部归零 烤肉类.List2.Clear 凉菜类.List2.Clear 汤

27、类.List2.Clear 饼类.List2.Clear 主食类.List2.Clear 炒菜类.List2.Clear 烤肉类.List3.Clear 凉菜类.List3.Clear 汤类.List3.Clear 饼类.List3.Clear 主食类.List3.Clear 炒菜类.List3.Clear 烤肉类.Text1.Text = 凉菜类.Text1.Text = 汤类.Text1.Text = 饼类.Text1.Text = 主食类.Text1.Text = 炒菜类.Text1.Text = End SubPrivate Sub form_load() Picture = Load

28、Picture(App.Path & 图片背景图片13.jpg) 加载背景图片 Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) 加载命令按钮的图片 Command2.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command4.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command5.Picture = LoadPic

29、ture(App.Path & 图片背景图片按钮.jpg) Command6.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command7.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command8.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command9.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Picture1.Picture = LoadPicture(App.Path & 图片背景

30、图片30.jpg) 加载图像框的图片 Picture2.Picture = LoadPicture(App.Path & 图片背景图片1.jpg) End Sub5.3烤肉类Private Sub Command1_Click()Dim j(1 To 6) As Integer 定义数组存放价格j(1) = 68: j(2) = 67: j(3) = 66: j(4) = 65: j(5) = 64: j(6) = 63 Static sum 保留静态变量,sum为本菜系消费额For i = 1 To 6If List1.Selected(i - 1) Then 若list1中的项目被选中，其

31、对应价格相加，赋值到text1，并将项目添加到list2中，其text1用来记录sum数值被隐藏sum = Val(Text1.Text)sum = sum + j(i)List2.AddItem List1.TextPicture1.ClsPicture1.Print 消费额：; sum; 元List3.AddItem j(i)Text1.Text = sumEnd IfNext i End SubPrivate Sub Command2_Click() Dim y%, x%, t%x = List2.ListCount 将list2的项目个数赋值给xFor y = 1 To xIf Lis

32、t2.Selected(y - 1) Then 若list2中的项目被选中其对应价格相减，并移除被选中项目List2.RemoveItem y - 1t = List3.List(y - 1)List3.RemoveItem y - 1sum = Val(Text1.Text)sum = sum - tText1.Text = sumPicture1.ClsPicture1.Print 消费额：; sum; 元Exit ForEnd IfNext yEnd SubPrivate Sub Command3_Click() 窗体的转换 烤肉类.Hide 主菜单.Show End SubPrivat

33、e Sub form_load() Picture = LoadPicture(App.Path & 图片背景图片13.jpg) 加载背景图片 Image2.Picture = LoadPicture(App.Path & 图片菜预览图烤肉类.jpg) 显示本菜系的所有菜的预览图 Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) 加载命令按钮图片 Command2.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = LoadPicture(App.Pat

34、h & 图片背景图片按钮.jpg) Picture1.Picture = LoadPicture(App.Path & 图片背景图片1.jpg) 加载图像框图片 End SubPrivate Sub List1_Click()If List1.Selected(0) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤肥牛.JPG) 加载被选中菜的图片ElseIf List1.Selected(1) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤牛肉.JPG)ElseIf List1.

35、Selected(2) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤全牛.JPG)ElseIf List1.Selected(3) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤人参牛排.JPG)ElseIf List1.Selected(4) Then Image1.Picture = LoadPicture(App.Path & 图片菜系烤肉类烤生牛舌.JPG)ElseIf List1.Selected(5) Then Image1.Picture = LoadPictur

36、e(App.Path & 图片菜系烤肉类烤无骨牛排.JPG)End IfEnd Sub5.4饼类Private Sub Command1_Click() Dim j(1 To 6) As Integerj(1) = 8: j(2) = 8: j(3) = 8: j(4) = 8: j(5) = 8: j(6) = 8 Static sumFor i = 1 To 6If List1.Selected(i - 1) Thensum = Val(Text1.Text)sum = sum + j(i)List2.AddItem List1.TextPicture1.ClsPicture1.Print

37、 消费额：; sum; 元List3.AddItem j(i)Text1.Text = sumEnd IfNext i End SubPrivate Sub Command2_Click() Dim y%, x%, t%x = List2.ListCountFor y = 1 To xIf List2.Selected(y - 1) ThenList2.RemoveItem y - 1t = List3.List(y - 1)List3.RemoveItem y - 1sum = Val(Text1.Text)sum = sum - tText1.Text = sumPicture1.ClsP

38、icture1.Print 消费额：; sum; 元Exit ForEnd IfNext yEnd SubPrivate Sub Command3_Click() 饼类.Hide 主菜单.ShowEnd SubPrivate Sub form_load() Picture = LoadPicture(App.Path & 图片背景图片13.jpg) Image2.Picture = LoadPicture(App.Path & 图片菜预览图饼类.jpg) Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command2.Pictu

39、re = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Picture1.Picture = LoadPicture(App.Path & 图片背景图片1.jpg)End SubPrivate Sub List1_Click()If List1.Selected(0) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系饼类海鲜葱煎饼.JPG)ElseIf List1.Selected(1) ThenImage1

40、.Picture = LoadPicture(App.Path & 图片菜系饼类韩式地瓜饼.JPG)ElseIf List1.Selected(2) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系饼类韩式千页饼.JPG)ElseIf List1.Selected(3) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系饼类韩式土豆饼.JPG)ElseIf List1.Selected(4) Then Image1.Picture = LoadPicture(App.Path & 图片菜系饼类泡菜饼.

41、JPG)ElseIf List1.Selected(5) Then Image1.Picture = LoadPicture(App.Path & 图片菜系饼类松仁玉米饼.JPG)End If End Sub5.5凉菜类Private Sub Command1_Click() Dim j(1 To 6) As Integer j(1) = 11: j(2) = 12: j(3) = 13: j(4) = 14: j(5) = 15: j(6) = 16 Static sumFor i = 1 To 6If List1.Selected(i - 1) Thensum = Val(Text1.Te

42、xt)sum = sum + j(i)List2.AddItem List1.TextPicture1.ClsPicture1.Print 消费额：; sum; 元List3.AddItem j(i)Text1.Text = sumEnd IfNext iEnd SubPrivate Sub Command2_Click() Dim y%, x%, t%x = List2.ListCountFor y = 1 To xIf List2.Selected(y - 1) ThenList2.RemoveItem y - 1t = List3.List(y - 1)List3.RemoveItem

43、y - 1sum = Val(Text1.Text)sum = sum - tText1.Text = sumPicture1.ClsPicture1.Print 消费额：; sum; 元Exit ForEnd IfNext yEnd SubPrivate Sub Command3_Click() 凉菜类.Hide 主菜单.ShowEnd SubPrivate Sub form_load() Picture = LoadPicture(App.Path & 图片背景图片13.jpg) Image2.Picture = LoadPicture(App.Path & 图片菜预览图凉菜类.jpg)

44、Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command2.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Picture1.Picture = LoadPicture(App.Path & 图片背景图片1.jpg)End SubPrivate Sub List1_Click() If List1.Selected(0) ThenImage1.Picture = Loa

45、dPicture(App.Path & 图片菜系凉菜类韩式拌花生.JPG)ElseIf List1.Selected(1) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系凉菜类鸡肉水果沙拉.JPG)ElseIf List1.Selected(2) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系凉菜类辣白菜.JPG)ElseIf List1.Selected(3) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系凉菜类凉拌狗肉.JPG)ElseIf

46、List1.Selected(4) Then Image1.Picture = LoadPicture(App.Path & 图片菜系凉菜类萝卜泡菜.JPG)ElseIf List1.Selected(5) Then Image1.Picture = LoadPicture(App.Path & 图片菜系凉菜类生拌牛肉.JPG)End If End Sub5.6炒菜类Private Sub Command1_Click() Dim j(1 To 6) As Integer j(1) = 29: j(2) = 28: j(3) = 29: j(4) = 28: j(5) = 29: j(6) =

47、 28 Static sumFor i = 1 To 6If List1.Selected(i - 1) Thensum = Val(Text1.Text)sum = sum + j(i)List2.AddItem List1.TextPicture1.ClsPicture1.Print 消费额：; sum; 元List3.AddItem j(i)Text1.Text = sumEnd IfNext iEnd SubPrivate Sub Command2_Click() Dim y%, x%, t%x = List2.ListCountFor y = 1 To xIf List2.Selec

48、ted(y - 1) ThenList2.RemoveItem y - 1t = List3.List(y - 1)List3.RemoveItem y - 1sum = Val(Text1.Text)sum = sum - tText1.Text = sumPicture1.ClsPicture1.Print 消费额：; sum; 元Exit ForEnd IfNext yEnd SubPrivate Sub Command3_Click() 炒菜类.Hide 主菜单.ShowEnd SubPrivate Sub form_load() Picture = LoadPicture(App.P

49、ath & 图片背景图片13.jpg) Image2.Picture = LoadPicture(App.Path & 图片菜预览图炒菜类.jpg) Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command2.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Picture1.Picture = LoadPicture(App.Path & 图片背景图片1.jpg)End

50、 SubPrivate Sub List1_Click() If List1.Selected(0) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系炒菜类韩式炖刀鱼.JPG)ElseIf List1.Selected(1) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系炒菜类韩式红烧狗肉.JPG)ElseIf List1.Selected(2) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系炒菜类韩式石板豆腐.JPG)ElseIf List1.S

51、elected(3) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系炒菜类烤五花肉.JPG)ElseIf List1.Selected(4) Then Image1.Picture = LoadPicture(App.Path & 图片菜系炒菜类铁板鸡翅.JPG)ElseIf List1.Selected(5) Then Image1.Picture = LoadPicture(App.Path & 图片菜系炒菜类五花肉炒辣白菜.JPG)End If End Sub5.7主食类Private Sub Command1_Click() Dim j

52、(1 To 6) As Integerj(1) = 15: j(2) = 15: j(3) = 15: j(4) = 15: j(5) = 15: j(6) = 15 Static sumFor i = 1 To 6If List1.Selected(i - 1) Thensum = Val(Text1.Text)sum = sum + j(i)List2.AddItem List1.TextPicture1.ClsPicture1.Print 消费额：; sum; 元List3.AddItem j(i)Text1.Text = sumEnd IfNext i End SubPrivate S

53、ub Command2_Click() Dim y%, x%, t%x = List2.ListCountFor y = 1 To xIf List2.Selected(y - 1) ThenList2.RemoveItem y - 1t = List3.List(y - 1)List3.RemoveItem y - 1sum = Val(Text1.Text)sum = sum - tText1.Text = sumPicture1.ClsPicture1.Print 消费额：; sum; 元Exit ForEnd IfNext yEnd SubPrivate Sub Command3_Cl

54、ick() 主食类.Hide 主菜单.ShowEnd SubPrivate Sub form_load() Picture = LoadPicture(App.Path & 图片背景图片13.jpg) Image2.Picture = LoadPicture(App.Path & 图片菜预览图主食类.jpg) Command1.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command2.Picture = LoadPicture(App.Path & 图片背景图片按钮.jpg) Command3.Picture = LoadPicture(A

55、pp.Path & 图片背景图片按钮.jpg) Picture1.Picture = LoadPicture(App.Path & 图片背景图片1.jpg)End SubPrivate Sub List1_Click() If List1.Selected(0) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系主食类韩式拌面.JPG)ElseIf List1.Selected(1) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系主食类韩式炒面.JPG)ElseIf List1.Selected(2

56、) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系主食类芥麦冷面.JPG)ElseIf List1.Selected(3) ThenImage1.Picture = LoadPicture(App.Path & 图片菜系主食类石锅拌面.JPG)ElseIf List1.Selected(4) Then Image1.Picture = LoadPicture(App.Path & 图片菜系主食类玉米冷面.JPG)ElseIf List1.Selected(5) Then Image1.Picture = LoadPicture(App.Path & 图片菜系主食类紫菜卷饭.JPG)End If End Sub5.8汤类Private Sub Command1_Click() Dim j(1 To 6) As Integerj(1) = 28: j(2) = 27: j(3) = 26: j(4) = 25: j(5) = 24: j(6) = 23 Static sumFor i = 1 To 6If List1.Selected(i - 1) Thensum = Val(Tex