vb點(diǎn)菜系統(tǒng)課程設(shè)計(jì)

1、<p><b>　　VB點(diǎn)菜系統(tǒng)報(bào)告書</b></p><p><b>　　摘要：</b></p><p>　　本系統(tǒng)是顧客與飯店溝通的橋梁，顧客可以通過它實(shí)現(xiàn)對菜品酒水的瀏覽，集點(diǎn)菜、退菜、留言、抽獎于一體的vb多窗體應(yīng)用程序。本系統(tǒng)較多考慮人性化設(shè)計(jì)，操作簡單方便，語言風(fēng)趣，適時提醒，使商家用得放心，顧客使得舒心。</p>

2、;<p><b>　　關(guān)鍵詞：</b></p><p>　　Vb 飯店點(diǎn)菜系統(tǒng) 窗體 留言板</p><p>　　啟動封頁 抽獎功能 管理功能</p><p><b>　　目錄</b></p><p>　　封面…………………………………………

3、…………………………………1</p><p>　　摘要……………………………………………………………………………2</p><p>　　1.選題的意義……………………………………………………………4</p><p>　　1.1選擇該題目的原因……………………………………………………4</p><p>　　2.1完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識點(diǎn)

4、………………………………4</p><p>　　2.系統(tǒng)功能需求分析………………………………………………4</p><p>　　2.1系統(tǒng)概述………………………………………………………………4</p><p>　　2.2系統(tǒng)的組成及各模塊的功能…………………………………………4</p><p>　　2.3系統(tǒng)的運(yùn)行環(huán)境………………………………

5、………………………7</p><p>　　3.系統(tǒng)設(shè)計(jì)………………………………………………………………7</p><p>　　3.1總體結(jié)構(gòu)設(shè)計(jì)…………………………………………………………7</p><p>　　4. 系統(tǒng)設(shè)計(jì)：（要包括設(shè)計(jì)界面、核心代碼及說明）………………8</p><p>　　4.1點(diǎn)菜、留言與抽獎板塊的設(shè)計(jì)與實(shí)現(xiàn)…………

6、…………………8</p><p>　　4.2點(diǎn)菜、留言與抽獎板塊的事件與代碼 ……………………8</p><p>　　5．總結(jié)與存在的問題………………………………………………10</p><p>　　5.1總結(jié)……………………………………………………………………10</p><p>　　5.2存在的主要問題……………………………………………

7、…………11</p><p>　　6.參考文獻(xiàn)…………………………………………………………………11</p><p>　　7.附錄…………………………………………………………………………11</p><p><b>　　一．選題的意義</b></p><p>　　1.1選該題目的原因</p><p&g

8、t;　　通過該題目的設(shè)計(jì)，使我們掌握軟件開發(fā)過程的問題分析、系統(tǒng)設(shè)計(jì)、程序編碼、測試等基本方法和技能。主顧可以分類瀏覽飯館的所有菜肴、采集樣品及價格并舉行點(diǎn)菜，操作后能預(yù)覽點(diǎn)菜成果，并可對于其進(jìn)一步修改；留言板可以、興許記載主顧的評價和意見，并具備瀏覽功效。</p><p>　　1.2完成該此題用到數(shù)據(jù)結(jié)構(gòu)和知識點(diǎn)</p><p>　　用了文件的一些基本操作，如打開、訪問、讀寫等操作以及E

9、OF函數(shù)等，還有到了timer控件，利用timer控件完成滾動字幕，也用到了用到了picturebox以及用picturebox加載圖片， 用到還有加載圖片時用到的相對路徑app.path等。</p><p>　　二．系統(tǒng)功能需求分析</p><p><b>　　2.1系統(tǒng)概述</b></p><p>　　系統(tǒng)可以分類瀏覽飯店的所有菜式、酒水圖

10、片及價格；進(jìn)行點(diǎn)菜操作后能預(yù)覽點(diǎn)菜結(jié)果，并可對其進(jìn)一步修改如退菜等。當(dāng)顧客的消費(fèi)達(dá)到指定金額時，可以參與抽獎活動，顧客可以直接留言，系統(tǒng)具有記錄顧客的意見和建議并具有瀏覽功能。由于飯店現(xiàn)代管理的加強(qiáng)與流行，人們對工作效率的重視，將會使《飯店點(diǎn)菜系統(tǒng)》具有更廣泛應(yīng)用前景。 </p><p>　　2.2系統(tǒng)的組成以及各模塊的功能</p><p>　?。?）啟動封面（過5秒鐘后會自動彈出下一個窗

