برنامه بنویسید که مجموع مربعات اعداد 1 تا 10 را محاسبه و چاپ کند .

Dim I As Integer , Dim S , As Double

For I = 1 To 10

S = S + I ^ 2

Next 1

Print S

End Sub