九九乘法表中的右上三角怎么编写？？

请高手帮助  
急求！！！

一般的九九乘法表都是已下三角的形式存在的，我现在要编写的是上三角

set talk off
a=0
? "         *  1  2  3  4  5  6  7  8  9"
 do while a<9
   a=a+1
   ? a
   ??space((a-1)*3)
   for b=a to 9
      ??str(a*b,3)
    endfor
 enddo
 
貌似这样也可以哦
请高手帮我看看是否正确

set talk off
a=0
? "         *  1  2  3  4  5  6  7  8  9"
 for a=1 to 9
   ? a
   ??space((a-1)*3)
   for b=a to 9
      ??str(a*b,3)
    endfor
 endfor

set talk off
a=0
? "         *  1  2  3  4  5  6  7  8  9"
 for a=1 to 9
   ? a
   ??space((a-1)*3)
   for b=a to 9
      ??str(a*b,3)
    endfor
 endfor