11、體）</p><p><b>　　圖1</b></p><p><b>　?。?）主界面</b></p><p><b>　　圖2</b></p><p>　?。?）管理系統(tǒng)的界面（主要是對酒店的介紹）</p><p><b>　　圖3<

12、/b></p><p>　?。?）系統(tǒng)總界面（可以進(jìn)行點(diǎn)菜，也可進(jìn)行留言）</p><p><b>　　圖4</b></p><p>　　（5）點(diǎn)菜系統(tǒng)的界面（可以進(jìn)行點(diǎn)菜，觀察菜樣）</p><p><b>　　圖5</b></p><p>　　（6）留言系統(tǒng)的界面（

13、把你想說的寫下，只有管理員能看到）</p><p><b>　　圖6</b></p><p>　?。?）抽獎界面（凡是一次消費(fèi)滿300，都可或抽獎機(jī)會一次）</p><p><b>　　圖7</b></p><p>　?。?）管理界面（管理員登錄，可以查看留言）</p><p&g

14、t;<b>　　圖8</b></p><p>　　2.3系統(tǒng)運(yùn)行的環(huán)境</p><p>　　2.3.1系統(tǒng)使用環(huán)境</p><p>　　操作系統(tǒng)：windows2000/XP</p><p>　　系統(tǒng)支持：visual basic 6.0及以上版本支持庫</p><p><b>　　硬件

15、環(huán)境：</b></p><p>　　·處理器：intel pentium 166MX及更高。</p><p>　　·硬盤：剩余使用空間1GB以上。</p><p>　　·內(nèi)存：32MB以上。</p><p>　　·顯卡：SVGA顯示適配器、</p><p>　　2.3

16、.2系統(tǒng)開發(fā)環(huán)境</p><p>　　·操作系統(tǒng)：windows2000/XP</p><p>　　·系統(tǒng)支持：visual basic 6.0</p><p><b>　　三．系統(tǒng)設(shè)計(jì)</b></p><p>　　3.1總體結(jié)構(gòu)設(shè)計(jì)：</p><p><b>　　四

17、．系統(tǒng)設(shè)計(jì)</b></p><p>　　4.1點(diǎn)菜、留言與抽獎板塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　點(diǎn)菜模版是通過可以自動分辨熱菜，涼菜，酒水，主食。方便對其點(diǎn)菜。而且通過可以菜樣的圖片，可以讓我們提前看看美味的樣式，讓我們有數(shù)，更會激起食客的胃口?？吹胶玫牟藰涌梢灾苯狱c(diǎn)，而且如果感覺點(diǎn)的飯菜有點(diǎn)多，我們還設(shè)計(jì)了可以刪掉你選過的菜。這樣食客就可以放心大膽的看，希望我的設(shè)計(jì)會受歡

18、迎。</p><p>　　留言板塊是通過食客對酒店的認(rèn)可程度的一種體現(xiàn)，設(shè)計(jì)該板塊可以保護(hù)消費(fèi)者的權(quán)益，讓食客吃的難忘，對酒店也要很滿意。如果有什么不好的地方，盡管在留言板塊上寫下來。每天都會有管理員進(jìn)行查看的，之后我們還會進(jìn)行反思和改正。</p><p>　　抽獎板塊是對消費(fèi)者本次光臨的一種感謝，當(dāng)每位消費(fèi)者一次性消費(fèi)滿300元的時候，就會有一次的抽獎機(jī)會。中獎率是100%。這樣消費(fèi)者就

19、會感到很快樂，雖然小獎品不怎么值錢?？墒窍M(fèi)者還是會很高興的，會感到自己得到好處。從我們角度來看，雖然在獎品上花點(diǎn)小錢，可是得到消費(fèi)者的再次光顧，我們還是得到很不錯的收益的。</p><p>　　4.2點(diǎn)菜事件的代碼</p><p>　　Private Sub Command1_Click()</p><p>　　List1.Visible = True

20、該命令按鈕是對“熱菜”進(jìn)行的點(diǎn)</p><p>　　List2.Visible = False 擊該命令按鈕的時候出現(xiàn)熱菜的frame</p><p>　　List3.Visible = False </p><p>　　List4.Visible = False</p&g

