Question

vf编程 输出下面图形

1. **
****
******
********
**********
（要求利用do while结构，且循环变量为I）
2.试编程完成如下操作：任意输入一个自然数，如果该数能被3和5整除，则输出信息“该数能同时被3和5整除”，否则，输出信息“重新输入数据”，文件名为“筛选.prg”。
3.编程计算表达式1/1+1/3-1/5+1/7-1/9的值（要求利用do while结构，且循环变量为I，结果存放变量S中）
4.
某单位发放奖金由员工创造利润决定。若所创利润低于或等于10万元，则奖金为10%；若所创利润大于10万元且小于20万元时，低于10万元的部分按10%提成，高于10万元的部分按7.5%提成；若所创利润大于20万元且小于40万元时，低于20万元的部分扔按上述办法执行，高于20万元的部分按5%提成；若所创利润大于40万元且小于60万元时，高于40万元的部分按3%提成；若所创利润大于60万元且小于100万元时，高于,60万元的部分按1.5%提成；若所创利润大于100万元时，好超过100万元的部分按1%提成，试根据上述情况计算出员工所或的奖金数量。（要求：用变量I表示利润，变量S存在所获得的奖金总数）

Answer 1

1.               **
                 ****
               ******
              ********
             **********
（要求利用do while结构，且循环变量为I）

 l=1
DO WHILE l<=5
 ?REPLICATE(" ",5-l),REPLICATE("*",l*2)
 l=l+1
ENDDO

2.试编程完成如下操作：任意输入一个自然数，如果该数能被3和5整除，则输出信息“该数能同时被3和5整除”，否则，输出信息“重新输入数据”，文件名为“筛选.prg”。

DO WHILE  .t.
 input "任意输入一个自然数：" to n
 IF MOD(n,3*5)=0
  ?"该数能同时被3和5整除"
  exit
 ELSE 
  ?"重新输入数据"
 ENDIF 
ENDDO 
RETURN

3、先保存，再继续。

追答

l=1
s=0
DO WHILE l<=9
s=s+1/l
l=l+2
ENDDO
?s

4、
input "员工创造利润：" to l
s=0
IF l<=10
s=l*.1
ELSE
IF l<=20
s=10*.1+(l-10)*.075
ELSE
IF l<=40
s=10*.1+10*.075+(l-20)*.05
ELSE
IF l<=60
s=10*.1+10*.075+20*.05+(l-40)*.03
ELSE
IF l<=100
s=10*.1+10*.075+20*.05+20*.03+(l-40)*.015
else
s=10*.1+10*.075+20*.05+20*.03+40*.015+(l-100)*.01
ENDIF
ENDIF
ENDIF
endi
endi
?s

5、
A
BBB
CCCCC
DDDDDDD
EEEEEEEEE
这个图形怎么用VF编呢

c="ABCDE"
n=len(c)
for i= 1 to n
?space(5-i)
for j=1 to i*2-1
??subs(c,I,1)
endfor
ENDFOR