Question

visual foxpro 6.0 表达式

1：求累加3倒333的和
2：用编辑框输出200倒2000之间能被37整除的数
3．输入初始值，输出30个能被49整除的数。

Answer 1

以下的程序我都试过了，绝对没有问题

1 mm=0
for i=3 to 333
mm=mm+i
endf
? mm

2. mm=""
for i= 200 to 2000
if mod(i,37)=0
mm=mm+str(i,4)+chr(13)
endif
endfor
thisform.edit1.value=mm

3. i=1
mm=""
do while i<=30
input "输入数值=" to sz
if mod(sz,49)=0
i=i+1
mm=mm+str(sz,4)+" "
endif
enddo
? "你输入的满足条件的数为"+mm
wait

Answer 2

第一题
SET TALK OFF
CLEAR
i=3
s=0
DO WHILE i<=333
s=i+s
i=i+1
ENDDO
?"3-333的和",S
SET TALK ON
===============================
SET TALK OFF
CLEAR
i=200
DO WHILE i<=2000
if int(i/37)=i/37
?"200-2000能被37整除的数",i
ENDDO
SET TALK ON
===========================
都没装VFP，不知道可不可以运行，去试试吧。

Answer 3

1.
s=0
for i=3 to 333
s=s+i
endfor
?s
2.form1的init 事件
thisform.edit1.value=" "
a=thisform.edit1.value
for i=200 to 2000
if mod(i,37)=0
a=a+str(i,4)+chr(13)
endif
endfor
thisform.edit1.value=a
3.这题应该不是要求在表单中做的吧。。
input "x=" to x
a=0
do while x>=49
if mod(x,49)=0
a=a+1
?x
endif
if a=30
exit
endif
x=x+1
enddo

Answer 4

第一题程序如下：

s=0
i=3
do while i<=333
s=s+i
i=i+2
enddo
?s

结果为27888

（一个帖子只提一个问题）