21、t;<p>　　Frame4.Caption = "熱菜"</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　List2.Visible = True</p><p>　　該命令按鈕是對“

22、冷菜”進(jìn)行的List1.Visible = False 擊該命令按鈕的時候出現(xiàn)冷菜的frame</p><p>　　List3.Visible = False</p><p>　　List4.Visible = False</p><p>　　Frame4.Caption = "冷菜"</p>

23、<p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　List3.Visible = True</p><p>　　List2.Visible = False 該命令按鈕是對“酒水“進(jìn)行的

24、</p><p>　　擊該命令按鈕的時候出現(xiàn)酒水的frame </p><p>　　List1.Visible = False</p><p>　　List4.Visible = False</p><p>　　Frame4.Caption = "酒水"</p><p><b>　　End

25、 Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　List4.Visible = True</p><p>　　改名林按鈕是對“主食”進(jìn)行的</p><p>　　List2.Visible = False點(diǎn)擊該命令按鈕的時候出現(xiàn)主食的frame</p>

26、<p>　　List1.Visible = False</p><p>　　List3.Visible = False</p><p>　　Frame4.Caption = "主食"</p><p><b>　　End Sub</b></p><p>　　Private Sub Comm

27、and5_Click()</p><p>　　Dim k As Integer該按鈕是對“確認(rèn)點(diǎn)菜”</p><p>　　If List5.ListCount = 0 Then的按鈕，當(dāng)你點(diǎn)完菜的時候</p><p>　　MsgBox "您還沒有選菜呢！", , "請選菜！"會出現(xiàn)總計(jì)多少錢，如果你</p>

28、<p>　　End If感覺價錢還是合理的話，你</p><p>　　If Val(Label3.Caption) >= 300 Then就可以確認(rèn)點(diǎn)菜。當(dāng)你沒有</p><p>　　Form7.Hide點(diǎn)菜的時候，會自動彈出消</p><p>　　“你還沒有點(diǎn)菜”的消息</p><p>　　Form11.Show

29、提醒。</p><p><b>　　End If</b></p><p>　　If Val(Label3.Caption) < 300 Then</p><p>　　Form7.Hide</p><p>　　Form12.Show</p><p><b>　　End If</

30、b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　If List5.ListIndex <> -1 Then</p><p>　　y = List5.ListIndex</p><

31、;p>　　List5.RemoveItem y</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()該命令按鈕是“總計(jì)”</p><p>　　Dim sum As I

32、nteger的按鈕，用來對食客點(diǎn)完</p><p>　　sum = 0菜后，方便看看自己所點(diǎn)菜</p><p>　　For i = 0 To List5.ListCount - 1總價價格，決定是否繼續(xù)點(diǎn)</p><p>　　a = Val(Right(List5.List(i), 4))菜。</p><p>　　sum = sum

33、+ a</p><p><b>　　Next i</b></p><p>　　Label3.Caption = sum</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　Sel

34、ect Case Frame4.Caption</p><p><b>　　Case "熱菜"</b></p><p>　　Select Case List1.ListIndex</p><p><b>　　Case 0</b></p><p>　　List5.AddItem (

35、"奉化芋艿頭 28元") 在定義每到菜的價格的時</p><p>　　Case 1 侯，要與下面的frame菜</p><p>　　List5.AddItem ("宮暴河蝦 50 元")順序相同，這樣才會讓</p><p>　　Case 2picture，出現(xiàn)正

36、確的圖片。</p><p>　　List5.AddItem ("杭椒牛柳 80 元")和正確的菜價格</p><p><b>　　Case 3</b></p><p>　　List5.AddItem ("杭州卷雞 80 元")</p><p><b>　　C

37、ase 4</b></p><p>　　List5.AddItem ("猴頭四寶 150 元")</p><p><b>　　Case 5</b></p><p>　　List5.AddItem ("煎豆腐魚烙 85 元")</p><p><b>　

38、　Case 6</b></p><p>　　List5.AddItem ("孔雀迎賓 80 元")</p><p><b>　　Case 7</b></p><p>　　List5.AddItem ("雪菜大湯黃魚 70 元")</p><p><b>

