Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры)

В Basic - 256....
Составить не менее 2 видов циклов.

input a
s=0
for i=a to 50
s=i^2+s
next i
print s

ИЛИ

input a
s=0
while a<=50
s=s+a^2
a=a+1
end while
print s

Dim a As Integer, i As Integer, s As String
a = InputBox("Введите число а")
For i = a To 50
s = s + "," + CStr(i * i)
Next
MsgBox s

a = InputBox("Введите число а")
i = a: s = ""
Do While i < 51
s = s + "," + CStr(i * i)
i = i + 1
Loop
MsgBox s