VFP怎么样做乘法口诀啊

来源：百度知道 编辑：UC知道 时间：2024/05/21 18:43:35
我是一个小虾 那位大虾告诉我VFP怎么样做乘法口诀啊
谢谢了

SET talk off
Clear
@1,30 say"九九乘法表"
?
?
?
FOR i=1 TO 9
FOR j=1 TO i
??ALLTRIM(STR(j))
??"*"
??ALLTRIM(STR(i))
??"="
??IIF(LEN(ALLTRIM(STR(i*j)))=1," "+ALLTRIM(STR(i*j)),ALLTRIM(STR(i*j)))
??" "
ENDFOR
?
ENDFOR

set talk off
clear
@1,30 say"九九乘法表"
@3,5 say"*"
for i=1 to 9
@3,5+i*5 say str(i,2)
endfor
for i=1 to 9
@3+2*i,5 say str(i,2)
for j=1 to i
@3+2*i,5+j*5 say str(i*j,2)
endfor
set talk on

楼上的少了一个endfor

SET talk off
Clear
@1,30 say"九九乘法表"
@3,5 say"*"
FOR i=1 to 9
@3,5+i*5 say str(i,2)
ENDFOR
FOR i=1 to 9
@3+2*i,5 say str(i,2)
FOR j=1 to i
@3+2*i,5+j*5 say str(i*j,2)
ENDFOR
ENDFOR
SET talk on