39、;　　Case 8</b></p><p>　　List5.AddItem ("楊梅肉丸 65 元")</p><p><b>　　Case 9</b></p><p>　　List5.AddItem ("魚鲞烤肉 80 元")</p><p><b>　

40、　Case 10</b></p><p>　　List5.AddItem ("咸蛋黃炒南瓜 45 元")</p><p><b>　　Case 11</b></p><p>　　List5.AddItem ("蟹鑲橙 125 元")</p><p><b>

41、;　　Case 12</b></p><p>　　List5.AddItem ("紹興雞 99 元")</p><p><b>　　Case 13</b></p><p>　　List5.AddItem ("宋嫂魚羹 50 元")</p><p><b>

42、　　Case 14</b></p><p>　　List5.AddItem ("苔條黃魚 79 元")</p><p><b>　　Case 15</b></p><p>　　List5.AddItem ("西湖牛肉羹 80 元")</p><p><b>

43、;　　Case 16</b></p><p>　　List5.AddItem ("米粉蒸肉 70 元")</p><p><b>　　Case 17</b></p><p>　　List5.AddItem ("麒麟桂魚 85 元")</p><p><b>

44、;　　Case 18</b></p><p>　　List5.AddItem ("千張包子蒸帶魚 65 元")</p><p><b>　　Case 19</b></p><p>　　List5.AddItem ("熗油菜 30 元")</p><p><b&

45、gt;　　Case 20</b></p><p>　　List5.AddItem ("兩吃大蝦 75 元")</p><p><b>　　Case 21</b></p><p>　　List5.AddItem ("龍井蝦仁 88 元")</p><p><b&

46、gt;　　Case 22</b></p><p>　　List5.AddItem ("海參炆花膠 100 元")</p><p><b>　　Case 23</b></p><p>　　List5.AddItem ("雙味青蟹 123 元")</p><p><

47、;b>　　Case 24</b></p><p>　　List5.AddItem ("黃金燴豆花 35 元")</p><p><b>　　Case 25</b></p><p>　　List5.AddItem ("蒸鯧魚 98 元")</p><p><

48、b>　　Case 26</b></p><p>　　List5.AddItem ("八寶豆腐 32 元")</p><p><b>　　Case 27</b></p><p>　　List5.AddItem ("糖醋熘素鱔 85 元")</p><p><

49、;b>　　Case 28</b></p><p>　　List5.AddItem ("糖醋鮮藕 40 元")</p><p><b>　　Case 29</b></p><p>　　List5.AddItem ("蘇式醬汁肉 75 元")</p><p>&l

50、t;b>　　Case 30</b></p><p>　　List5.AddItem ("干貝白菜心 33 元")</p><p>　　End Select</p><p><b>　　Case "冷菜"</b></p><p>　　Select Case List

51、2.ListIndex</p><p><b>　　Case 0</b></p><p>　　List5.AddItem ("春卷 30元")</p><p><b>　　Case 1</b></p><p>　　List5.AddItem ("拌海蜇皮 35 元

52、")</p><p><b>　　Case 2</b></p><p>　　List5.AddItem ("爽口瓜皮丁 25 元")</p><p><b>　　Case 3</b></p><p>　　List5.AddItem ("拌羊肚絲 45

53、 元")</p><p><b>　　Case 4</b></p><p>　　List5.AddItem ("涼拌蕎面涼粉 25元")</p><p><b>　　Case 5</b></p><p>　　List5.AddItem ("紅薯涼粉 3

54、0 元")</p><p><b>　　Case 6</b></p><p>　　List5.AddItem ("涼拌筍絲 28 元")</p><p><b>　　Case 7</b></p><p>　　List5.AddItem ("干豆腐粉絲拌黃瓜

55、 26 元")</p><p><b>　　Case 8</b></p><p>　　List5.AddItem ("涼拌萵筍絲 30 元")</p><p><b>　　Case 9</b></p><p>　　List5.AddItem ("黃瓜拌粉皮

56、 20 元")</p><p><b>　　Case 10</b></p><p>　　List5.AddItem ("熗拌文筍 31 元")</p><p><b>　　Case 11</b></p><p>　　List5.AddItem ("皮蛋豆腐

57、 15 元")</p><p><b>　　Case 12</b></p><p>　　List5.AddItem ("韭菜拌兔肝 45 元")</p><p><b>　　Case 13</b></p><p>　　List5.AddItem ("糟鹵雞爪

58、 29 元")</p><p><b>　　Case 14</b></p><p>　　List5.AddItem ("手撕茄子 32 元")</p><p><b>　　Case 15</b></p><p>　　List5.AddItem ("海蜇拌黃

59、瓜 24 元")</p><p><b>　　Case 16</b></p><p>　　List5.AddItem ("尖椒皮蛋 30 元")</p><p><b>　　Case 17</b></p><p>　　List5.AddItem ("泰式?jīng)?/p>

