十万火急！！请教各位VFP高手，一个十分菜鸟级的问题！！！急！！！(页 1) - VFP论坛

心清无痕 发表于 2008-5-5 23:18

十万火急！！请教各位VFP高手，一个十分菜鸟级的问题！！！急！！！

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

baichuan 发表于 2008-5-6 07:51

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

啸凡发表于 2008-5-6 21:47

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

qjbzjp 发表于 2008-5-7 09:30

顺便做了第一道题，不知道怎样发打包文件，只好给你代码，按照代码建几个控件吧：
*建一个使命按键，放入以下代码：
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=中止数

啸凡发表于 2008-5-7 21:32

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

chenwenxii 发表于 2008-5-13 13:25

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

页: [1]