VB编程计算由下列公式确定S的值，其中n是由键盘输入的正整数。 s=1+2+3+4+…+n

dim s as integer dim n as integer dim i as integer n=inputbox("请输入正整数n.") s=0 for i=n to 1 stetp -1 s=s+n next