1. Dim a As Integer Dim b As Integer Dim h As Integer a = InputBox("Введите а") b = InputBox("Введите b") h = InputBox("Введите h") ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox("Площадь трапеции равна = " & ((a + b) * h) / 2)
Dim a As Integer
Dim b As Integer
Dim h As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
h = InputBox("Введите h")
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox("Площадь трапеции равна = " & ((a + b) * h) / 2)
2.
Me.BackColor = vbBlack
Me.Height = 500
Me.Width = 500