VB 1到N的平方求和怎么写.程序

Dim sum As Long

Dim i As Integer
Dim n As Long

n = InputBox("n=", "输入")
For i = 1 To n
sum = sum + i ^ 2
Next i
Debug。Print sum