有没有学过VB的！~~~~用for next 语句求1到10的自然数的平方和

sub quhe()
dim i as integer,res as long
for i=1 to 10
res=res+i^2
next i
msgbox res
end sub

s=0
for i=1 to 10
s=s+i*i
next i

Private Sub Command1_Click()
Dim x, s As Integer ‘定义 X S 为整数型
For x = 1 To 10 ’1到10循环
s = s + x * x
Next x
MsgBox s '弹出 平方和
End Sub