|
本帖最后由 TailsFly 于 2010-8-9 02:48 编辑
8月9日更新
解压密码:D12adfo45oSW34Fvajifqf^W!jiz1$^ajdah
8月7日更新
选数字可以选与别人相同的,也可以连续3天选择相同的数字,但是狐狸建议每天选不同的数字才有更大几率获得特殊的奖励哦。
活动时间:周五——周天(共3天)
活动规则:从1到100选择数字,每天最多可以选择2个数字,选1个数字不需要NM,如果同一天选2个数字则扣除5NM作为额外选择费用。数字背后有对应的奖励,由于奖励是代码生成,所以不要迷恋吉利数字哦。
活动奖励:
代码生成NM奖励的几率为66.67% ,实际概率为70%。最低奖励1NM,最高奖励15NM
代码生成NM扣除的几率为26.67% ,实际概率为20%。最低扣除1NM,最高扣除10NM
代码生成NM特殊奖励的几率为6.66% ,实际概率为10%。高NM奖励,外加人气奖励。以及特别奖励。
如果大家喜欢类似活动,以后可以继续开展。
附1:奖励程序代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Dim a, i, d As Integer
d = 1
Randomize()
For i = 1 To 100
TextBox1.Text = TextBox1.Text & d & "."
d = d + 1
a = (Rnd() * 149) + 1
TextBox2.Text = a
If a <= 100 Then
Dim b As Integer
Randomize()
b = (Rnd() * 14) + 1
TextBox1.Text = TextBox1.Text & b & " " & Chr(13) & Chr(10)
Continue For
End If
If a > 100 And a <= 140 Then
Dim c As Integer
Randomize()
c = -((Rnd() * 9) + 1)
TextBox1.Text = TextBox1.Text & c & " " & Chr(13) & Chr(10)
Continue For
End If
If a >= 141 Then
TextBox1.Text = TextBox1.Text & "特殊奖励" & " " & Chr(13) & Chr(10)
End If
Next i
End Sub
附二:NM奖励表(活动结束后公布解压密码) |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?立即注册
x
|