vb设计程序求s=1+(1+2)+(1+2+3)...