newuser 发表于 2010-6-9 16:31:01

怎么感觉自己的积分和贡献值少了呢?

怎么回事?被偷了还是犯了错?

ssfnpyu 发表于 2010-6-9 17:23:46

犯错了。。会有短信息的。。。自己看下有没有咯。。。如果没有。。。就是你自己记错了本来有多少分了。

afan 发表于 2010-6-9 17:35:52

闲得蛋疼的上……$1 = jf(1, '请输入发帖数量')
$2 = jf(2, '请输入精华帖数', 0)
$3 = jf(3, '请输入威望值', 0)
$4 = jf(4, '请输入贡献值', 0)
MsgBox(64, '蛋疼结果', '你的积分为:' & Round($1 * 0.5 + $2 * 10 + $3 * 2 + $4) & '')

Func jf($bz, $tip, $mr = '')
        While 1
                $z = InputBox($bz, $tip, $mr, ' m', 180, 120)
                If @error Then Exit
                If StringIsDigit($z) Then Return $z
        WEnd
EndFunc   ;==>jf

newuser 发表于 2010-6-9 18:34:23

回复 3# afan
按算法没错,不过我自己注册了论坛,我的2个朋友也推荐注册了论坛,我记得贡献应该不是4,可能真实我记错了吧!
页: [1]
查看完整版本: 怎么感觉自己的积分和贡献值少了呢?