Нужно написать программу на Visual Basic - VB

Формулировка задачи:

Здравствуйте, неожиданно столкнулась с такой проблемой: нужно написать программу. 1. Число С1 составляет 3% от С2, которое составляет 21,2% от С3=1079. Найти С1 и С2. 2. Найти числа в интервале от N и M, которые являются квадратами четных чисел. Первую задачу я решила так, только не знаю, правильно ли.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim x As Single, y As Single, c As Single
x = Val(Text1.Text)
y = x * (21.2 / 100)
Text2.Text = Str(y)
z = y * (3 / 100)
Text3.Text = Str(z)
End Sub

А вторую задачу не смогла ни как решить. Помогите, пожалуйста. Буду благодарна за любую помощь!

Решение задачи: «Нужно написать программу на Visual Basic»

textual
                            Листинг программы 
                        
If I Mod 2 = 0 Then Текст3.Text = Текст3.Text & I ^ 2 & vbCrLf