Question

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

Answer 1

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

Answer 2

Для вывода всех точных квадратов натуральных чисел, которые не превосходят заданное число N, вы можете использовать язык VBA (Visual Basic for Applications) и цикл. Вот пример кода:

vbaCopy code
Sub Вывести_Квадраты_До_N()
    Dim N As Long
    N = InputBox("Введите число N:")
    
    If N <= 0 Then
        MsgBox "Введите положительное число N."
        Exit Sub
    End If
    
    Dim i As Long
    i = 1
    
    Do While i * i <= N
        Debug.Print i * i
        i = i + 1
    Loop
End Sub

Этот код попросит вас ввести число N, а затем выведет все точные квадраты натуральных чисел, которые не превосходят N в окне вывода (окно "Immediate" в среде разработки VBA). Вы можете использовать Debug.Print, чтобы выводить результаты в окне вывода, или изменить код, чтобы результаты выводились в сообщениях MessageBox или на листе Excel, в зависимости от ваших потребностей.