Прошу Помощи

[nemo85]

Доброго времени суток всем! Помогите пожалуйста написать программу, т.к. в этом я полный ноль и ни черта в этом не смыслю, хотя совсем и не тупой))
Задание такое:


Буду всем премного БЛАГОДАРЕН!

 

[alex77755]

"Размер моей благодарности не будет иметь границ. В разумных пределах, конечно."
Задание не сложное. Могу сделать. Но у меня правило: что бы это считалось помощью должны быть собственные наработки.
запрос координат примерно так:

Координаты = InputBox("Введите координаты точки......")

 

[nemo85]

Вроде немного разобрался, не знаю на сколько правильно

Private Property x As Single

Private Property y As Single

Private Property M As String


Sub Main()
1: Dim x As String
2: Dim y As String
3: Dim M As String
4: InputBox("Введите координаты точки M")
5: If (x <= (1 - 1)) And (y <= (1 - 1)) Then
6: End If
7: MsgBox("Точка принадлежит фигуре")
8: If (x > (1 - 1)) And (y > (1 - 1)) Then
9: End If
10: MsgBox("Точка не принадлежит фигуре")
11: If (x > (1 - 1)) And (y > (1 - 1)) Then
12: End If
End Sub

End Module

Вроде работает, но не совсем так как нужно.

 

[alex77755]

Где-то так:

Sub Main()
Dim x As Double
Dim y As Double
Dim M() As String
M = Split(InputBox("Введите координаты точки M", "Введите через пробел", "3 5"), " ")
x = CDbl(M(0))
x = CDbl(M(1))
If (x <= (1 - 1)) And (y <= (1 - 1)) Then MsgBox ("Точка принадлежит фигуре")
If (x > (1 - 1)) And (y > (1 - 1)) Then MsgBox ("Точка не принадлежит фигуре")

End If
End Sub