找人办个抽奖手续。

问:在一次公开课上，我看到老师在课上用了一个Excel抽奖程序，拿到相应学号的学生答题。这样可以增加课堂气氛，调动学生积极参与。这是一个很好的教学策略。答:老师的想法很有创意，也不难做。事实上，彩票在我们的日常生活中很常见。这里我们介绍一个简单的抽奖程序的例子，希望能给你更多的启示。假设有25个数字，每行有5 ***5行。在数字下方绘制两个命令按钮，并将它们的标题属性分别修改为“抽签”和“暂停”。双击“抽签”按钮输入代码，关键代码如下:

k=0:标志=0

Do直到flag=1

对于i=6到10

对于j=3到7

如果k=0，那么

单元格(I，j)。挑选

“DoEvents”释放程序控制并允许其他事件运行。

k=1

单元格(I，j)。挑选

如果…就会结束

然后

然后

循环关闭代码窗口并返回图纸。点击“画图”按钮快速依次选择25个单元格，点击“暂停”按钮中断画图程序的执行(即选择其中一个数字)。再次点击“抽签”按钮继续抽签，这样一个简单的抽签程序就完成了。按Alt和F11进入宏界面，点击插入菜单，粘贴以下代码:

布尔型Dim标志

次级aaa级()

将单元格作为范围变暗

做直到标记

范围(" C6:G10 ")。单元格(Int(Rnd() * 25) + 1)。挑选

多项活动

环

标志=假

末端接头

子bbb()

标志=真

末端接头

回到Excel，输入25个标签:G10(代码中粗体字根据实际情况修改)，插入两个图形，比如方框，一个带“抽签”，一个带“暂停”，右键单击第一个方框，指定宏，aaa；右键单击第二个框，并指定宏bbb。

去做吧。