60、拌黃瓜卷 32 元")</p><p><b>　　Case 18</b></p><p>　　List5.AddItem ("涼拌豆芽菜 21 元")</p><p><b>　　Case 19</b></p><p>　　List5.AddItem ("

61、;蔬豆卷 35 元")</p><p><b>　　Case 20</b></p><p>　　List5.AddItem ("蠔油山藥 35 元")</p><p><b>　　Case 21</b></p><p>　　List5.AddItem ("

62、爽口雞胗 50 元")</p><p><b>　　Case 22</b></p><p>　　List5.AddItem ("雞肉咸蛋卷 48 元")</p><p><b>　　Case 23</b></p><p>　　List5.AddItem ("

63、;五彩素什錦 30 元")</p><p><b>　　Case 24</b></p><p>　　List5.AddItem ("奶汁雞蛋菠菜 35 元")</p><p><b>　　Case 25</b></p><p>　　List5.AddItem (&q

64、uot;糖醋瓜皮卷 28 元")</p><p><b>　　Case 26</b></p><p>　　List5.AddItem ("水晶西蘭花火腿卷 43 元")</p><p>　　End Select</p><p><b>　　Case "酒水"&

65、lt;/b></p><p>　　Select Case List3.ListIndex</p><p><b>　　Case 0</b></p><p>　　List5.AddItem ("白蘭地 180元")</p><p><b>　　Case 1</b><

66、/p><p>　　List5.AddItem ("橙汁 10元")</p><p><b>　　Case 2</b></p><p>　　List5.AddItem ("伏特加 20元")</p><p><b>　　Case 3</b></p>

67、;<p>　　List5.AddItem ("紅酒 120元")</p><p><b>　　Case 4</b></p><p>　　List5.AddItem ("可樂 10元")</p><p><b>　　Case 5</b></p><

68、;p>　　List5.AddItem ("王老吉 10元")</p><p><b>　　Case 6</b></p><p>　　List5.AddItem ("雪碧 10元")</p><p>　　End Select</p><p><b>　　Cas

69、e "主食"</b></p><p>　　Select Case List4.ListIndex</p><p><b>　　Case 0</b></p><p>　　List5.AddItem ("炒飯 10元")</p><p><b>　　Case 1

70、</b></p><p>　　List5.AddItem ("炒粉 10 元")</p><p><b>　　Case 2</b></p><p>　　List5.AddItem ("蛋炒飯 15 元")</p><p><b>　　Case 3&l

71、t;/b></p><p>　　List5.AddItem ("點(diǎn)心拼盤 20 元")</p><p><b>　　Case 4</b></p><p>　　List5.AddItem ("鍋貼 10元")</p><p><b>　　Case 5<

72、/b></p><p>　　List5.AddItem ("黃金糕 15 元")</p><p><b>　　Case 6</b></p><p>　　List5.AddItem ("醬鴨菜泡飯 20 元")</p><p><b>　　Case 7</

73、b></p><p>　　List5.AddItem ("餃子 15 元")</p><p><b>　　Case 8</b></p><p>　　List5.AddItem ("米飯 5 元")</p><p><b>　　Case 9</b>&l

74、t;/p><p>　　List5.AddItem ("五谷豐登 15 元")</p><p><b>　　Case 10</b></p><p>　　List5.AddItem ("油潑面 15 元")</p><p><b>　　Case 11</b><

75、;/p><p>　　List5.AddItem ("玉米煲仔飯 15 元")</p><p><b>　　Case 12</b></p><p>　　List5.AddItem ("雜糧包 15 元")</p><p>　　End Select</p><p&g

76、t;　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　Form7.Hide該按鈕是對進(jìn)入該點(diǎn)</p><p>　　Form3.Show菜界面后不想進(jìn)行點(diǎn)菜后退</p><p

