FOR i=1 TO 9 FOR j=1 TO i IF i*j>9 ?? ALLT(STR(j))+"*"+ALLT(STR(i))+"="+ALLT(STR(i*j))+SPACE(3) ELSE ?? ALLT(STR(j))+"*"+ALLT(STR(i))+"="+ALLT(STR(i*j))+SPACE(4) ENDIF ENDFOR ? ENDFOR
* 1024*768 显示方式正好 clear @ 5,20 say space(50)+'九 九 乘 法 表' @ 8,20 say '' for i=1 to 9 @row()+2,10 say '' for j=1 to i @ row(),col()+4 say str(j,1)+' * '+str(i,1)+' = '+str(i*j,2) endfor endfor