九九乘法表

sub jjcfb ()

dim i,j as interger

for i = 1 to 9

for j = i to 9

cells (j,i)= i & " * " j & " = " &  i * j

next

next

end sub