怎么在vfp里面编程输出乘法口诀表

昨天刚写的..呵呵:&&打印9*9乘法表(上三角的)
set talk off
clear
for x=1 to 9
for y=1 to 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 下三角的很简单啊;只需稍微改一下set talk off
clearx=9
do while x>=1
y=x
do while y>=1
??STR(x,1)+"*"+STR(y,1)+"="+STR((x*y),iif(x*y<10,1,2))+"|"
y=y-1
enddo
?
x=x-1
enddoset talk onreturn

1.创建表单Form12.在Form1的init事件代码编写如下：thisform.width=425thisform.height=130thisform.currentX=0thisform.currentY=2for i=1 to 9 for j=1 to i expr1=str(i,1)+"*"+str(j,1)+"="+str(i*j,2)+space(2) thisform.print(expr1) endfor thisform.printendfor

cleardimension a(9,9)for i = 1 to 9 for j = 1 to 9 a(i, j) = i * j ? alltrim(str(i)) + " * " + alltrim(str(j)) + " = "+ alltrim(str(a(i, j))) nextnextreturn