两个矩阵，第一个矩阵的列数必须等于第二个矩阵的行数，才能相乘。
核心代码为：
c(i, j) = c(i, j) + a(i, k) * b(k, j)

OPTION BASE 1
CLS
DIM a(9, 9), b(9, 9), c(9, 9)
a(5, 5) = 81: s = 0: t = 0
FOR i = 8 TO 2 STEP -2
    FOR j = 0 TO i - 1
        s = s + 1
        a(5 - i / 2, 5 - i / 2 + j) = s
        a(5 - i / 2 + j, 5 + i / 2) = s + i
        a(5 + i / 2, 5 + i / 2 - j) = s + i + i
        a(5 + i / 2 - j, 5 - i / 2) = s + i + i + i
    NEXT j
    t = t + i * 4
    s = t
NEXT i
FOR i = 1 TO 9
    FOR j = 1 TO 9
        b(i, j) = i
        FOR k = 1 TO 9
            c(i, j) = c(i, j) + a(i, k) * b(k, j)
        NEXT k
        PRINT USING "#####"; c(i, j);
    NEXT j
    PRINT
NEXT i
END