求1+3+5...+n的值
在text1中输入N的值，单击“计算”按钮后，可以计算出1到N的奇数和，text1和text2的初始值为0。双击表单的空白处，可以关闭表单。
回复 2楼 xs591222
程序代码：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
谢谢了！
