哪位大侠帮帮忙解一道VFP编程题啊，拜托了！！！

哪位大侠帮帮忙解一道VFP编程题啊，拜托了！！！~

set talk off
set safety off
input "请输入生购物金额Q:" to Q
do case
case q>=150
q=q*0.8
case q>=120 and q<150
q=q*0.9
case q<=120
q=q
endcase
set safety on
set talk on
?q

上机验证过了，28次。
clear
n=0
h=0.05
do while h<=8848000
n=n+1
h=2*h
enddo
?"对折的次数是：",n,"次"
return

哦德天，你这while死循环呢，并且enddo还不全,想死都不成。还有9折就是全价90%
，如果按9%的话，商家就哭惨了。 应该用if 或 case
do case
case P<120
p=p &&或者这句直接不写
case p>=120.and.p<150
p=p*0.9
case p>=150
p=p*0.8
endcase

再或者，以上N行语句，用一句就解决：
p=iif(p<120,p,iif(p>=120.and.p<150,p*0.9,p*0.8))

set talk off
set safety off
input "请输入生购物金额Q:" to Q
do case
case q>=150
q=q*0.8
case q>=120 and q<150
q=q*0.9
case q<=120
q=q
endcase
set safety on
set talk on
?q

---

虎林市15018282219： 一道VFP程序编程设计题,请会的帮帮忙？
墨命西洋： SET TALK OFF SET LOGERRORS ON OUT=-1 **********Program********** LOCAL liI as Integer, liResult as Integer liResult = 0 FOR liI = 1 TO 200 STEP 1 IF liI % 2 = 0 liResult = liResult + liI ENDIF ENDFOR OUT = liResult ********** End ********** DO YZJ24 WITH OUT SET TALK ON RETURN

虎林市15018282219： 帮忙解答一道VFP的程序题？
墨命西洋： 程序的运行结果如下(屏幕连续输出三行信息): Welcome! Yes 999 Yes 0 Yes

虎林市15018282219： VFP中编程题求解,从键盘输入任一值N值,求P=1*2+2*2+....+N*2 求高手帮帮忙,急急急,谢谢 - ？
墨命西洋： P=1*2+2*2+..+N*2 accept ＂ 请输入N值?&quot:＂ to X p=0?＂ N值为:＂+X FOR i=1 TO VAL(X) p=p+2*i ENDFOR ..CLEAR&&P=1*2+2*2+...

虎林市15018282219： vfp的一道编程题,输入任意的几个数,输出最大值、最小值、总和、平均数. - ？
墨命西洋： k=1 s=＂＂ zh=0 input ＂请输入你要比较的数的个数(必须大于1):＂ to p & do whil k<=p input ＂请输入你要比较的第＂+allt(str(k))+＂个数字:＂ to m s=s+＂,＂+allt(str(m,8,2))k=k+1 zh=zh+m endd pjz=zh/p bds=subs(allt(s),2,len(allt(s))-1)?＂【＂+bds+＂】中的最小值为:＂,min(&bds)?＂【＂+bds+＂】中的最大值为:＂,max(&bds)?＂【＂+bds+＂】这些数据的总和为:＂,zh?＂【＂+bds+＂】这些数据的平均值为:＂,pjz

虎林市15018282219： vfp题... 帮帮忙？
墨命西洋： 你的题目的意思不是很清楚,是这个意思吗: 新建一个程序,写代码: input ＂请输入一个数(输入0结束):＂ to nsum=0do while n<>0 sum=sum+n input ＂请输入一个数(输入0结束):＂ to nenddo?＂你刚才输入的数的和为:＂,sum图:

虎林市15018282219： 帮忙做一道大学数据库原理与应用VFP的题,关于循环语句编程的,急!？
墨命西洋： store ＂@＂ to A i=1 ?space(4)+replicate(A,1)+Space(4) For i=2 to 5 ? space(5-i)+replicate(A,2*i-1)+Space(5-i) Endfor 这样应该可以的O(∩_∩)O~ 额,一时手快,请将@改成*,如下: store ＂*＂ to A i=1 ?space(4)+replicate(A,1)+Space(4) For i=2 to 5 ? space(5-i)+replicate(A,2*i-1)+Space(5-i) Endfor

虎林市15018282219： 高分求解一道VFP编程题？
墨命西洋： 这是一个VFP入门的题目,我写下来,没有进行测试: INPUT ＂ENTER A NUMBER:＂ TO A INPUT ＂ENTER A NUMBER:＂ TO B INPUT ＂ENTER A NUMBER:＂ TO C D=B*B-4*A*C IF D>0X1=(-B+SQRT(D))/(2*A)X2=(-B-SQRT(D))/(2*A)?＂X1=＂,X1?＂X2=＂,X2 ELSEIF D=0X=-B/(2*A)?＂X1=X2=＂,XELSE?＂NO REAL ROOTS＂ENDIF ENDIF

虎林市15018282219： 问一道VFP编程 帮忙谢谢!？
墨命西洋： 没有测试,你试试看: INPUT TO A INPUT TO B INPUT TO C BIG=MAX(A,B,C) SMALL=MIN(A,B,C) SUM=A+B+C A=BIG C=SMALL B=SUM-BIG-SMALL ?A,B,C ========================== 以上答案由【精华PC】提供 本团队热忱欢迎您的加入

虎林市15018282219： 求问一道 VFP 题,关于主程序和子程序的 - ？
墨命西洋： K1程序执行过程 行2:调用程序文件SUB,使SUB中声明的过程K2链接到K1程序中 行4:执行过程K2,行3声明的变量H与过程K2的第一个参数X联系起来,实际上H与X是等同的;Y=5 进入过程K2内部执行,X=(5+5)^2=100 也就是H=100了 行5:显示H值 关键要理解主程序中的H在过程K2看是实参,X是形参,在VF中,默认H与X是一个地址,实质上也就是同一个变量,可以说X是H的别名.

虎林市15018282219： 跪求一道VFP的操作题目的操作过程!!!？
墨命西洋： CLEAR m.Num = INT(RAND(-1)*1000) m.nCount = 0 DO WHILE .T. INPUT ＂猜猜我想的数是几(小于1000):＂ TO m.InputNum m.nCount = m.nCount + 1 IF TYPE(＂m.InputNum＂) <> ＂N＂ OR m.InputNum > 1000 ?＂输入内容非法,请输入一...