求一道VB题答案（紧急！）：编写程序求s=1^2+2^2+....+100^2

private sub command1_click()
for i = 1 to 100
s=s + i ^ 2
next
print s
end sub

dim i as integer
dim s as long
for i=1 to 100
s=s+i*i
next
print cstr(s)

Private Sub Command1_Click()
Dim s As Double
Dim i As Integer

For i = 1 To 100
s = s + i*i
Next i

Print s

End Sub