vb 实现小超市饮料补货提醒程序 public全局变量的声明与初始化

实验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全局变量的声明与初始化相关推荐

补货提醒excel整理
知识点 excel透视表解锁数据透视表 vlookup函数 VLOOKUP函数.数据透视表补货表使用手动填写每个产品每天的销量,源数据表整理 FBA库存表在途库存备货周期上架周期物流周 ...
dubbo被阿里放弃原因_中间件小姐姐直播“带货”——阿里程序员必知的插件
老早就听闻 "中间件小姐姐" 的名气,刚好这一次遇上小姐姐做直播,嗲嗲的声音真是甜得不行,要是以后都是这种软萌音来做直播,我一定准时准点抢座位并且乖乖吃下这一剂安利. 小姐姐和岛风 ...
首发 | 中间件小姐姐直播“带货”——阿里程序员必知的插件
点击上方"朱小厮的博客",选择"设为星标" 回复"1024"获取独家整理的学习资料老早就听闻 "中间件小姐姐" 的名气 ...
中间件小姐姐直播“带货” - 阿里程序员必知的 IDE 插件
本文转载自公众号「朱小厮的博客」老早就听闻 "中间件小姐姐" 的名气,刚好这一次遇上小姐姐做直播,嗲嗲的声音真是甜得不行,要是以后都是这种软萌音来做直播,我一定准时准点抢座位并且 ...
Webots仿真超市补货机器人
webots仿真超市自动补货机器人选题要求基于webots平台下机器人选型与模型搭建机器人结构选型设计机器臂结构设计机器人传感器设计电机力传感: 视觉传感: 罗盘及GPS: 世界搭建机器 ...
10.8.8.8柠檬wifi网页登录_20.5.24—0元Kindle补货了！速度上车！
点击上面蓝字,带你进入值得省的0撸新世界 HELLO·值得省线报 Enjoy the taste of shopping 值の省线报今天是2020年5月24日我是值得省的小绿帽补货!打卡 ...
DTC补货实战：从算法到落地
本文作者:凡飞,从快递到快消,一个平凡的供应链算法深耕者. " 我希望衡量我们ai团队价值的,不是创造了多么精深的算法,而是跨越算法到落地间距离的能力." 近年来随着电商行业从增量 ...
百丽季燕利：从补货场景，看企业协同在线｜数字思考者50人
图片来源:视觉中国 ▎对于传统大型组织而言,从战略到落地,关系到经营管理和运营执行的千万次决策,需要跨多个部门.多个不同岗位去执行落地,这其中协同的难度会随着组织的规模.业务类型.结构.层级.参与的人 ...
连锁门店订货补货集中采购信息化解决方案
连锁的标准化复制已经被认为是一种快速扩张的成功的商业模式,并得到广泛应用.企业信息化的今天,连锁的标准化不再限于店铺装修.商品摆放.职员培训.店务管理等一系列的标准化,还需要配送.供应链等信息化一系列 ...

vb 实现小超市饮料补货提醒程序 public全局变量的声明与初始化

实验7 实现小超市饮料补货提醒程序

实验代码

实验心得体会

vb 实现小超市饮料补货提醒程序 public全局变量的声明与初始化相关推荐

最新文章

热门文章