Question

перевести из паскаль в вба
var x,n: integer;
begin
write('n = ');
readln(n);
x := 1;
while sqr(x) < n do begin
write(sqr(x),' ');
x := x + 1
end;

readln
end.

Answer 1

Sub abcd()

   Dim n As Integer, x As Integer

   n = CInt(InputBox("n="))

   x = 1

   While x * x < n

       MsgBox x * x

       x = x + 1

   Wend

End Sub