用VFP语言编写：100以内奇数和

新建个表单，上面有一个命令按钮(command1)和一个文本框(text1)

双击command1进入Command1_Click

代码如下
n=1
m=1

do while n+2<100
n=n+2
m=m+n

enddo
thisform.text1.value=mthisform.text1.value=m
运行程序，点解按钮，得出的结果显示在文本框内

s=0
for i=1 to 100 step 2
s=s+i
endfor
? s