2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩33頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、<p><b>  VB課程設計</b></p><p>  設計題目: 酒店點菜系統(tǒng) </p><p><b>  2012年6月</b></p><p><b>  信息工程學院</b></p><p><b>  目錄</b>

2、;</p><p><b>  目錄1</b></p><p><b>  摘要2</b></p><p>  關鍵字:VB設計、酒店信息、酒店管理、點菜系統(tǒng)、VB主流產品2</p><p><b>  一. 題目分析3</b></p><p>

3、<b>  (1).登錄3</b></p><p> ?。?).菜式管理系統(tǒng)3</p><p>  (3).點菜系統(tǒng)3</p><p><b>  二. 設計概述4</b></p><p> ?。?)各模塊之間的關系4</p><p>  (2)各模塊流程圖4&l

4、t;/p><p><b>  三.詳細設計6</b></p><p><b>  1.模塊窗體6</b></p><p>  2.酒店菜單登錄系統(tǒng)(form1)6</p><p>  3.菜式管理系統(tǒng)(form2)7</p><p>  4.點菜系統(tǒng)(form3)8&l

5、t;/p><p>  5.菜式瀏覽系統(tǒng)9</p><p>  四 效果及存在問題:11</p><p><b>  1.效果 :11</b></p><p>  2.存在問題:18</p><p><b>  五.總結19</b></p><p>

6、;<b>  六.參考文獻20</b></p><p>  七、對該題目和VB設計的意見和建議21</p><p>  1. 對該題目的意見和建議21</p><p>  2.對本次設計的意見和建議21</p><p><b>  附錄22</b></p><p>

7、<b>  源代碼22</b></p><p><b>  摘要</b></p><p>  經過一個學期對《VB程序設計》的學習,同學們都認為真正的學到了有用知識,可能有一些人學的不夠理想,但無論如何,這些知識都為我們的下一步學習打下了堅實的基礎。做這么一個課程設計,一方面是為了檢查我們一個學期來我們學習的成果,另一方面也是為了讓我們進一步的

8、掌握和運用它,同時也讓我們認清自己的不足之處和薄弱環(huán)節(jié),加以彌補和加強。</p><p>  本程序是酒店點菜系統(tǒng)程序,可以更方便酒店管理行業(yè)。</p><p>  關鍵字:VB設計、酒店信息、酒店管理、點菜系統(tǒng)、VB主流產品</p><p><b>  一. 題目分析</b></p><p><b> ?。?

9、).登錄</b></p><p>  打開飯店菜式管理系統(tǒng)程序,進入主界面。通過輸入用戶名和密碼登錄到菜品式管理界面</p><p>  兩個按鈕可以分別進入菜式管理系統(tǒng)和退出系統(tǒng)。</p><p> ?。?).菜式管理系統(tǒng)</p><p>  通過輸入用戶名和密碼進入到了菜式管理界面,點擊菜式管理菜單,對菜式進行添加和刪除,以及

10、退出程序。三個按鈕可以分別進入到點菜系統(tǒng)、菜式瀏覽系統(tǒng)以及返回主界面。</p><p><b>  (3).點菜系統(tǒng)</b></p><p>  通過點擊菜式管理系統(tǒng)的點菜按鈕進入到點菜系統(tǒng)。此界面有兩個列表框,分別放飯店里所有菜式以及已點的菜,再通過點菜按鈕將飯店菜式列表框里的菜點到已點列表框里,通過退菜按鈕對已點列表框里的菜進行刪除。在點菜和退菜的同時還對菜式價格

11、進行計算。點菜完成后進行落單,點擊返回管理界面按鈕返回管理系統(tǒng)界面。</p><p> ?。?).菜式管理系統(tǒng)</p><p>  通過點擊菜式管理系統(tǒng)的菜式瀏覽按鈕進入到菜式瀏覽系統(tǒng)。通過點擊按菜名、價格和菜系瀏覽菜單,對菜式分別進行瀏覽。點擊返回管理界面按鈕返回管理里系統(tǒng)。.</p><p><b>  二. 設計概述</b></p&

12、gt;<p> ?。?)各模塊之間的關系</p><p><b>  登</b></p><p><b>  錄</b></p><p><b>  失</b></p><p><b>  敗</b></p><p>

13、<b>  登錄成功</b></p><p><b> ?。?)各模塊流程圖</b></p><p><b>  a:菜式管理系統(tǒng)</b></p><p><b>  b:點菜系統(tǒng)</b></p><p><b>  c:菜式瀏覽系統(tǒng)</b

