[求助]QB中一个类型不匹配的问题

Question

以下用来计算杨辉三角的小程序，出错了。请各位帮忙看看错在哪里？在主程序的 call zuhe(num,u,result)这一行就出错，提示"Parameter type mismatch"。这个错在什么地方？请帮助！DECLARE SUB jiecheng (x1 AS LONG, x0 AS LONG)
DECLARE SUB zuhe (x AS LONG, y AS LONG, xy0 AS LONG)
DIM kong AS INTEGER
DIM num, u, n, result AS LONG
kong = 20
INPUT "n=", n
PRINT
FOR num = 1 TO n
  PRINT SPACE$(kong)
  PRINT "1"
  FOR u = 1 TO num
    CALL zuhe(num, u, result)
    PRINT result;
  NEXT u
  PRINT
  kong = kong - 1
NEXT num
ENDSUB jiecheng (x1 AS LONG, x0 AS LONG)
  DIM i AS LONG
  x0 = 1
  FOR i = 1 TO x1
    x0 = x0 * i
  NEXT i
END SUBSUB zuhe (x AS LONG, y AS LONG, xy0 AS LONG)
  DIM xo, so, yo, s AS LONG
  CALL jiecheng(x, xo)
  s = x - y
  CALL jiecheng(s, so)
  CALL jiecheng(y, yo)
  xy0 = INT(xo / so / yo + .5)
END SUB

Answer 1

DIM num, u, n, result AS LONG
应该
DIM num AS LONG, u AS LONG, n AS LONG, result AS LONG