VB程序设计题（求和1的平方加2的平方一直加到n的平方)

Question

如题所述

Answer 1

Private Sub Form_Load()Dim sum As LongDim i As Integer, n As Integersum = 0n = Int(InpubBox("请输入n的值"))For i = 1 To n sum = sum + i ^ 2NextMsgBox "平方累加和为" & sumEnd Sub

Answer 2

sn=1^2+2^2+....+n^2
=n(n+1)(2n+1)/6 (公式）

Answer 3

for(int i=1;i<=n;i++)sum+=i*i;print(sum);