用vfp编程序实现:计算1到n之间的偶数和和奇数和并且统计奇数的个数和偶数的个数要求用input输入n的值?

*********奇偶和*******************************CLEARCLOSE ALLSET TALK OFF SUM1=0 P=0 SUM2=0 q=0INPUT "请输入一个正整数： " to NFOR A=1 TO N IF A%2=0 SUM1=SUM1+A P=P+1 ELSE SUM2=SUM2+A q=q+1 endifENDFOR ?"偶数和为："+STR(sum1), "偶数的个数"+STR(p) ?"奇数和为："+STR(SUM2), "奇数的个数"+STR(q)

忘了说了，这是一个程序文件所以应该是：奇偶数和.PRG文件名最好用英文。

我买了《Visual Basic 5 宝典》书，想找随书光盘，哪位能给我拷一张。谢谢了。书买后，发现盘打不开，后来到出版社去过，他们说等有货时给换一张。很长时间过去了，也没音信。还是求求各位吧。[email protected]