《可视化编程应用基础——VisualBasic全套配套课件陈建军1 任务26电子储物柜改进3》由会员分享，可在线阅读，更多相关《可视化编程应用基础——VisualBasic全套配套课件陈建军1 任务26电子储物柜改进3（7页珍藏版）》请在金锄头文库上搜索。
1、2 6电子储物柜改进 可视化编程应用基础 visualBasic 陈建军 改进的电子储物柜演示 改进的电子储物柜界面如下 单击图片链接查看源程序 任务1 改进电子储物柜界面设计 控件数组 16个label标签组成控件数组 任务2 储物柜初始化 窗体装载时 初始化16个柜子的编号 对齐方式及状态 包括颜色 柜子内容 密码等 具体如下 柜子状态 柜子密码 柜子物品须定义为全局数组 分别为 gzzt 1to16 表示柜子状态gzmm 1to16 表示柜子密码gznr 1to16 表示寄存物品 Fori 1To16gzzt i Truegznr i gzmm i 1NextFori 0To15Labe
2、l1 i Caption i 1Label1 i Alignment 2Next 任务3 存物功能实现 单击存物按钮 如有空柜子 则弹出柜号及随机生成柜子密码 然后输入寄存的物品名称 完成存物后 该柜子的颜色变为红色 代表已被寄存 判断空柜子流程 1 遍历所有柜子 找到空柜子 结束遍历 代码如下 Fori 1To16Ifgzzt i TrueThenExitForNext 2 根据结果确定是否找到空柜子Ifi 16then表示找到空柜子Else表示未找到空柜Endif 任务4 取物功能实现 单击寄存的柜子 标签数组 在弹出的对话框中输入寄存时生成的密码 输入正确后 弹出寄存的物品名称 取物成功 取物后初始化柜子状态 否则取物失败 重新输入密码 作业 在本节课任务基础上增加取物按钮 要求单击取物按钮 弹出对话框输入寄存密码 自动遍历所有柜子密码 找到对应的柜子 弹出寄存物品名称 须保证随机生成的密码不重复
