新建VB工程，在窗体添加一个文本框，名称为“txtResult”,默认显示的内容为空;添加一按钮，名称为"btnCal"

按钮显示“计算”。在程序运行时，当点击按钮时，程序计算1000之内所有奇数的和，并将结果显示在文本框。

---

按钮首简散者氏代码咐历 dim i as integer
dim sum as long
for i = 1 to 1000 step 2
sum=sum+i
next i
txtResult.text=sum

---