Cómo programar y generar la tabla de multiplicar en vfp

Lo escribí ayer... Jaja: &&Imprime la tabla de multiplicar 9*9 (triangular superior)

apaga la conversación

clara

para x=1 a 9

para y=1 a x STR(x,1)+"*"+STR(y,1)+"="+IIF(x*y<10 ,STR(0,1),"")+STR((x*y),iif(x*y<10,1,2))+"|"

endfor

endforset talk on

return El triángulo inferior es muy simple, simplemente cámbielo ligeramente y set talk off

clearx=9

do while x>= 1;

y=x

hacer mientras y>=1 STR(x,1)+"*"+STR(y,1)+"="+STR((x * y),iif(x*y<10,1,2))+"|"

y=y-1

enddo

x= x -1

finalizar conversación al regresar