© 1999-2048 dssz.net 粤ICP备11031372号
[VB] 随机抽取题目测试.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)<naiva> 在 上传 | 大小:37888