VB под руками нет. Поэтому в черновике:
Код:
Const Epsilon = 0.01 ' Можно меньше, на усмотрение автора
Const R = 3
Dim Answer AS String
Dim Circle_Min, Circle_Max As Single
Dim X, Y As Single
Circle_Min = R*R-Epsilon
Circle_Max = R*R+Epsilon
Input ("Введите X,Y",x,y)
If (x*x + y*y < Circle_Min ) Then answer = "Точка лежит внутри окружности"
If (x*x + y*y > Circle_Min ) and (x*x + y*y <Circle_Max) Then answer = "Точка принадлежит окружности"
If (x*x + y*y > Circle_Max) Then answer = "Точка лежит вне окружности"
Print answer
