谁会用Visual FoxPro 6.0 编程序 我有一个程序急用

来源：百度知道 编辑：UC知道 时间：2024/06/28 00:51:51
随机找去三十个整数 找出个位比十位大2的数,从大到小排列,然后在找出奇数和偶数 最大值最小值 计算最小值的阶乘 找出水仙花数 素数 我们明天考试要用 谁好心可以帮帮我~~~非常感谢哦!!!

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