CLS
DIM a AS STRING
INPUT "a=xxxx/xx/xx"; a
DIM yue(1 TO 12) AS INTEGER
DIM zhong AS INTEGER
zhong = 0
n = VAL(MID$(a, 1, 4)):
FOR j = 1901 TO n - 1
IF n MOD 4 = 0 AND n MOD 100 <> 0 OR n MOD 400 = 0 THEN
  FOR i = 1 TO 12
   READ yue(i)
  NEXT i
  DATA 31,28,31,30,31,30,31,31,30,31,30,31
ELSE
  FOR i = 1 TO 12
   READ yue(i)
  NEXT i
  DATA 31,29,31,30,31,30,31,31,30,31,30,31
END IF
FOR i = 1 TO 12
  zhong = zhong + yue(i)
NEXT i
NEXT j
y = VAL(MID$(a, 6, 2))
IF j = n THEN
IF n MOD 4 = 0 AND n MOD 100 <> 0 OR n MOD 400 = 0 THEN
  FOR i = 1 TO y - 1
   READ yue(i)
   zhong = zhong + yue(i)
  NEXT i
  DATA 31,28,31,30,31,30,31,31,30,31,30,31
ELSE
  FOR i = 1 TO y - 1
   READ yue(i)
   zhong = zhong + yue(i)
  NEXT i
  DATA 31,29,31,30,31,30,31,31,30,31,30,31
END IF
END IF
r = VAL(MID$(a, 9, 2))
zhong = zhong + r
PRINT "zhong="; zhong
x = zhong MOD 7
o = x + 1
IF o = 8 THEN
o = 1
PRINT o
ELSE
PRINT o
END IF
END
这个程序我老出错,能帮我看看[em8][color=FFFF00][/color]