77、>　　End Sub出該界面的操作</p><p>　　Private Sub Form_Load()</p><p>　　Label1.Left = (ScaleWidth - Label1.Width) / 2</p><p>　　List1.Visible = False</p><p>　　List2.Visible = Fa

78、lse</p><p>　　List3.Visible = False</p><p>　　List4.Visible = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Resize()</p><p><b>　　

79、Form_Load</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_Click()</p><p><b>　　End Sub</b></p><p>　　Public Sub List3_Click()</p&

80、gt;<p>　　Dim c(0 To 6) As Integer</p><p>　　Select Case List3.ListIndex</p><p><b>　　Case 0</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\白蘭地.jpg"

81、;)</p><p>　　c(0) = 180</p><p>　　Label4.Caption = c(0)</p><p><b>　　Case 1</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\橙汁.jpg")</p>

82、<p><b>　　c(1) = 10</b></p><p>　　Label4.Caption = c(1)</p><p><b>　　Case 2</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\伏特加.jpg")<

83、;/p><p><b>　　c(2) = 20</b></p><p>　　Label4.Caption = c(2)</p><p><b>　　Case 3</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\紅酒.jpg&quo

84、t;)</p><p>　　c(3) = 120</p><p>　　Label4.Caption = c(3)</p><p><b>　　Case 4</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\可樂.jpg")</p>

85、;<p><b>　　c(4) = 10</b></p><p>　　Label4.Caption = c(4)</p><p><b>　　Case 5</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\王老吉.jpg")&l

86、t;/p><p><b>　　c(5) = 10</b></p><p>　　Label4.Caption = c(5)</p><p><b>　　Case 6</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\雪碧.jpg&qu

87、ot;)</p><p><b>　　c(6) = 10</b></p><p>　　Label4.Caption = c(6)</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Public Sub List1

88、_Click()</p><p>　　Dim a(0 To 30) As Integer</p><p>　　Select Case List1.ListIndex</p><p><b>　　Case 0</b></p><p>　　Image1.Picture = LoadPicture(App.Path + &qu

89、ot;\奉化芋艿頭.jpg")</p><p><b>　　a(0) = 28</b></p><p>　　Label4.Caption = a(0)</p><p><b>　　Case 1</b></p><p>　　Image1.Picture = LoadPicture(App.P

90、ath + "\宮爆河蝦.jpg")</p><p><b>　　a(1) = 50</b></p><p>　　Label4.Caption = a(1)</p><p><b>　　Case 2</b></p><p>　　Image1.Picture = LoadPictu

91、re(App.Path + "\杭椒牛柳.jpg")</p><p><b>　　a(2) = 80</b></p><p>　　Label4.Caption = a(2)</p><p><b>　　Case 3</b></p><p>　　Image1.Picture = L

92、oadPicture(App.Path + "\杭州卷雞.jpg")</p><p><b>　　a(3) = 80</b></p><p>　　Label4.Caption = a(3)</p><p><b>　　Case 4</b></p><p>　　Image1.Pic

93、ture = LoadPicture(App.Path + "\猴頭四寶.jpg")</p><p>　　a(4) = 150</p><p>　　Label4.Caption = a(4)</p><p><b>　　Case 5</b></p><p>　　Image1.Picture = Loa

94、dPicture(App.Path + "\煎豆腐魚烙.jpg")</p><p><b>　　a(5) = 85</b></p><p>　　Label4.Caption = a(5)</p><p><b>　　Case 6</b></p><p>　　Image1.Pict

95、ure = LoadPicture(App.Path + "\孔雀迎賓.jpg")</p><p><b>　　a(6) = 80</b></p><p>　　Label4.Caption = a(6)</p><p><b>　　Case 7</b></p><p>　　Ima

96、ge1.Picture = LoadPicture(App.Path + "\雪菜大湯黃魚.jpg")</p><p><b>　　a(7) = 70</b></p><p>　　Label4.Caption = a(7)</p><p><b>　　Case 8</b></p><

97、p>　　Image1.Picture = LoadPicture(App.Path + "\楊梅肉丸.jpg")</p><p><b>　　a(8) = 65</b></p><p>　　Label4.Caption = a(8)</p><p><b>　　Case 9</b></p&g

