本人一同学明天要教作业，本人是学C的，不可能现在就看VFP所以，把这两个白痴级别的题发出来，希望各位帮帮忙！！
第一个：编程计算1-1000中能同时被3和7整除的数的个数及和，并输出结果。
第二个；对一元二次方程ax^2+bx+c=0求解。若有实根，则输出实概；否则，输出“无实根”。

使用你的C语言编码，然后改动一下就行了！

明天要交作业？那我后天把答案给您吧。

顺便做了第一道题，不知道怎样发打包文件，只好给你代码，按照代码建几个控件吧：
*建一个使命按键，放入以下代码：
x=0
y=0
x1=val(thisform.text1.value)
x2=val(thisform.text2.value)
for i=x1 to x2
    if i%3=0 .and. i%7=0
       x=x+1
       y=y+i
    endif
next
thisform.label5.caption=STR(x)   &&能被3和7整除数的个数
thisform.label7.caption=STR(y)   &&能被3和7整除的数的和
*text1=起始数，text2=中止数

楼上，是不是应该把next改成ENDFOR？而根据作业题，X1和X2是可以省略的，直接写成for i=1 to 1000.
当然，您的写法适用于任意数字段。按照您的做法，还可以把两个除数设为任意数，不知道楼主能不能想出来呢。

呵呵
高手如云啊
看来我来对地方拉