14、></p><p><b>  三.詳細設計</b></p><p><b>  1.模塊窗體</b></p><p>  Public i As Integer</p><p>  Public sum As Single</p><p>  Type caidan&

15、lt;/p><p>  cm As String</p><p>  cx As String</p><p>  jg As Integer</p><p>  yl As String</p><p>  zk As Single</p><p><b>  End Type</

16、b></p><p>  Public s() As caidan</p><p>  Function chazhao(ByVal n As String) As Integer</p><p>  Dim j As Integer</p><p>  For j = 1 To i</p><p>  If n

17、 = s(j).cm Then chazhao = j</p><p>  If n = s(j).cx Then chazhao = j</p><p>  If n = Str(s(j).jg) Then chazhao = j</p><p>  If n = s(j).yl Then chazhao = j</p><p>  If

18、n = Str(s(j).zk) Then chazhao = j</p><p><b>  Next j</b></p><p>  End Function</p><p>  2.酒店菜單登錄系統(tǒng)(form1)</p><p>  Private Sub Command1_Click()</p>&

19、lt;p><b>  Dim mes%</b></p><p>  If Text1.Text = "jane" And Text2.Text = "123456" Then</p><p>  Form1.Hide</p><p>  Form2.Show</p><p>

20、<b>  Else</b></p><p>  mes = MsgBox("用戶名或密碼錯誤,請重新輸入!")</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p><b>  End

21、 If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p><b>  End</b></p><p><b>  End Sub</b></p>&

22、lt;p>  Private Sub Form_Load()</p><p>  Text2.PasswordChar = "*"</p><p><b>  End Sub</b></p><p>  3.菜式管理系統(tǒng)(form2)</p><p>  Private Sub mnufilea

23、dd_Click()</p><p>  ReDim Preserve s(1 To (i + 1)) As caidan</p><p><b>  i = i + 1</b></p><p>  s(i).cm = InputBox("請輸入菜名", "新增")</p><p>

24、;  s(i).cx = InputBox("請輸入菜系", "新增")</p><p>  s(i).jg = InputBox("請輸入價格", "新增")</p><p>  s(i).yl = InputBox("請輸入原料", "新增")</p>

25、<p>  s(i).zk = InputBox("請輸入折扣", "新增")</p><p><b>  End Sub</b></p><p>  Private Sub mnufiledel_Click()</p><p>  Dim j As Integer</p><

26、;p>  Dim k As Integer</p><p>  Dim n As String</p><p>  n = InputBox("請輸入查找的關鍵字", "查找")</p><p>  j = chazhao(n)</p><p>  For k = j To i - 1</p

27、><p>  s(k) = s(k + 1)</p><p><b>  Next k</b></p><p><b>  i = i - 1</b></p><p><b>  End Sub</b></p><p>  Private Sub mnufi

28、leqiute_Click()</p><p><b>  End</b></p><p><b>  End Sub</b></p><p>  Public Function chazhao(ByVal n As String) As Integer</p><p>  Dim j As Int

29、eger</p><p>  For j = 1 To i</p><p>  If n = s(j).cm Then chazhao = j</p><p>  If n = s(j).cx Then chazhao = j</p><p>  If n = Str(s(j).jg) Then chazhao = j</p>

30、<p>  If n = s(j).yl Then chazhao = j</p><p>  If n = Str(s(j).zk) Then chazhao = j</p><p><b>  Next j</b></p><p>  End Function</p><p>  4.點菜系統(tǒng)(form3)

31、</p><p>  Private Sub Command1_Click()</p><p>  For j = 0 To List1.ListCount - 1</p><p>  If List1.Selected(j) Then</p><p>  List2.AddItem List1.List(j)</p><

32、p>  sum = sum + s(j + 1).jg * s(j + 1).zk</p><p><b>  End If</b></p><p><b>  Next j</b></p><p>  Label1.Caption = sum</p><p><b>  End S

33、ub</b></p><p>  Private Sub Command2_Click()</p><p>  If List2.ListIndex >= 0 Then</p><p>  For j = 0 To List2.ListCount - 1</p><p>  If List2.Selected(j) Then

