吧务
level 16
拉克丝·克莱茵
楼主
今天为庆祝真希波22岁生日，即履行https://tieba.baidu.com/p/4922225988活动所言的抽奖活动，决定于北京时间中午12点左右直播抽奖结果。由于国内直播平台为规范行为，基本都要求绑定手机才可直播，而我目前不在国内，因此无法使用国内直播平台。因此届时可能会采用两种方法：1.用手机QQ群视频，拿手机摄像头录电脑屏幕直播结果。2.用Twitch直播平台播，并让天文作为公证。一般来讲会优先实现第一种方法，如不行，则使用第二种方法。Twitch虽然国内不容易观看，但仍然有方法可以看。届时鼓励所有对开奖有兴趣的成员都来参加。既可以让群和贴吧热♂♀闹一下，又可以同时作为公证人。
本活动于QQ群同步进行，百度贴吧实时播报结果。
这里先行公布今年抽奖所用VB程序，为去年我所编写。虽然简单但是有效：
Imports System.Console
Module Module1
Sub Main()
WriteLine("眼镜娘生日抽奖活动专用程序")
Dim a, b, c As Integer， d As Boolean
a = 1
b = 521
Do
WriteLine("****************************************************************************")
Randomize()
c = Int(521 * Rnd() + 1)
WriteLine("抽中楼层：{0}"， c)
WriteLine("****************************************************************************")
WriteLine()
Write("按0结束抽奖，按1继续抽奖。结果为：")
d = Val（ReadLine())
Loop Until d = 0
WriteLine("感谢以上人员参与，结果将公示于贴吧")
End Sub
End Module
以上代码供所有成员监督。
2017年03月31日 02点03分
1
本活动于QQ群同步进行，百度贴吧实时播报结果。
这里先行公布今年抽奖所用VB程序，为去年我所编写。虽然简单但是有效：
Imports System.Console
Module Module1
Sub Main()
WriteLine("眼镜娘生日抽奖活动专用程序")
Dim a, b, c As Integer， d As Boolean
a = 1
b = 521
Do
WriteLine("****************************************************************************")
Randomize()
c = Int(521 * Rnd() + 1)
WriteLine("抽中楼层：{0}"， c)
WriteLine("****************************************************************************")
WriteLine()
Write("按0结束抽奖，按1继续抽奖。结果为：")
d = Val（ReadLine())
Loop Until d = 0
WriteLine("感谢以上人员参与，结果将公示于贴吧")
End Sub
End Module
以上代码供所有成员监督。
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
公理基来开奖