Поставленная задача:
Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат.
Private Sub Form_Click()
Me.Cls
Me.AutoRedraw = True
Me.DrawWidth = 1
x0 = InputBox("x=", "Координаты точки", 0)
y0 = InputBox("y=", "Координаты точки", 0)
x = InputBox("x=", "Координаты точки окружности", 0)
y = InputBox("y=", "Координаты точки окружности", 0)
r = InputBox("r=", "Радиус окружнсоти", 1)
If r ^ 2 >= (x0 - x) ^ 2 + (y0 - y) ^ 2 Then MsgBox "Точка принадлежит" Else MsgBox "Точка не принадлежит"
X1 = Me.Width / 2
Y1 = Me.Height / 2
Me.Print "A(" & x0 & "; " & y0 & ")"
Me.Print "O(" & x & "; " & y & ")"
Me.Print "R=" & r
Me.Line (X1, 100)-(X1, Me.Height - 100)
Me.Line (100, Y1)-(Me.Width - 100, Y1)
Me.DrawWidth = 2
Me.Circle (X1 + x, Me.Height - Y1 - y), r, vbRed
Me.DrawWidth = 5
Me.PSet (X1 + x0, Me.Height - Y1 - y0), vbBlue
End Sub
Поставленная задача:
Определить площадь треугольника
1способ: По формуле Герона
Dim a As Single
Dim b As Single
Dim c As Single
Dim p As Single
Dim s As Single
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim p As Single
Dim s As Single
a = InputBox("BBeDuTe a=")
Print "a="; a
b = InputBox("BBeDuTe b=")
Print "b="; b
c = InputBox("BBeDuTe c=")
Print "c="; c
p = (a + b + c) / 2
Print "p="; p
If ((a + b) >= c And (a + c) >= b And (b + c) >= a) Then
Print "PloIIIaDb="; Sqr((p - a) * (p - b) * (p - c))
Else: Print " He BblIIo/lHeHo Yc/loBue"
End If
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Dim a As Single
Dim b As Single
Dim y As Single
Dim p As Single
Dim s As Single
a = InputBox("BBeDuTe a=")
Print "a="; a
b = InputBox("BBeDuTe b=")
Print "b="; b
y = InputBox("BBeDuTe y=")
Print "y="; y
If y > 1 And y < 1 Then MsgBox "FALSE"
Print "PloIIIaDb="; s = 1 / 2 * a * b * sin(y)
End Sub
2.По известному углу и сторонам
Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.
Достоинства Visual Basic
Высокая скорость создания приложений.
Простой синтаксис позволяющий очень быстро освоить язык.
Вносить значительные изменения в исходный код, а затем продолжать выполнение: полная перекомпиляция и перезапуск программы при этом не требуется.