Вычислить периметр и площадь прямоугольного треугольника - VB
Формулировка задачи:
Приветик всем...)
Я тут совсем недавно,вот помощь оч нужна, не могу зачеты получить!
Помогите,чем скорее тем лучше) сдавать через один день!
В следующей задачаче организовать выполнение алгоритма следующим образом: выбор вычисления по той или иной формуле - с помощью элемента управления переключатель, форматный или бесформатный вывод - с помощью элемента управления флажок.
1.Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов a и b.
Организовать разветвляющийся процесс для решения следующих задач
2.Даны две точки А(х1, у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат
3.Можно ли коробку размером a ´ b ´ c упаковать в посылку размером r ´ s ´ t? «Углом» укладывать нельзя.
Работа с графикой
4.Построить график функции Y=k*x на отрезке [-5, 0] при K=1.5 и на отрезке [0, 8] при K=2.5
Решение задачи: «Вычислить периметр и площадь прямоугольного треугольника»
textual
Листинг программы
Option Explicit
Private Sub Комманда1_Click()
Dim Периметр As Double
Dim Площадь As Double
Dim a As Double
Dim b As Double
Randomize
a = InputBox("Введите первый кататет", "Ввод данных", Int(50 * Rnd + 20))
b = InputBox("Введите второй кататет", "Ввод данных", Int(50 * Rnd + 20))
Периметр = 2 * (a + b)
Площадь = (a * b) / 2
MsgBox "преиметр равен " & Периметр & vbCrLf _
& "Площадь равна " & Площадь, 64, "Результат"
End Sub