حل مسایل ریاضی در (1)vb

برنامه ای بنویسید که مجموع مربعات بین دو عدد دریافت شده را محاسبه نموده ، چاپ نماید

a = Val(InputBox(""))

b = Val(InputBox(""))

For  I = a+1   To  b-1

   S= S + I^2

Next   I

Print   "sum=";S