實驗7 實現小超市飲料補貨提醒程序

實驗內容

掌握變量、局部靜態變量的使用方法及if 語句、select case語句的使用方法

自己完成簡單的小超市飲料補貨提醒程序并且正確地運行。
小超市飲料補貨提醒程序需要實現的功能：
1）每次賣走礦泉水時，輸入相應的瓶數，然后點擊“確定”按鈕，顯示出今日總共賣出多少瓶。
2）假設每天早上小超市的礦泉水的總瓶數為300瓶：點擊確定按鈕時，計算剩余的礦泉水瓶數，
如果少于30瓶，則彈出警告Msgbox：“請補貨！！”
如果等于0瓶，則彈出警告Msgbox：“賣光了！”
如果少于0瓶，則彈出警告Msgbox：“庫存不夠了！”
注意什么時候應該更新顯示 “今日總共賣出多少瓶”

編寫實驗報告。

實驗環境

Windows7，Office、VB開發環境。

實驗運行結果

完成簡單的小超市飲料補貨提醒程序、此處要求運行結果截圖

過程中遇到了一個小問題，報錯及解決方法如下（像回答者說的那樣，把所有的變量都改名即可）

實驗代碼

以下為圖片版代碼

以下為文字版代碼

Public leave As Integer, f As Boolean '總剩余 Public totalsold As Integer '總賣出Private Sub Command1_Click()If Not f Then leave = 300: f = True'判斷是否>0 否則不能賣Dim temp As Integertemp = 0temp = leave - Val(Text1.Text)If temp < 0 ThenMsgBox "賣出失敗，庫存不足，請減小賣出數量或補充庫存"Exit SubEnd If'可以賣Dim sold As Integer '此次賣出sold = Val(Text1.Text)leave = leave - soldtotalsold = totalsold + soldIf (leave = 0) ThenMsgBox "賣出成功，但剩余庫存為0，請及時補充"ElseIf (leave < 30) ThenMsgBox "賣出成功，但剩余庫存小于30，請及時補充"End If'更新顯示Label4.Caption = totalsoldLabel5.Caption = leaveEnd SubPrivate Sub Command2_Click()leave = 300totalsold = 0Label4.Caption = 0Label5.Caption = 300End SubPrivate Sub Command3_Click()'如果直接補充庫存，初始化庫存為300再補充If Not f Then leave = 300: f = True'讀取補貨量Dim add As Integeradd = Val(Text2.Text)'加到剩余leave = leave + add'更新顯示Label4.Caption = totalsoldLabel5.Caption = leaveEnd Sub

實驗心得體會

本實驗小超市飲料補貨提醒程序，具有賣出、補貨、存貨不足時的提示等功能。通過這次實驗，進一步鞏固了if語句的使用、static靜態變量的使用。另外，本程序中聲明了public全局變量，這樣可以在多個函數中重復使用這個變量。

總結

以上是生活随笔為你收集整理的vb 实现小超市饮料补货提醒程序 public全局变量的声明与初始化的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。