自己制作抽签上可以写什么,趣味抽签题目
用excel制作一个抽签程序,第一组工作表是抽签人员名单
裁53张小纸条，分别写上1-53的号码，每人抽一张。某单元格输入：=round(rand()*53,)+1，（excel2003版）=randbetween(1,53)，（excel2007版）每按一次f9键，将随机产生一个1-53的数字。
抽奖有气氛的话术
抽奖有气氛的话术是：这个活动只是为了回馈大家的厚爱和分享。您的朋友也会因为您的分享得到实惠而感激您的，所以这就是双赢的局面。
抽奖，拼音chōu jiǎng，提拔褒奖；以抽签法决定中奖者。可以用飞镖制作成飞机的模样，没人的号码用黄色标签做成云朵模样黏贴在背景板上，年会背景板缓缓移动，飞扎中的名字得奖寓意飞黄腾达。
也可以进行数字抽奖，转动三次构成一组百位数，号码对应者获奖。随着号码的逐一产生，现场配合音响效果能创造出激动人心的效果。
抽奖方式
摘红包
把个人的电话号码写于纸上放在红包里，年会上领导随机摘取一个，然后打电话给获奖人。悬念十足，气氛紧张。
捞金
由年会上领导在箱子里放入一定数额的大额人民币，其余人用一元的纸币写上自己的名字或号码，放多少个人而定，放越多机会越多。（主持强调，付出越多收获越大）领导抽出中奖人再从准备好的三个信封抽出一个，三个信封内为：一只手，两只指，一双筷子等，然后自行捞取。最后被抽中的人所有奖金都归他。
做抽签。
今天晚上放学回到家里，我要拿张a4纸做抽签。首先把a4纸对折一下，再把另外两边的纸朝中间的线对折。再横折像刚才一样折。然后拿剪刀把一小块块儿一小块块剪下来，或者用撕的方法也可以。减下来以后就可以。拿一个小块块对折一下，再翻开旁边画一个。小东西就比如说花小汉堡，那旁边就得写上汉堡两个字，然后再把纸盒上。放在纸杯你要做好多好多的话，你就得费好多好多的小框框。如果做两个的话，你可以找别人抽，做好多的话你可以找更多人的抽有好有坏，比如说辣椒就是坏的。好啦，今天的就到这里啦，我们明天见，拜拜。喝酒游戏写纸条都写啥
写纸条是写惩罚游戏，可以写一些比较搞笑的：1、学猩猩在马路上走；2、亲自己右边的人一下；3、爆笑十秒，要疯狂的；4、找一个同性朋友打电话说我爱你，不能是现场的人；5、做一个最丑的表情拍照。喝酒游戏：1、十五二十从古到今非常流行。游戏规则十分简单，两人相对同时伸手出指（双手能出的数字为0、5、10），口中报一数字（即二人出拳数字之和0、5、10、15、20），与双方伸指数目之和相同者胜，输的人罚喝酒，两人相同就继续。2、真心话和大冒险通过猜拳或者抽牌或者其他方式选出来那个人要选择真心话或者大冒险。真心话就是可以让在座的任何一个人问任何问题（哪怕很隐私的都可以），必须如实回答。大冒险就是要被在座的人指使去做一件事情，类似跟陌生人说我爱你之类的话，是一个玩人的好招数。3、傻瓜拳两人同时出拳（剪刀、石头、布），如果相同，则喊"他傻瓜"；如甲方赢，乙方输，则甲喊"你傻瓜"，乙喊"我傻瓜"，谁喊错则为负方。此游戏好玩之处在于考你的反应速度，喊得越快，越容易出错。VB制作抽签程序
Public j As Integer
Dim A() As String
Dim tem As String
Private Sub CMD1_Click() '注意这里如果没有exit sub，责会出现captio不会变的，其实已经变过了
If CMD1.Caption = "开始" Then
CMD1.Caption = "停止"
Timer1.Enabled = True
Exit Sub
End If
If CMD1.Caption = "停止" Then
CMD1.Caption = "开始"
Timer1.Enabled = False
If tem <> "" Then
Text1.Text = tem
End If
End If
End Sub
Private Sub CMD2_Click()
Frame1.Visible = True
Text2.Visible = True
CMD3.Visible = True
CMD4.Visible = True
End Sub
Private Sub CMD3_Click()
Text2.Visible = False
CMD3.Visible = False
CMD4.Visible = False
tem = Text2.Text
End Sub
Private Sub CMD4_Click()
Text2.Text = ""
Text2.Visible = False
CMD3.Visible = False
CMD4.Visible = False
End Sub
Private Sub form_load()
Frame1.Visible = False
Text2.Visible = False
CMD3.Visible = False
CMD4.Visible = False
Timer1.Enabled = False
Timer1.Interval = 300
Open "C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" For Input As 1
Do Until EOF(1)
ReDim Preserve A(0 To I)
Input #1, A(I)
I = I + 1
Loop
Close #1
End Sub
Private Sub Timer1_Timer()
Text1.Text = A(j)
j = j + 1
If j = UBound(A) Then
j = 0
End If
End Sub
已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵
如何制作抽签小游戏??? 步骤+图示!!! 答案满意定加分!!!
那就简单点的吧。真心话大冒险；1.你把一张纸张撕成两半一半写真心话，一半写大冒险。2。然后你准备一把铅笔【或者其他能转的东西】准备好了，就可以玩了游戏规则就是；划拳，或抽牌，转笔等方式选出一个人，就是受罚的人，让他选真心话还是大冒险，真心话就是问一些问题让他回答，当然不能太过分，但也是平时不会问的，必须讲真话，就是游戏规则；大冒险就是让他去做一些事，很冒险的，就要看各位的想象力勒。就这样简单。给我吧
