Private Sub Form Click () Dim s&, x%o 0 For x=1 To 99 Step 2 S=S+X2 Nextx Print"1~100所有奇数的平方和=";s End sub 请单属标左键换页Private Sub Form_Click（） Dim s&，x% s = 0 For x = 1 To 99 Step 2 s = s + x ^2 Next x Print "1～100所有奇数的平方和="；s End Sub