Question

vfp问题？？？急急急~~~~~

第五章练习（运行正确后再完成实验报告！）
1、程序功能：找出100～999之间个位数字与十位数字之和与10的模等于百位数，且该数是素数，例如：101，211，239 等，结果在主窗口中显示。
2、回文数是指正读和反读都一样的数，例如121，1001，1221等。下列程序的功能是：求出小于2000的所有回文数，并将它们在主窗口显示出来（每行打印5个数，最后一行显示总个数）。
3、编写程序，实现功能将键盘接收的任意一个数字字符串转换为中文“零~九”的表示形式，例如“12089”，转换成“一二零八九”。
4、编写程序实现功能：求一个三位数，该三位数等于其每位数字的阶乘之和，即abc=a!+b!+c!，将找到的三位数在屏幕显示出来。
5、编写程序，使其能在屏幕上输出一个如下所示的图像：
* * * * * * * * *
* * * * * * *
* * * * *
* * *
*

Answer 1

第5题：
SET TALK OFF
SET DEVICE TO SCREEN
CLEAR
FOR j=5 TO 1 STEP -1
FOR i=1 TO 2*j-1
??"*"
ENDFOR
?""
ENDFOR
************************************
*** 第4题
SET TALK OFF
SET DEVICE TO SCREEN
CLEAR
FOR kk=100 TO 999
IF kk = jiecheng_n(kk)
?kk
ENDIF
ENDFOR
?"运算完成。"
RETURN
***************************************
FUNCTION jiecheng_1 &&&&&　求一位数字的阶乘
PARAMETERS n1
LOCAL n2
n2 =1
FOR ii=2 TO n1
n2 =n2 * ii
ENDFOR
RETURN n2
**************************************
FUNCTION jiecheng_n &&&&&　求多位数字的阶乘
PARAMETERS n11
LOCAL n22 , c11
c11 =LTRIM(STR(n11))
n22 =0
FOR jj=1 TO LEN(c11)
n22 =n22 + jiecheng_1(VAL(SUBSTR(c11,jj,1)))
ENDFOR
RETURN n22
**************************************

Answer 2

需要报酬的

追问

最近财富值不够额~~~~~