随机抽取题目测试.xlsm

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)