口袋妖怪心金闪光精灵:谁会用Visual FoxPro 6.0 编程序 我有一个程序急用

CLEAR ALL
CLEAR
DIME A(30)
FOR I=1 TO 30
A(I)=INT(RAND(I)*1000)
?? A(I)
NEXT
wait"是否显示个位比十位小2的数(Y/N):" to YN
IF uppe (YN)="Y"
for i=1 to 30
c=int(A(i)/10)%10 && c是十位数
b=A(i)%10 &&b是个位数
if b=c+2
?? A(i)
endif
next
endif
wait "是否将30个数从大到小排列并求出最大最小数(Y/N):" to YN
if uppe (YN)="Y"
for i=1 to 29
for j=i+1 to 30
if A(i)>A(j)
T=A(i)
A(i)=A(j)
A(j)=T
ENDIF
ENDFOR
ENDFOR
for i=1 to 30
?? A(i)
next
?A(1),A(30)
endif
wait "是否计算最小数的价乘(Y/N):" to YN
if uppe (YN)="Y"
jie=1
FOR i=1 to A(1)
jie=jie*i
next
?jie
endif
wait "是否计算奇数和及偶数和(Y/N):" TO YN
if uppe (YN)="Y"
s1=0
s2=0
FOR I=1 TO 30
IF A(i)/2=int(A(i)/2)
s2=s2+A(i)
else
s1=s1+A(i)
endif
next
?s1,s2
endif
wait "是否计算水仙花数(Y/N):" TO YN
if uppe (YN)="Y"
for i=1 to 30
b=int(i/100)
s=int(mod(1,100)/10)
g=mod(1,100)
if b**3+s**3+g**3=i
?i
endif
next
endif
wait "是否求出素数(Y/N):" TO YN
if uppe (YN)="Y"
FOR I=2 TO 30
FOR J=2 TO i/2+1
IF MOD (I,J)=0
EXIT
endif
next
IF J>=i/2+1
?I
ENDIF
ENDFOR
endif
SET TALK ON
CANCEL