Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов а и b

Option Explicit
Private Sub Command1_Click()
Dim a, b, S, c As Integer
a = InputBox("Введите сторону а")
b = InputBox("Введите сторону b")
S = 0.5 * (a * b)
Print "Площадь равна " & S & " кв. ед"
End Sub

Option Explicit
Private Sub Command1_Click()
Dim A() As Long
Dim max As Long: max = 0
Dim n, i As Long
Randomize Timer
n = InputBox("Введите размер массива")
ReDim A(n)
For i = 1 To n
A(i) = 1000 * Rnd
Next i
For i = 1 To n
If A(i) > max Then max = A(i)
Next i
Print max ^ 3
End Sub

Option Explicit
Private Sub Command1_Click()
Dim x, y As Single
Dim step, a, b, i As Integer
a = InputBox("Введите начальное значение")
b = InputBox("Введите конечное значение")
step = InputBox("Введите шаг")
For i = a To b Step step
y = i - Sin(i)
Print "Значение агргумента равно " & i, "Значение функции равно " & y
Next i
End Sub

Option Explicit
Private Sub Command1_Click()
Dim x, y As Single
Dim step, a, b, i As Integer
a = InputBox("Введите начальное значение")
b = InputBox("Введите конечное значение")
step = InputBox("Введите шаг")
For i = a To b Step step
y = i - Sin(i) * 2
Print "Значение агргумента равно " & i, "Значение функции равно " & y
Next i
End Sub

Option Explicit
Private Sub Command1_Click()
Dim a, b, S, c, p As Integer
a = InputBox("Введите сторону а")
b = InputBox("Введите сторону b")
        S = 0.5 * (a * b)
        p = Sqr(a ^ 2 + b ^ 2)
                Print "Площадь равна " & S & " кв. ед"
                Print "Периметр равен " & p; " ед"
End Sub

p=a+b+Sqr(a*a + b*b)

Dim a As Double, b As Double, S As Double, c As Double, p As Double 'тип в VB следует указывать для всех переменных