概述如图1：     如图2：        界面布局：放置3个标签，一个按钮。    功能操作：点击开始按钮，进行摇号，再次点击后，停止，显示出号码；    实现的代码： Dim IsFlag As Boolean = False 控制开