急~！Visual Foxpro 程序设计基础题目

1、某地至北京的邮路里程为1043km，通过邮政局向北京城区寄交“特快专递”邮件，应在24小时内到达，计费标准每克为0.05元，但超过100克后，超出每克为0.02元。试编写程序计算邮费。
2、计算：T=1!+2!+……+10！

答案：1.
zl=0
money=0
input "输入邮件重量：" to zl
if zl<=100 then
  money=zl*0.05
endi
if zl>100 then
  money=zl*0.02
endi
? "金额为：",money

2.
t=0
c=1
for a=1 to 10
 for b=1 to a
   c=c*b
 next
 t=t+c
next 
? "1!+2!+……+10!=",t

其他：1.第一题计算需要用到的数据没有里程和时间。
  input "请输入物品重量：" to a
   if a<=100 and a>0
      s=0.05a
   else
      s=0.02a+3
   endif
  ?"邮费为："，s
2.i=1
   s=1
   T=0 
   do while i<=10
        s=s*i
        T=T+s 
        i=i+1
   enddo
   ?T 1.
w=0
m=0
wait"输入邮件重量：" to w
if w<=100 
  m=w*0.05
endif
if w>100 
  m=100*0.05+(w-100)*0.02
endif
? "金额为：",m

2.
t=1
m=0
for i=1 to 10
m=m+t*i
endfor
? "1!+2!+……+10!=",m

上一个：当前的FoxPro表文件中有100条记录，当前记录号为86，执行命令 SKIP 20 后， 再执行命令 ？RECNO( ) 其结果
下一个：(cannot locate the microsoft visal foxpro suport library)是什么意思