Программа, вводящая натуральные числа а и б и выводит все нат.числа, квадраты кот. в диапазоне

Option Explicit
 
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer, i As Integer, q As Integer
a = 17: b = 40
If a > b Then c = a: a = b: b = c
q = 0
For i = Sqr(a) To Sqr(b)
    If i ^ 2 >= a And i ^ 2 <= b Then q = i: Print " q = "; q;
Next
If q = 0 Then Print " Между  " & a & " и " & b & "  корней нет";
Print ", a ="; a; "; b ="; b;
End Sub
 
'Между 65 и 75 корней нет, a = 65; b = 75
 
'q = 5 q = 6, a = 17; b = 40

Option Explicit
 
Private Sub Form_Activate()
Dim a As Integer, b As Integer, i As Integer, q As Integer
a = 15: b = 15
For i = Sqr(a) To Sqr(b)
    If i >= Sqr(a) And i <= Sqr(b) Then q = i: Print " q = "; q;
Next
If q = 0 Then Print " Между  " & a & " и " & b & "  корней нет";
Print ",  a ="; a; " и  b ="; b;
End Sub
 
'Между 10 и 15 корней нет, a = 10 и b = 15
'Между 15 и 15 корней нет, a = 15 и b = 15
'q = 5 q = 6, a = 20 и b = 40
'q = 4, a = 16 и b = 16

q = 0

Option Explicit
Private Sub Form_Activate()
Dim a As Long, b As Long, i As Long, q As Long
a = 9: b = 20
For i = (a) ^ (1 / 3) To (b) ^ (1 / 3)
    If i >= (a) ^ (1 / 3) And i <= (b) ^ (1 / 3) Then q = i: Print " q = "; q;
Next
If q = 0 Then Print " Между  " & a & " и " & b & "  корней нет";
Print ",  a ="; a; " и  b ="; b;
End Sub
 
'Между 9 и 20 корней нет, a = 9 и b = 20
'q = 3 q = 4, a = 9 и b = 100

'Все основания для квадратов, попадающих в промежуток [a;b]
a = 100
b = 500
 
    For i = 1 To 2 * sqr(b) -1 step 2
        k = i + k
        if k >= a then otvet = otvet & " " & sqr(k)
    Next
    
MsgBox otvet