题目：
输入一个整数N(1<=N<=1000)，求出所有N位数中含有偶数个3（包括0个3）的数的个数。如果结果大于12345，只需要输出结果除以12345的余数。如输入2，输出73；输入3，输出674。

我的程序，输入823以下的数（包括823）时能输出正确结果，但是输入超过823的数就提示溢出，不知道是怎么搞的。
程序：
DECLARE FUNCTION jc# (k!)
DECLARE FUNCTION cf# (a!, b!)
CLS
DIM s1 AS LONG, s2 AS LONG, v AS DOUBLE
INPUT n
tm = TIMER
IF n < 1 OR n > 1000 OR n <> INT(n) THEN PRINT "Error!": END
IF n = 1 THEN PRINT 9: END
FOR t = 1 TO n STEP 2
    IF n = t + 1 OR n = t THEN
       IF n = t + 1 THEN v = v + 9 * n - 1 ELSE v = v + 1
    ELSE
       s1 = jc(n - 1) / jc(n - t) / jc(t - 1) * cf(9, n - t)
       s2 = jc(n - 1) / jc(n - t - 1) / jc(t) * 8 * cf(9, n - t - 1)
       v = v + s1 + s2
    END IF
    v = v MOD 12345
NEXT t
ss = 9
FOR i = 1 TO n - 1
    ss = ss * 10
    ss = ss MOD 12345
NEXT i
PRINT TIMER - tm
IF ss < v THEN PRINT ss - v + 12345 ELSE PRINT ss - v
END

FUNCTION cf# (a, b)
DIM s AS DOUBLE
s = 1
FOR i = 1 TO b
    s = s * a
    s = s MOD 12345
NEXT i
cf# = s
END FUNCTION

FUNCTION jc# (k)
DIM s AS DOUBLE
s = 1
FOR i = 1 TO k
    s = s * i
    s = s MOD 12345
NEXT i
jc# = s
END FUNCTION

请大家帮我查一下错在哪里。谢谢。