15. По сторонами треугольника вычислить радиус окружности, и найти угол.

Option Explicit

Dim q As Double, w As Double, e As Double, r As Double, A As Double, p As Double, x As Double

Private Sub Command1_Click()

q = Val(Text1.Text)

w = Val(Text2.Text)

e = Val(Text3.Text)

If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox ("Неверные данные")

If ((Text1.Text = "0") Or (Text2.Text = "0") Or (Text3.Text = "0")) Then MsgBox ("Неверные данные")

p = (q + w + e) / 2

r = q * w * e / (4 * Sqr(p * (p - q) * (p - w) * (p - e)))

x = (w / (2 * e) + e / (2 * w) - (q * q / (2 * w * e)))

A = Atn((-x) / (Sqr(1 - x * x))) + 2 * Atn(1)

Text4.Text = r

Text5.Text = A

End Sub

16. Вычислить дальность полета

Option Explicit

Dim q As Single, w As Single, t As Single, x As Single, p As Single, g As Single, e As Single

Private Sub Command1_Click()

q = Val(Text1.Text)

w = Val(Text2.Text)

If Text1.Text = "" Or Text2.Text = "" Then MsgBox "Неверные данные"

g = 9.8

p = 3.14

e = w * p / 180

t = 2 * q * Sin(w * p / 180) / g

x = q * t * Cos(w * p / 180)

Label4.Caption = x

End Sub

17. У призмы По катетам треугольника вычислить Площади основания, Площадь боковой, Объем

Option Explicit

Dim A As Single, B As Single, H As Single, S1 As Single, S2 As Single, S As Single, V As Single

Private Sub Command1_Click()

A = Val(Text1.Text)

B = Val(Text2.Text)

H = Val(Text3.Text)

If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox ("Неверные данные")

If ((Text1.Text = "0") Or (Text2.Text = "0") Or (Text3.Text = "0")) Then MsgBox ("Неверные данные")

S1 = A * B / 2

V = S1 * H

S2 = (A + B + Sqr(A + B)) * H

S = S2 + 2 * S1

Text4.Text = S1

Text5.Text = V

Text6.Text = S2

Text7.Text = S

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

End Sub

18. Подсчитать количество нечетных чисел в числе

Option Explicit

Dim i As Integer, k As Integer, w As Long, N As Single, p As Integer

Private Sub Command1_Click()

Cls

w = InputBox("введите число")

N = Len(w)

k = 0

For i = 1 To N

p = Mid(w, i, 1)

If (p Mod 2) = 1 Then

k = k + 1

End If

Next i

MsgBox (k)

End Sub

19. Написать тест по таблице умножения.

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, n As Integer, a As Integer, b As Integer

While i < 10

i = i + 1

a = 1 + Int(Rnd() * 9)

b = 1 + Int(Rnd() * 9)

If a * b = InputBox("Пример " & i & " из 10" & vbLf & vbLf & a & "*" & b & "=") Then n = n + 1

Wend

If n = 10 Then

MsgBox "Отлично"

ElseIf n > 7 Then MsgBox "Хорошо"

ElseIf n > 5 Then MsgBox "Удовлетворительно"

Else: MsgBox "Плохо"

End If

End Sub

20. Равнобедренный треугольник. Что-то по сторонам посчитать.

Option Explicit

Dim a As Integer, b As Integer, c As Integer, p As Single, s As Single, r As Single, k As String, f As String, PushButton As Long

Private Sub compile()

a = Text1.Text: b = Text2.Text: c = Text3.Text

If a + b > c And a + c > b And b + c > a Then

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

s = Int(s * 100) / 100

r = r + s

If a = b Or b = c Or c = a Then f = Val(f + 1)

k = Val(k + 1)

Else

PushButton = MsgBox("Такого треугольника не существует", 48, "Ошибка")

If PushButton = vbOK Then Text1.Text = "": Text2.Text = "": Text3.Text = ""

End If

End Sub

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

PushButton = MsgBox("Неверные данные", 48, "Ошибка")

If PushButton = vbOK Then Text1.Text = "": Text2.Text = "": Text3.Text = "": Label4.Caption = "": Label5.Caption = ""

Else

If Text1.Text = 0 Or Text2.Text = 0 Or Text3.Text = 0 Then

PushButton = MsgBox("Неверные данные", 48, "Ошибка")

If PushButton = vbOK Then Text1.Text = "": Text2.Text = "": Text3.Text = "": Label4.Caption = "": Label5.Caption = ""

Else

compile

End If

End If

Text1.Text = "": Text2.Text = "": Text3.Text = ""

End Sub

Private Sub command2_click()

If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then

Label4.Caption = r

Label5.Caption = f

Label9.Caption = k

Else

If Text1.Text = 0 Or Text2.Text = 0 Or Text3.Text = 0 Then

PushButton = MsgBox("Неверные данные", 48, "Ошибка")

If PushButton = vbOK Then Text1.Text = "": Text2.Text = "": Text3.Text = "": Label4.Caption = "": Label5.Caption = ""

Else

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

PushButton = MsgBox("Неверные данные", 48, "Ошибка")

If PushButton = vbOK Then Text1.Text = "": Text2.Text = "": Text3.Text = "": Label4.Caption = "": Label5.Caption = ""

Else

compile

End If

End If

End If

End Sub

Private Sub Command3_Click()

p = 0: r = 0: k = 0: f = 0: s = 0

Text1.Text = "": Text2.Text = "": Text3.Text = "": Label4.Caption = "": Label5.Caption = "": Label9.Caption = ""

End Sub

Private Sub Form_Load()

k = 0

f = 0

End Sub