CLS
DIM G(50, 50), F$(50, 50)
DIM A(10000), B(10000), C(10000)
INPUT "1<=N<=50,1<=M<=50"; N, M
INPUT "输入两点坐标"; X1, Y1, X2, Y2
FOR I = X1 TO X2: FOR J = Y1 TO Y2
G(I, J) = 1
NEXT J, I: F$(1, 1) = "1"
FOR I = 2 TO M
IF G(I, 1) = 0 THEN F$(I, 1) = F$(I - 1, 1)
NEXT I
FOR I = 2 TO N
IF G(1, I) = 0 THEN F$(1, I) = F$(1, I - 1)
NEXT I
FOR I = 2 TO M
FOR J = 2 TO N
IF G(I, J) = 0 THEN
LA = LEN(F$(I - 1, J)): LB = LEN(F$(I, J - 1)): X = LA: H = 0: F$(I, J) = ""
IF LB > LA THEN X = LB
FOR K = 1 TO LA: A(K) = VAL(MID$(F$(I - 1, J), LA + 1 - K, 1)): NEXT K
FOR K = 1 TO LB: B(K) = VAL(MID$(F$(I, J - 1), LB + 1 - K, 1)): NEXT K
FOR K = 1 TO X: S = A(K) + B(K) + H: C(K) = S MOD 10: H = S \ 10: NEXT K
IF H <> 0 THEN X = X + 1: C(X) = H
FOR K = 1 TO X: F$(I, J) = LTRIM$(STR$(C(K))) + F$(I, J): C(K) = 0: A(K) = 0: B(K) = 0: NEXT K
END IF
NEXT J, I
PRINT F$(M, N)
END
这是高精度,快给我加分
你的同学-CHYX

CLS
INPUT n, m, x1, y1, x2, y2
DIM a(n, m), b(n, m)
FOR i = x1 TO x2: FOR j = y1 TO y2: b(n, m) = 1: NEXT j, i
FOR i = 1 TO n
    FOR j = 1 TO m
        IF i = 1 OR j = 1 THEN
           a(i, j) = 1
        ELSE
           a(i, j) = a(i - 1, j) + a(i, j - 1)
        END IF
NEXT j, i
PRINT a(n, m)
END