Создайте проект в Visual Basic 6.0 для определения лежит ли в первой четверти точка P с координатами x,y? - VB

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

Создайте проект в Visual Basic 6.0 для определения лежит ли в первой четверти точка P с координатами x,y? Здесь координата x вычисляется по формуле:x=3,3d1+d2, а координата y по формуле: y=d2^2-d1, где d1>0, d2.0 (d1-d первое, d2-d второе) желательно со скрином формы. Если можно пошаговая инструкция все это надо сделать в Visual Basic

Решение задачи: «Создайте проект в Visual Basic 6.0 для определения лежит ли в первой четверти точка P с координатами x,y?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim d1 As Double, d2 As Double
 
Private Sub Command1_Click()
d1 = Text1.Text
d2 = Text2.Text
x = 3.3 * b1 + d2
y = d2 ^ 2 - d1
Text3.Text = "P(" & x & "," & y & ")"
If (x > 0) And (y > 0) Then
Text4.Text = "Принадлежит"
Else
Text4.Text = "Не принадлежит"
End If
End Sub

Оцени полезность:

6 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы