第一步是建立抽奖界面。
打开WPS窗体2009并创建新的空文档。 假设某学年有20个班级，在a1单元中输入“孤独电源名称”，在(a2:a21 )单元区域输入孤独电源名称。 在b1单元格中输入“抽奖类”，在(b2:b21 )单元格区域中输入“未中抽奖”的文字； 如果要在e3单元格中显示抽签后提取的类，请在e3单元格中设置适当的边框和大小。 然后，运行“视图-工具-控制工具箱”，单击“命令按钮”，在e3单元格下面插入两个按钮，并在“属性”窗口中分别选择“抽取”和“Caption”选项名称选项为默认的CommandButton1和CommandButton2。
第二步，实现按钮的功能。
双击“抽奖”按钮以打开“代码”窗口，然后输入包含“停止”按钮代码的以下代码：
选项退出
Dim flag As Boolean，I，j，m As Integer
私有次命令按钮1 _ click (
flag=True '初始化中断变量如果中断变量为真，则开始抽签
tiaozhuan1:
假设有forI=1to20'20个类
当DoEvents '释放程序控制权后，便可以执行其他事件
For j=2 To 21第21行至第21行
Ifcells(j，2 )=i Then GoTo tiaozhuan2
下一步
cells (3，5 )=i )即e3单元表示循环变量的值
按If flag=False Then GoTo tiaozhuan3'停止按钮退出
刁庄2:
下一步
If flag=True Then GoTo tiaozhuan1
' 1如果循环结束后仍未按下停止按钮，则进入下一个循环
桃园3:
For m=2 To 21
ifcells(m，2 )='未能抽签' Then
cells(m，2 )=cells (3，5 ) ) ) )。
退出辅
End If
下一步
最终辅
私有次命令按钮2 _ click (
标志=假'中断循环
最终辅
关闭代码窗口并退出设计模式后，将创建抽奖程序。 单击“抽奖”按钮，在e3单元格中依次显示未抽奖的类，单击“停止”按钮，在e3单元格中显示通过孤独电源未抽奖的类，未抽奖的班号自动记入对应的单元格中，该班号不参加下一次抽奖下一个孤独电源单击“抽奖”按钮时进行以下抽奖，测试效果如图所示。