private sub form_click()for i = 1 to 100sum = sum +inext iprint sumend sub单击窗体,结果就行显示在窗体上了
用For循环就可以了,写程序要养成定义变量的习惯Dim i as Integer,sum as IntegerFor i=1 to 100sum=sum+iNext msgbox sum
先定义变量再用楼上的方法、、、、、、、、、