Excel简单三步实现随机抽奖,用VB编程设置两个按钮：开始，结束（按钮控制代码： Dim k As Integer '定义公共变量 Sub start_Click() k = 0 Do [H100] = k DoEvents Loop Until k = 1 If a = 1 Then Exit Sub End Sub Sub stop_Click() k = 1 End Sub）