34、</p><p>  n = List2.List(j)</p><p><b>  End If</b></p><p><b>  Next j</b></p><p>  j = chazhao(n)</p><p>  sum = sum - s(j).jg * s(

35、j).zk</p><p>  List2.RemoveItem List2.ListIndex</p><p>  Label1.Caption = sum</p><p><b>  End If</b></p><p>  Label1.Caption = sum</p><p><b

36、>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>  Label5 = "謝謝使用!"</p><p><b>  End Sub</b></p><p>  Private Sub Command4_Clic

37、k()</p><p>  Unload Form3</p><p>  Form2.Show</p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p>  Dim j As Integer</p><

38、;p>  For j = 1 To i</p><p>  List1.AddItem s(j).cm</p><p><b>  Next j</b></p><p><b>  End Sub</b></p><p><b>  5.菜式瀏覽系統(tǒng)</b></p&

39、gt;<p>  Private Sub cm_Click()</p><p>  For j = 1 To i - 1</p><p>  For k = i To j + 1 Step -1</p><p>  If s(k).cm < s(k - 1).cm Then</p><p>  m = s(k).cm: s

40、(k).cm = s(k - 1).cm: s(k - 1).cm = m</p><p>  m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m</p><p>  m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m</p><p>  m = s(k).yl:

41、 s(k).yl = s(k - 1).yl: s(k - 1).yl = m</p><p>  m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m</p><p><b>  End If</b></p><p><b>  Next k</b></p>

42、<p><b>  Next j</b></p><p><b>  Cls</b></p><p>  Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)</p><p>  For j = 1 To i</p><p>  Print

43、s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk</p><p><b>  Next j</b></p><p><b>  End Sub</b></p><p>  Private Sub Command1_Click()</p><p>  Unload

44、 Form4</p><p>  Form3.Show</p><p><b>  End Sub</b></p><p>  Private Sub cx_Click()</p><p>  For j = 1 To i - 1</p><p>  For k = i To j + 1 Step

45、 -1</p><p>  If s(k).cx < s(k - 1).cx Then</p><p>  m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m</p><p>  m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m</p>&l

46、t;p>  m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m</p><p>  m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m</p><p>  m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m</p>

47、<p><b>  End If</b></p><p><b>  Next k</b></p><p><b>  Next j</b></p><p><b>  Cls</b></p><p>  Print Chr(13), Chr(1

48、3), Chr(13), Chr(13), Chr(13)</p><p>  For j = 1 To i</p><p>  Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk</p><p><b>  Next j</b></p><p><b>  En

49、d Sub</b></p><p>  Private Sub Form_Load()</p><p><b>  Show</b></p><p><b>  Print</b></p><p>  Print Chr(13), Chr(13), Chr(13), Chr(13), C

50、hr(13)</p><p>  For j = 1 To i</p><p>  Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk</p><p><b>  Next j</b></p><p><b>  End Sub</b></p&g

51、t;<p>  Private Sub jg_Click()</p><p>  For j = 1 To i - 1</p><p>  For k = i To j + 1 Step -1</p><p>  If s(k).jg < s(k - 1).jg Then</p><p>  m = s(k).cm: s(

52、k).cm = s(k - 1).cm: s(k - 1).cm = m</p><p>  m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m</p><p>  m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m</p><p>  m = s(k).yl:

53、s(k).yl = s(k - 1).yl: s(k - 1).yl = m</p><p>  m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m</p><p><b>  End If</b></p><p><b>  Next k</b></p>

54、<p><b>  Next j</b></p><p><b>  Cls</b></p><p>  Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)</p><p>  For j = 1 To i</p><p>  Print s

