Private Sub Form Click () Dim s&, x% s=0 S=S+XA2 X=x+2 S=S+X2 x+2 STX x=x+2∵x的值累加到99 S=S+X2 Print"1~100之间所有奇数的平方和=;S End sub 请单属标左键换页Private Sub Form_Click（） Dim s&，x% s = 0 x = 1 s = s + x ^2 x = x + 2 s = s + x ^2 x = x + 2 s = s + x ^2 …… x = x +2 'x的值累加到99 s = s + x ^2 Print "1～100之间所有奇数的平方和="；s End Sub