Visual Foxpro好的高手进！！帮忙做下题，在线等急求答案！！追加高分~！（第三部分）

楼主主动联系我 我有一整套的正确答案 39082135

1. 下述程序的功能是求1到100之间所有偶数的平方和并输出结果，请填写完整。
S=0
X=1
DO WHILE___(1)__x<=100__
IF ___(2)__mod(x,2)=0_____
____(3)__s=s+x^2_
ENDIF
____(4)__x=x+1___
__(5)__enddo
THISFORM.TEXT1.__(6)_value_=S
2. 如左图所示，点击“开始”按钮进行计算，在编辑框中显示101~500之间能够被7整除的整数；在文本框中显示计算结果。“开始”按钮的事件代码如下，请将其补充完整：
S=0
FOR X=101 __(7)to _ 500
IF ___(8)__mod(x,7)=0_
__(9)thisform__ .EDIT1.VALUE=THISFORM.EDIT1.VALUE+STR(X,5)+CHR(13)
S=S+X
__(10)endif__
__(11)endfor_
THISFORM.TEXT1.VALUE=___(12)__str(s)___

S=0
X=1
DO WHILE___x<=100____
IF ___x%2=0_______
____s=s+x*x___
ENDIF
____x=x+1_____
__enddo__
THISFORM.TEXT1.__value__=S

S=0
FOR X=101 __to_ 500
IF ___x%7=0___
__thisform__ .EDIT1.VALUE=THISFORM.EDIT1.VALUE+STR(X,5)+CHR(13)
S=S+X
__endif__
__endfor_
THISFORM.TEXT1.VALUE=___s_____

7、
clear
text
一元二次方程求解
ax^2+bx+c=0
endtext
input "请输入a的值：" to a
input "请输入b的值：" to b
input "请输入c的值：" to c
m=b*b-4*a*c
if m>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1的值是：",x1
?"x2的值是：",x2
else
?"此方程无实根!"
endif