百度知道帮助一网友问题：
http://zhidao.baidu.com/question/583185377930983885.html

TableForm[
 Table[If[i >= j, 
   StringJoin[ToString[j], "\[Times]", ToString[j], "=", 
    ToString[i*j]], ""], {i, 1, 9}, {j, 1, 9}]]

Mathematica 九九乘法表