在text1中输入N的值，单击“计算”按钮后，可以计算出1到N的奇数和，
text1和text2的初始值为0。双击表单的空白处，可以关闭表单。

 IF INT(n/2)=n/2
   MESSAGEBOX('你输入的不是奇数，请重输！',48,'系统提醒：')
   RETURN

 ENDIF

 sn=0

 FOR i=1 to n step 2
   sn=sn+i

 ENDFOR 

*-*命令按钮下代码
NUM=0
THISFORM.LABEL1.CAPTION=[奇数和：]
FOR  I=VAL(THISFORM.TEXT1.VALUE) TO VAL(THISFORM.TEXT2.VALUE)
     NUM=NUM+IIF(I%2=0,0,I)   
ENDFOR
THISFORM.LABEL1.CAPTION=THISFORM.LABEL1.CAPTION+TRANSFORM(NUM)

*-*表单CLICK事件
THISFORM.RELEASE

[ 本帖最后由 bccn201203 于 2012-12-16 18:05 编辑 ]

Text1存放N值，Text2存放结果，初始值都是0，则计算按钮的Click过程可以这样写
lnRes=0
For lnCnt=1 To ThisForm.Text1.Value Step 2
  lnRes=lnRes+lnCnt
EndFor
ThisForm.Text2.Value=lnRes

n=thisform.text1.value
IF INT(n/2)=n/2
    MESSAGEBOX("你输入的不是奇数，请重输！")
    RETURN

 ENDIF

 sn=0
FOR i=1 to n step 2
    sn=sn+i
thisform.text2.value=sn

 ENDFOR
谢谢了！

谢谢了

假如Text1输入的是负数，也能处理，这里也有一段程序，你看看
Local lnRes
lnRes=ThisForm.Text1.Value
Do Case
  Case Type('lnRes')#'N' or LnRes=0
    ThisForm.Text2.Value=0
  Case lnRes<0
    ThisForm.Text2.Value=-1
  Otherwise
    lnRes=Int((lnRes+1)/2)
    ThisForm.Text2.Value=lnRes*lnRes
EndCase

真心谢谢了