Make Addition and Multiplication Tables 

With Inactive, it is easier than ever to create tables of values.

An addition table for the numbers 1 through 7.

In[1]:=

X (plus = Table[ Inactive[Plus][a, b] == a + b, {a, 7}, {b, 7}]) // TableForm

Out[1]//TableForm=

A multiplication table for the numbers 1 through 7.

In[2]:=

X (times = Table[ Inactive[Times][a, b] == a b, {a, 7}, {b, 7}]) // TableForm

Out[2]//TableForm=

Create a nicely formatted table.

show complete Wolfram Language inputhide input

In[3]:=

X Grid[Join[{{Item[Style["Addition Table", FontSize -> 18], Alignment -> Left, Background -> GrayLevel[.9]], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, plus, {{Item[Style["Multiplication Table", FontSize -> 18], Alignment -> Left, Background -> GrayLevel[.9]], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, times], Dividers -> All, ItemSize -> {Automatic, 1.6}] // TraditionalForm

Out[3]//TraditionalForm=