98、t;<p>　　Image1.Picture = LoadPicture(App.Path + "\魚鲞烤肉.jpg")</p><p><b>　　a(9) = 80</b></p><p>　　Label4.Caption = a(9)</p><p><b>　　Case 10</b>

99、;</p><p>　　Image1.Picture = LoadPicture(App.Path + "\咸蛋黃炒南瓜.jpg")</p><p>　　a(10) = 45</p><p>　　Label4.Caption = a(10)</p><p><b>　　Case 11</b></

100、p><p>　　Image1.Picture = LoadPicture(App.Path + "\蟹鑲橙.jpg")</p><p>　　a(11) = 125</p><p>　　Label4.Caption = a(11)</p><p><b>　　Case 12</b></p>&

101、lt;p>　　Image1.Picture = LoadPicture(App.Path + "\紹興雞.jpg")</p><p>　　a(12) = 99</p><p>　　Label4.Caption = a(12)</p><p><b>　　Case 13</b></p><p>　

102、　Image1.Picture = LoadPicture(App.Path + "\宋嫂魚羹.jpg")</p><p>　　a(13) = 50</p><p>　　Label4.Caption = a(13)</p><p><b>　　Case 14</b></p><p>　　Image1.

103、Picture = LoadPicture(App.Path + "\苔條黃魚.jpg")</p><p>　　a(14) = 79</p><p>　　Label4.Caption = a(14)</p><p><b>　　Case 15</b></p><p>　　Image1.Picture

104、= LoadPicture(App.Path + "\西湖牛肉羹.jpg")</p><p>　　a(15) = 80</p><p>　　Label4.Caption = a(15)</p><p><b>　　Case 16</b></p><p>　　Image1.Picture = LoadP

105、icture(App.Path + "\米粉蒸肉.jpg")</p><p>　　a(16) = 70</p><p>　　Label4.Caption = a(16)</p><p><b>　　Case 17</b></p><p>　　Image1.Picture = LoadPicture(A

106、pp.Path + "\麒麟桂魚.jpg")</p><p>　　a(17) = 85</p><p>　　Label4.Caption = a(17)</p><p><b>　　Case 18</b></p><p>　　Image1.Picture = LoadPicture(App.Path

107、+ "\千張包子蒸帶魚.jpg")</p><p>　　a(18) = 65</p><p>　　Label4.Caption = a(18)</p><p><b>　　Case 19</b></p><p>　　Image1.Picture = LoadPicture(App.Path + &qu

108、ot;\熗油菜.jpg")</p><p>　　a(19) = 30</p><p>　　Label4.Caption = a(19)</p><p><b>　　Case 20</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\兩吃大蝦.

109、jpg")</p><p>　　a(20) = 75</p><p>　　Label4.Caption = a(20)</p><p><b>　　Case 21</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\龍井蝦仁.jpg"

110、;)</p><p>　　a(21) = 88</p><p>　　Label4.Caption = a(21)</p><p><b>　　Case 22</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\海參炆花膠.jpg")</

111、p><p>　　a(22) = 100</p><p>　　Label4.Caption = a(22)</p><p><b>　　Case 23</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\雙味青蟹.jpg")</p>

112、<p>　　a(23) = 123</p><p>　　Label4.Caption = a(23)</p><p><b>　　Case 24</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\黃金燴豆花.jpg")</p><p&

113、gt;　　a(24) = 35</p><p>　　Label4.Caption = a(24)</p><p><b>　　Case 25</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\蒸鯧魚.jpg")</p><p>　　a(25

114、) = 98</p><p>　　Label4.Caption = a(25)</p><p><b>　　Case 26</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\八寶豆腐.jpg")</p><p>　　a(26) = 32&l

115、t;/p><p>　　Label4.Caption = a(26)</p><p><b>　　Case 27</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\糖醋熘素鱔.jpg")</p><p>　　a(27) = 85</p>

116、;<p>　　Label4.Caption = a(27)</p><p><b>　　Case 28</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\糖醋鮮藕.jpg")</p><p>　　a(28) = 40</p><p

117、>　　Label4.Caption = a(28)</p><p><b>　　Case 29</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\蘇式醬汁肉.jpg")</p><p>　　a(29) = 75</p><p>　　L

118、abel4.Caption = a(29)</p><p><b>　　Case 30</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\干貝白菜心.jpg")</p><p>　　a(30) = 33</p><p>　　Label4.C

