Дана точка А с координатами x и y. Определить ее положение относительно окружности радиуса R=1 - VB

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

Дана точка А с координатами x и y. Определить ее положение относительно окружности радиуса R=1

Вот этот код на С++

#include "stdafx.h"
 
using namespace std;
 
int main(int argc, char argv[])
{
float x = 0, y = 0; // объявление переменных
cout << "Enter X: "; cin >> x; // Ввод Х
cout << "Enter Y: "; cin >> y; // Ввод Y
cout << "X: " << x << endl;
cout << "Y: " << y << endl;
if ((x*x + y*y) == 1) // Проверк, лежит ли точка на окружности
{
cout << "Point on the round";
}
else
{
if ((x*x + y*y) < 1) // Проверка, лежит ли точка внутри окружности
{
cout << "Point in a circle" << endl;
}
else // В противном случаи точка лежит снаружи окружности
{
cout << "Point outside a circle" << endl;
}
}
char exit;
while(exit != 'y')
{
cout << "Want exit(y/n)"; cin >> exit;
}
return 0;
}

это код на С++ )) помогите в бэйсике сделать, завтра надо уже сдать........(

Решение задачи: «Дана точка А с координатами x и y. Определить ее положение относительно окружности радиуса R=1»

textual
                            Листинг программы 
                        

                            x=inputbox("x?")
y=inputbox("y?")
 
if x*x+y*y=1 then
  msgbox "na okruznosti"
elseif x*x+y*y<1 then
  msgbox "vnutri"
else
  msgbox "snaruzi"
end if
                        