Visual FoxPro程序

用Visual FoxPro编程十进制转换二进制数（注：请使用循环语句结构，如：基于条件的循环语句do while ... enddo语句或for ... endfor循环语句）

1,
s=0
for i=3 to 5
lss=.t. &&是否为素数,默认是素数
for j=2 to i-1
if mod(i,j)=0
lss=.f. &&一旦能被1和自身外的数整除,就不是素数,退出判断
exit
endif
endfor

if lss
s=s+i
endif
endfor
?'结果是',s

2,
s=0
for i=1 to 10
cj=1
for j=1 to i
cj=cj*j
endfor
s=s+cj
endfor
?'结果是',s

3,
dimension n(10)
for i=1 to 10
input '请输入第'+alltrim(str(i))+'个数值:' to n(i)
endfor
asort(n) &&将数组按升序排序
?'最大值为:',n(10)
?'最小值为:',n(1)

4,
accept '请输入职工姓名:' to xm
use 职工表 in 0
select 职工表
locate for alltrim(姓名)=alltrim(xm)
if found()
display
else
?'查无此人'
endif

5,
input '请输入数值:' to n
s=0
for i=1 to n
s=s+i*3
endfor
?'结果是',s

6,
input '请输入一个大于2的整数:' to n
if n<=2 or int(n)<>n
?'输入不符合要求'
return
endif

lss=.t. &&是否为素数,默认是素数
for i=2 to n-1
if mod(n,i)=0
lss=.f. &&一旦能被1和自身外的数整除,就不是素数,退出判断
exit
endif
endfor

if lss
?n,'是素数'
else
?n,'不是素数'
endif