55、(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk</p><p><b>  Next j</b></p><p><b>  End Sub</b></p><p>  四 效果及存在問題:</p><p><b>  1.效果 :</b>

56、</p><p>  程序開始運行,進入酒店菜單管理系統(tǒng)登錄主界面,輸入用戶名和密碼:</p><p>  點擊“登錄”按鈕進入菜式管理系統(tǒng):</p><p>  點擊“菜式管理”菜單里的“新增”,根據(jù)提示進行菜式信息輸入:</p><p>  根據(jù)提示依次輸入新增的菜....</p><p>  菜式輸入完后,點擊“

57、菜式瀏覽”按鈕,進入“菜式瀏覽界面”瀏覽菜的所有信息:</p><p>  點擊“按菜名瀏覽”菜單,所有菜的信息就按菜名重新排列:</p><p>  點擊“按菜價瀏覽”菜單,所有菜的信息就按菜價從低到高重新排列:</p><p>  點擊“按菜系瀏覽”菜單,所有菜的信息就按菜系重新排列:</p><p>  點擊“返回點菜界面”按鈕,進入點

58、菜系統(tǒng):</p><p>  選中“菜單”列表框了的某個菜,再點擊“點菜=>”按鈕,所選中的菜就到了“已點”列表框里了,并且對當前已點菜的價格進行計算:</p><p>  若不想要“已點”列表框里的某個菜,選中這個菜,再點擊“<=退菜”按鈕,這個菜就從“已點”列表框里刪除掉了,同時這個菜的價錢也減去了:</p><p>  點擊“落單”按鈕,生成賬單:

59、</p><p>  點擊“返回管理界面”按鈕,返回管理系統(tǒng),若想刪除某個菜式,點擊“菜式管理”里的“刪除”按鈕,根據(jù)提示進行刪除:</p><p>  查看菜單里面“雞蛋鴨卷”這個菜的所有信息是否刪除:</p><p>  瀏覽菜單里和點菜系統(tǒng)里菜單里,“雞蛋鴨卷”的信息都以刪除。</p><p>  所有功能完成后,最后退回登錄系統(tǒng)首頁,

60、點擊“退出”按鈕,退出整個系統(tǒng)。</p><p><b>  2.存在問題:</b></p><p>  程序編寫時沒有用到文件,不帶保存功能,每次運行程序時,都到重新輸入菜式信息,比較麻煩。應該使用文件,這樣會更完善!</p><p><b>  五.總結</b></p><p>  一個星期的軟

61、件課程設計結束了,課程設計是培養(yǎng)學生綜合運用所學知識,發(fā)現(xiàn),提出,分析和解決實際問題,鍛煉實踐能力的重要環(huán)節(jié),是對學生實際工作能力的具體訓練和考察過程.</p><p>  經過一周的VB課程設計,我解決實際問題的能力提高了并學會了自主學習,自我提高和自我完善,用已學過VB知識及的自學數(shù)據(jù)庫技術編寫程序。</p><p>  課程設計讓我們學習與實踐相結合,加深了了我們對書本知識的理解能力

62、,學以致用。鍛煉了我的自主學習能力及創(chuàng)新能力。在今后的學習中,還要繼續(xù)加強自主學習與實踐的鍛煉。</p><p>  回想學習課程設計的過程中,既有煩惱又有快樂。從思考題目的時候開始,到程序的編寫,上機調試,這中間我們遇到很多困難。程序設計期間,遇到問題自己思考并積極去解決,也向同學,老師和網絡尋求幫助,在編程過程中,我們就遇到了記錄數(shù)組,各模塊之間的調用。經過集思廣益后,我收獲很大,不僅解決了問題,還增進了同學

63、之間的友誼。當解決一個問題時,我都很有成就感;當問題很難解決時,我會回到課本,復習以前學過的知識,再思考問題,直至把問題解決。在上機調試的過程中,我們還遇到許多類似的問題,最后在我們的共同努力下,通過向老師、同學請教,查參考資料,我們把所有的困難都解決了!在程序沒有問題,所有功能都能操作的情況下,最后我們還要對顯示的頁面進行設計,要是輸出頁面清晰明了,這就要求我們對輸出的可是進行正確的控制。</p><p>  

64、通過這次課程設計使我懂得了理論與實際相結合是很重要的,只有理論知識是遠遠不夠的,只有把所學的理論知識與實踐相結合起來,從理論中得出結論,才能真正為社會服務,從而提高自己的實際動手能力和獨立思考的能力。通過這次課程設計,我基本掌握了VB設計的問題分析、總體結構設計、用戶界面設計、程序設計基本技能和技巧,并且加深理解課堂上學習的內容。在設計過程中,我逐步提高了程序設計和調試能力,培養(yǎng)了我們解決問題的能力,算法分析能力和,同時我也學到了以后解

65、決問題的時候要認真,仔細,考慮周全而且要有耐力,也看到了團隊精神和互幫互助的重要性。這一點會讓我終生受益。</p><p>  這次課程設計終于順利完成了,在設計中遇到了很多編程問題,最后在王老師的辛勤指導下,終于游逆而解。同時,在王老師的身上我學得到很多實用的知識,再次我表示感謝!同時,對給過我?guī)椭乃型瑢W和指導老師再次表示忠心的感謝!</p><p><b>  六.參考文

