如何用C#制作一个自动抽签程序？

在一次公开课中，看到讲课的老师在课堂誉禅上使用了一个Excel的抽签程序，由抽到相应学号的同学回答提问，这样能增加课堂的气氛，调动学生积极参与，是一种不错的教学策略。答：这位老师想法很有创意，做起来并不难。其实抽签在我们日常生活中很常见，这里我们介绍一个简单的抽签程序的示例，希望能给大家以更多的启示。假设有25个数，每行5个共5行，在数字的下方绘制两个命令按钮，修改其caption属性分别为“抽签”和“暂停”.双击“抽签”按钮输入代码，其中关键代码如下：

k=0:flag=0

Do until flag=1

for i=6 to 10

for j=3 to 7

if k=0 then

cells(i,j).select

DoEvents '释放程序控制权，允许运行其他事件

k=1

cells(i,j).select

end if

next

next

loop关闭代码窗口回到抽签工作表中，单击“抽签”按钮可实现25个单元格的快速依次选中，单击“暂停”按钮可中断抽签程序的执行（即选中其中的一个数字）。再次单击“抽签”按钮可继续抽取数字，这样一个简单的抽签程序就做好了同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Dim Flag As Boolean

Sub aaa()

Dim cell As Range

Do Until Flag

Range("C6:G10").Cells(Int(Rnd() * 25) + 1).Select

DoEvents

Loop

Flag = False

End Sub

Sub bbb()

Flag = True

End Sub

回到Excel，在C6:G10输入25个签（代码中的粗体字按实际修改），插入两个图形比如方框，一个写”抽签“，一个写”暂停“，右键点第一个框，指定宏，aaa；庆裂尘右键点第2个框源胡，指定宏，bbb

就可以了

不知道你所见到的具体页面与内容是什么样的。下面的公式直接输入到任意单元格里就可以实现了。手逗

抽激芹签程序主要用到的是随机函数 rand

例如班上一共有60个人，学号从1到60，则公式：=ROUND((1-RAND())*60,0)

就是从1到60的随机数。

然后每改变一次其他单元格的数值，或者按毕铅卖一下F9,其数值均会改变一次。

---