VB模拟洗衣机自动加水抽水功能.rar

VB模拟洗衣机，哈哈，还没听说过吧，可模拟出洗衣机自动加水抽水的功能，还有动画演示效果，符合VB结构化程序的特点，简单易懂，同时采用了通用的小游戏循环方式。代码片段： 　　DimWarterHeightAsSingle'水高度 　　DimDiBuHAsSingle'底部高度 　　DimKGJiashuiAsInteger'进水开关 　　DimKGChushuiAsInteger'出水开关 　　DimshuiguanColorAsLong'水管颜色 　　DimshuiguanColorWarterAsLong'水管有水时候的颜色