66、獻</b></p><p>  [1] 郭仁華,霍東亞,陳印光. VB+Surfer實現(xiàn)地下水降落漏斗變化趨勢動態(tài)顯示[J].山東水利科技,2008(3).[2] 賈宏元,趙光平,孫銀川,等. 基于Surfer Automation對象技術的等值線自動繪圖方法研究與應用[J]. 計算機系統(tǒng)應用,2006(7).[3] 任磊,陳華根.基于面積統(tǒng)計的Surfer軟件等值線等級文件自動生成[J].物

67、探與化探,2009, 33(5) 595-598.[4] 秦林江.Surfer與MapGIS圖件相互轉換的幾個問題[J].物探與化探,2010,34(5):677-680.[5] 陳善.重力勘探[M].北京:地質出版社,1986.[6] 曾華霖.重力場與重力勘探[M].北京:地質出版社,2005.</p><p>  七、對該題目和VB設計的意見和建議</p><p>  1.

68、 對該題目的意見和建議</p><p>  打字程序入門簡單,容易下手做,但要完善他還是有一定的難度, 我們有很大的創(chuàng)新空間,能發(fā)揮每個同學的潛能,而且它是一個非常常見的程序,所以,容易使人理解,編寫目的明確。綜上所述,本題木是個很不錯的課題</p><p>  2.對本次設計的意見和建議</p><p>  本次活動培養(yǎng)我們綜合利用VB語言進行程序設計的能力,培養(yǎng)

69、了我們利用系統(tǒng)提供的標準函數(shù)和標準控件進行創(chuàng)新設計。</p><p>  現(xiàn)在雖然要求素質教育,但我們實踐的機會還是很少,像這樣好的火動更少,所以,搞這種實踐活動是非常有必要的</p><p>  希望學校常搞這種活動</p><p><b>  附錄</b></p><p><b>  源代碼</b&g

70、t;</p><p>  Public i As Integer</p><p>  Public sum As Single</p><p>  Type caidan</p><p>  cm As String</p><p>  cx As String</p><p>  jg As

71、Integer</p><p>  yl As String</p><p>  zk As Single</p><p><b>  End Type</b></p><p>  Public s() As caidan</p><p>  Function chazhao(ByVal n As

72、 String) As Integer</p><p>  Dim j As Integer</p><p>  For j = 1 To i</p><p>  If n = s(j).cm Then chazhao = j</p><p>  If n = s(j).cx Then chazhao = j</p><p

73、>  If n = Str(s(j).jg) Then chazhao = j</p><p>  If n = s(j).yl Then chazhao = j</p><p>  If n = Str(s(j).zk) Then chazhao = j</p><p><b>  Next j</b></p><p

74、>  End Function</p><p>  Private Sub Command1_Click()</p><p><b>  Dim mes%</b></p><p>  If Text1.Text = "jane" And Text2.Text = "123456" Then</

75、p><p>  Form1.Hide</p><p>  Form2.Show</p><p><b>  Else</b></p><p>  mes = MsgBox("用戶名或密碼錯誤,請重新輸入!")</p><p>  Text1.Text = ""&

76、lt;/p><p>  Text2.Text = ""</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p><

77、b>  End</b></p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p>  Text2.PasswordChar = "*"</p><p><b>  End Sub</b>

