用Excel制作抽签程序
数字办公
黄玲：在一次公开课中，看到讲课的老师在课堂上使用了一个Excel的抽签程序，由抽到相应学号的同学回答提问，这样能增加课堂的气氛，调动学生积极参与，是一种不错的教学策略。后来我自己试做了几次都没有成功，请问《电脑报》的专家，怎样才能实现这个功能？
办公专家陈邓新：这位老师想法很有创意，做起来并不难。其实抽签在我们日常生活中很常见，这里我们介绍一个简单的抽签程序的示例，希望能给大家以更多的启示。
假设有25个数，每行5个共5行，在数字的下方绘制两个命令按钮，修改其Caption属性分别为“抽签”和“暂停”。双击“抽签”按钮输入代码（代码下载地址：http://download.cpcw.com），其中关键代码如下：
k = 0: flag = 0 初始化中断变量和循环变量
Do Until flag = 1
For i = 6 To 10 从第6行开始到第10行结束
For j = 3 To 7 从C列开始到G列结束
If k = 0 Then
Cells(i, j).Select 依次循环选中25个单元格
DoEvents 释放程序控制权,允许运行其它事件
k = 1 中断循环(使循环变量K不等于0)
Cells(i, j).Select 选中中断时被选中的单元格
关闭代码窗口回到抽签工作表中，单击“抽签”按钮可实现25个单元格的快速依次选中，单击“暂停”按钮可中断抽签程序的执行(即选中其中的1个数字)。再次单击“抽签”按钮可继续抽取数字，这样一个简单的抽签程序就做好了（见图）。
