Вывести точные квадраты натуральных чисел, не превосходящие данного числа Nна языке VBA

Question

Вывести точные квадраты натуральных чисел, не превосходящие данного
числа N
на языке VBA

Answer 1

N = InputBox("n=?")
For i = 1 To n
 s = s & i * i & "; "
Next i
MsgBox (s)

Comments

спасибо если не тяжело могу скинуть еще несколько задач