78、;</p><p>  Private Sub mnufileadd_Click()</p><p>  ReDim Preserve s(1 To (i + 1)) As caidan</p><p><b>  i = i + 1</b></p><p>  s(i).cm = InputBox("請輸入菜

79、名", "新增")</p><p>  s(i).cx = InputBox("請輸入菜系", "新增")</p><p>  s(i).jg = InputBox("請輸入價格", "新增")</p><p>  s(i).yl = InputBox(&q

80、uot;請輸入原料", "新增")</p><p>  s(i).zk = InputBox("請輸入折扣", "新增")</p><p><b>  End Sub</b></p><p>  Private Sub mnufiledel_Click()</p>

81、<p>  Dim j As Integer</p><p>  Dim k As Integer</p><p>  Dim n As String</p><p>  n = InputBox("請輸入查找的關鍵字", "查找")</p><p>  j = chazhao(n)<

82、;/p><p>  For k = j To i - 1</p><p>  s(k) = s(k + 1)</p><p><b>  Next k</b></p><p><b>  i = i - 1</b></p><p><b>  End Sub</b

83、></p><p>  Private Sub mnufileqiute_Click()</p><p><b>  End</b></p><p><b>  End Sub</b></p><p>  Public Function chazhao(ByVal n As String) A

84、s Integer</p><p>  Dim j As Integer</p><p>  For j = 1 To i</p><p>  If n = s(j).cm Then chazhao = j</p><p>  If n = s(j).cx Then chazhao = j</p><p>  If n

85、 = Str(s(j).jg) Then chazhao = j</p><p>  If n = s(j).yl Then chazhao = j</p><p>  If n = Str(s(j).zk) Then chazhao = j</p><p><b>  Next j</b></p><p>  End

86、Function</p><p>  Private Sub Command1_Click()</p><p>  For j = 0 To List1.ListCount - 1</p><p>  If List1.Selected(j) Then</p><p>  List2.AddItem List1.List(j)</p&g

87、t;<p>  sum = sum + s(j + 1).jg * s(j + 1).zk</p><p><b>  End If</b></p><p><b>  Next j</b></p><p>  Label1.Caption = sum</p><p><b>

88、;  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  If List2.ListIndex >= 0 Then</p><p>  For j = 0 To List2.ListCount - 1</p><p>  If List2.Selected

89、(j) Then</p><p>  n = List2.List(j)</p><p><b>  End If</b></p><p><b>  Next j</b></p><p>  j = chazhao(n)</p><p>  sum = sum - s(j)

90、.jg * s(j).zk</p><p>  List2.RemoveItem List2.ListIndex</p><p>  Label1.Caption = sum</p><p><b>  End If</b></p><p>  Label1.Caption = sum</p><p&

91、gt;<b>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>  Label5 = "謝謝使用!"</p><p><b>  End Sub</b></p><p>  Private Sub Comma

92、nd4_Click()</p><p>  Unload Form3</p><p>  Form2.Show</p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p>  Dim j As Integer</p&

93、gt;<p>  For j = 1 To i</p><p>  List1.AddItem s(j).cm</p><p><b>  Next j</b></p><p><b>  End Sub</b></p><p>  Private Sub cm_Click()<

94、/p><p>  For j = 1 To i - 1</p><p>  For k = i To j + 1 Step -1</p><p>  If s(k).cm < s(k - 1).cm Then</p><p>  m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m</

95、p><p>  m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m</p><p>  m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m</p><p>  m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m<

96、;/p><p>  m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m</p><p><b>  End If</b></p><p><b>  Next k</b></p><p><b>  Next j</b></

97、p><p><b>  Cls</b></p><p>  Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)</p><p>  For j = 1 To i</p><p>  Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).z

98、k</p><p><b>  Next j</b></p><p><b>  End Sub</b></p><p>  Private Sub Command1_Click()</p><p>  Unload Form4</p><p>  Form3.Show<

99、;/p><p><b>  End Sub</b></p><p>  Private Sub cx_Click()</p><p>  For j = 1 To i - 1</p><p>  For k = i To j + 1 Step -1</p><p>  If s(k).cx <

100、s(k - 1).cx Then</p><p>  m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m</p><p>  m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m</p><p>  m = s(k).jg: s(k).jg = s(k - 1).j

101、g: s(k - 1).jg = m</p><p>  m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m</p><p>  m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m</p><p><b>  End If</b></p

102、><p><b>  Next k</b></p><p><b>  Next j</b></p><p><b>  Cls</b></p><p>  Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)</p>&

103、lt;p>  For j = 1 To i</p><p>  Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk</p><p><b>  Next j</b></p><p><b>  End Sub</b></p><p>  Priv

104、ate Sub Form_Load()</p><p><b>  Show</b></p><p><b>  Print</b></p><p>  Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)</p><p>  For j = 1 To

105、i</p><p>  Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk</p><p><b>  Next j</b></p><p><b>  End Sub</b></p><p>  Private Sub jg_Click()</

106、p><p>  For j = 1 To i - 1</p><p>  For k = i To j + 1 Step -1</p><p>  If s(k).jg < s(k - 1).jg Then</p><p>  m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m</p

107、><p>  m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m</p><p>  m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m</p><p>  m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m<

108、/p><p>  m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m</p><p><b>  End If</b></p><p><b>  Next k</b></p><p><b>  Next j</b></p

109、><p><b>  Cls</b></p><p>  Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)</p><p>  For j = 1 To i</p><p>  Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論