关于Visual FoxPro 程序设计

1、阶乘的程序设计。
set talk off
input '输入整数:' to a
? a,'的阶乘结果为'
b=1
do while a>=1
b=b*a
a=a-1
enddo
? b

2、输出1-100之间的竖数
set talk off
i=2
do while i<=100
j=2
x=1
do while j<i
if mod(i,j)=0 then
x=0
endif
j=j+1
enddo
if x=1 then
? i,'是素数'
endif
i=i+1
enddo

以上两个程序上机验证通过。