功能实现：在Text1和Text2文本框中任意输入1—100之间的整数数字，单击“计算”按钮后在Text3中显示两个数之间所有数字的累加和。

thisform.text3.value=val(thisform.text1.value)+val(thisform.text2.value)

[ 本帖最后由 ilikeflash 于 2011-5-25 00:00 编辑 ]

xx=0
for i=val(thisform.text1.value) to val(thisform.text2.value)
xx=xx+i
endfor
thisform.text3.value=xx
刷新text3

计算按钮的Click事件：
xx-0
with Thisform
k1=min(val(.text1.text),val(.text2.text))
k2=max(val(.text1.text),val(.text2.text))
for i=k1 to k2
xx=xx+i
next
.text3.value=xx
endwith