119、aption = a(30)</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub List2_Click()</p><p>　　Dim b(0 To 26) As Integer</p><p>　　Selec

120、t Case List2.ListIndex</p><p><b>　　Case 0</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\春卷.jpg")</p><p><b>　　b(0) = 30</b></p><

121、p>　　Label4.Caption = b(0)</p><p><b>　　Case 1</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\拌海蜇皮.jpg")</p><p><b>　　b(1) = 35</b></p&g

122、t;<p>　　Label4.Caption = b(1)</p><p><b>　　Case 2</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\爽口瓜皮丁.jpg")</p><p><b>　　b(2) = 25</b>

123、;</p><p>　　Label4.Caption = b(2)</p><p><b>　　Case 3</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\拌羊肚絲.jpg")</p><p><b>　　b(3) = 45&

124、lt;/b></p><p>　　Label4.Caption = b(3)</p><p><b>　　Case 4</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\涼拌蕎面涼粉.jpg")</p><p><b>　　

125、b(4) = 25</b></p><p>　　Label4.Caption = b(4)</p><p><b>　　Case 5</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\紅薯涼粉.jpg")</p><p><

126、;b>　　b(5) = 30</b></p><p>　　Label4.Caption = b(5)</p><p><b>　　Case 6</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\涼拌筍絲.jpg")</p><

127、p><b>　　b(6) = 28</b></p><p>　　Label4.Caption = b(6)</p><p><b>　　Case 7</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\干豆腐粉絲拌黃瓜.jpg")<

128、/p><p><b>　　b(7) = 26</b></p><p>　　Label4.Caption = b(7)</p><p><b>　　Case 8</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\涼拌萵筍絲.jpg&q

129、uot;)</p><p><b>　　b(8) = 30</b></p><p>　　Label4.Caption = b(8)</p><p><b>　　Case 9</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\黃瓜

130、拌粉皮.jpg")</p><p><b>　　b(9) = 20</b></p><p>　　Label4.Caption = b(9)</p><p><b>　　Case 10</b></p><p>　　Image1.Picture = LoadPicture(App.Path +

131、 "\熗拌文筍.jpg")</p><p>　　b(10) = 31</p><p>　　Label4.Caption = b(10)</p><p><b>　　Case 11</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\

132、皮蛋豆腐.jpg")</p><p>　　b(11) = 15</p><p>　　Label4.Caption = b(11)</p><p><b>　　Case 12</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\韭菜拌兔肝.jp

133、g")</p><p>　　b(12) = 45</p><p>　　Label4.Caption = b(12)</p><p><b>　　Case 13</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\糟鹵雞爪.jpg")

134、</p><p>　　b(13) = 29</p><p>　　Label4.Caption = b(13)</p><p><b>　　Case 14</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\手撕茄子.jpg")</p&g

135、t;<p>　　b(14) = 32</p><p>　　Label4.Caption = b(14)</p><p><b>　　Case 15</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\海蜇拌黃瓜.jpg")</p><

136、;p>　　b(15) = 24</p><p>　　Label4.Caption = b(15)</p><p><b>　　Case 16</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\尖椒皮蛋.jpg")</p><p>　　

137、b(16) = 30</p><p>　　Label4.Caption = b(16)</p><p><b>　　Case 17</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\泰式?jīng)霭椟S瓜卷.jpg")</p><p>　　b(17)

138、 = 32</p><p>　　Label4.Caption = b(17)</p><p><b>　　Case 18</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\涼拌豆芽菜.jpg")</p><p>　　b(18) = 21&l

139、t;/p><p>　　Label4.Caption = b(18)</p><p><b>　　Case 19</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\蔬豆卷.jpg")</p><p>　　b(19) = 35</p>

140、<p>　　Label4.Caption = b(19)</p><p><b>　　Case 20</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\蠔油山藥.jpg")</p><p>　　b(20) = 35</p><p&g

141、t;　　Label4.Caption = b(20)</p><p><b>　　Case 21</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\爽口雞胗.jpg")</p><p>　　b(21) = 50</p><p>　　Labe

142、l4.Caption = b(21)</p><p><b>　　Case 22</b></p><p>　　Image1.Picture = LoadPicture(App.Path + "\雞肉咸蛋卷.jpg")</p><p>　　b(22) = 48</p><p>　　Label4.Capt