visual basic

[kuzzz]

Дана точка А с координатами 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;
}

нужно уже к завтра на VBasic....(( помогите кто чем может)

[EducatedFool]

Sub test()
    ' Дана точка А с координатами x и y.
    ' Определить ее положение относительно окружности радиуса R=1
    On Error Resume Next
    x = InputBox("Введите X", , 0.23)
    x = CDbl(x): If Err Then MsgBox "Введено значение X, не являющееся числом": Exit Sub
    y = InputBox("Введите Y", , 0.56)
    y = CDbl(y): If Err Then MsgBox "Введено значение Y, не являющееся числом": Exit Sub

    Const R = 1

    Select Case x * x + y * y
        Case Is > R * R: res = "Точка за пределами окружности"
        Case Is = R * R: res = "Точка на окружности"
        Case Is < R * R: res = "Точка внутри окружности"
    End Select
    MsgBox res, vbInformation, "x = " & x & ",  y = " & y
End Sub

[andik]

Примитив:

Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
If (x * x + y * y) = 1 Then
  MsgBox "точка лежит на окружности"
Else
  If (x * x + y * y) < 1 Then
    MsgBox "точка лежит внутри окружности"
  Else
    MsgBox "точка не лежит на окружности"
  End If
End If
End Sub

на форме должны быть Text1, Text2, Command1, ну и надписи X и Y это Label1 и Label2 соответственно