主题:靠边99乘法表
CLS
k = 1
FOR i = 1 TO 9
IF i = 4 THEN k = 9
PRINT TAB(k);
FOR j = i TO 9
IF LEN(LTRIM$(STR$(i * (j + 1)))) = 2 THEN PRINT LTRIM$(STR$(i * j)); " "; ELSE PRINT LTRIM$(STR$(i * j)); " ";
NEXT j
k = k + 3
PRINT
NEXT i
END
样例输出:
1 2 3 4 5 6 7 8 9
4 6 8 10 12 14 16 18
9 12 15 18 21 24 27
16 20 24 28 32 36
25 30 35 40 45
36 42 48 54
49 56 63
64 72
81
k = 1
FOR i = 1 TO 9
IF i = 4 THEN k = 9
PRINT TAB(k);
FOR j = i TO 9
IF LEN(LTRIM$(STR$(i * (j + 1)))) = 2 THEN PRINT LTRIM$(STR$(i * j)); " "; ELSE PRINT LTRIM$(STR$(i * j)); " ";
NEXT j
k = k + 3
NEXT i
END
样例输出:
1 2 3 4 5 6 7 8 9
4 6 8 10 12 14 16 18
9 12 15 18 21 24 27
16 20 24 28 32 36
25 30 35 40 45
36 42 48 54
49 56 63
64 72
81