Выяснить, принадлежит ли точка с координатами (x,y) кругу радиуса r - VB

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

1) Даны действительные величины x, y, r. Выяснить, принадлежит ли точка с координатами (x,y) кругу радиуса r с центром в начале координат. 2) Дан одномерный массив а вещественного типа, состоящий из n элементов. Осуществить циклический сдвиг элементов массива влево на три позиции, т. е. получить массив:

а=(а4, а5, a6,..., an, a1, a2, a3 )

(Дополнительного массива не заводить) Исходный и полученный массив вывести на печать.

Решение задачи: «Выяснить, принадлежит ли точка с координатами (x,y) кругу радиуса r»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim a() As Single, i As Integer
Private Sub Command1_Click()
Dim j As Integer, n As Integer
Dim t As Single
Const k = 3
n = Val(InputBox("n-?", , 5))
If n > 4 Then
Me.AutoRedraw = True
Cls
ReDim a(n)
For i = 1 To n
a(i) = Rnd * 25
Next i
Call Pr(n)
i = 0
 Do While i < k
 i = i + 1
  t = a(1)
   For j = 1 To n - 1
     a(j) = a(j + 1)
   Next j
   a(n) = t
 Loop
 
Call Pr(n)
 
Else
MsgBox "!", vbExclamation
End If
End Sub
Sub Pr(n As Integer)
Dim i As Integer
For i = 1 To n
Print a(i); "  ";
Next i
Print
End Sub