年会策划的创意抽奖方式

参加年会最令人兴奋的部分是什么？当然是抽奖环节啦。抽奖活动可以使年会的气氛更加活跃，并为公司提供员工福利的一种方式，增强公司的凝聚力。如果年会策划的抽奖内容是彩票方法，那就太没有创新性了，很难激发员工的参与热情。以下这七种新颖、有趣的年会抽奖方式可以使年会抽奖环节更加新鲜。

1、电脑数字随机抽奖程序员事先在电脑上设计好数字程序，员工进场的时候逐一分发好号码牌，到抽奖环节，电脑可以根据事先分发的数字范围随机跳动数字，主持人喊停，停在屏幕上的数字就是中奖号码。

2、九宫格有奖问答程序员事先在电脑上设置好九宫格的问题，年会抽奖环节，主持人根据入场号码牌抽取号码进行有奖问答。

3、支付宝红包口令主持人可以把支付宝红包口令岩链猜显示在大屏幕上，在场人员听指示输入口令领取红包。

4、凳子下面寻宝会场布置人员事先在凳子下面粘贴好装入奖品券的信封，主持人在抽奖环节可以公布，坐到有信封的凳子可以凭奖品券兑换奖品。

5、微信摇一摇程序员事先设置好微信摇一摇中的程序，在抽奖环节，根据大屏幕显示的信息参与摇一摇活动，靠手机摇取奖品粗型。

6、员工照片墙展示大屏幕上显示出员工的照片，光标不断在照片墙上来回滚动，待主持人按住锁定一个员工的照片，即为中奖者。

7、集五福中大奖员工进场前分发一张福卡，随后在用餐的过程中，可以在碗碟下或者餐椅上粘贴五福卡，让员工自己发掘，员工之间也可以结盟凑齐五福卡，年会结束前可以集齐五福卡就可以兑换大奖。

以上是员工参与度具有气氛的抽奖方式，极大活跃了年会的氛围，有唤团的抽奖方式事先准备工作比较繁琐，耗时耗力。然而现在企业的年会形式越来越趋向移动智能化，员工可以进行微信扫码签到，微信头像以3D形式显示。大屏幕抽奖，微信可实时查看中奖名单。员工可在微信上发表d幕，显示在大屏幕上活跃气氛，还可实时投票参与选举，公平公正公开，同时还可参与微信摇一摇抢红包大战等年会抽奖方式。

语言实现此程序。

以下是VB编程语言的实现示例：

'定义变量，存储每个奖项的人数

Dim firstPrize As Integer = 3

Dim secondPrize As Integer = 5

Dim thirdPrize As Integer = 12

Dim souvenirPrize As Integer = 10

'定义变量，存储抽奖结果

Dim firstPrizeList As New List(Of Integer)

Dim secondPrizeList As New List(Of Integer)

Dim thirdPrizeList As New List(Of Integer)

Dim souvenirPrizeList As New List(Of Integer)

'定义变量，存储编号滚动的起始编号

Dim currentNum As Integer = 1

'循环抽取各种奖项

For i As Integer = 1 To firstPrize

'抽取一等奖，并将编号添加到一等奖名单中

firstPrizeList.Add(currentNum)

currentNum += 1

Next

For i As Integer = 1 To secondPrize

'抽取二等奖，并将编号添加到二等奖名单中

secondPrizeList.Add(currentNum)

currentNum += 1

Next

For i As Integer = 1 To thirdPrize

'抽取三等奖，并将编洞派号添加到三等奖名单中

thirdPrizeList.Add(currentNum)

currentNum += 1

Next

For i As Integer = 1 To souvenirPrize

'抽取纪念奖，并将编纳档贺号添加到纪念奖名单中

souvenirPrizeList.Add(currentNum)

currentNum += 1

Next

'输出抽奖结果

Console.WriteLine("一等奖名单：" &String.Join(",", firstPrizeList))

Console.WriteLine("二等奖名单：" &String.Join("蠢凯,", secondPrizeList))

Console.WriteLine("三等奖名单：" &String.Join(",", thirdPrizeList))

Console.WriteLine("纪念奖名单：" &String.Join(",", souvenirPrizeList))

---