Menentukan sisi segitiga sikusiku dengan VBA

Function Segitiga(Optional Sisi1, Optional Sisi2, Optional Hipotenusa)
If Not (IsMissing(Sisi1)) And Not (IsMissing(Sisi2)) Then
Segitiga = Application.Round(Sqr(Sisi1 ^ 2 + Sisi2 ^ 2), 1)
ElseIf Not (IsMissing(Sisi1)) And Not (IsMissing(Hipotenusa)) Then
Segitiga = Application.Round(Sqr(Hipotenusa ^ 2 - Sisi1 ^ 2), 1)
ElseIf Not (IsMissing(Sisi2)) And Not (IsMissing(Hipotenusa)) Then
Segitiga = Application.Round(Sqr(Hipotenusa ^ 2 - Sisi2 ^ 2), 1)
Else
MsgBox ("Format masukan (sisi1;sisi2;[sisimiring])")
Segitiga = "Salah input"
End If
'End If
'End If
End Function

Sub SGT()
Dim X, Y, z As Integer
X = InputBox("Maukan sisi 1 ", "Input sisi Segitiga")
Y = InputBox("Maukan sisi 2 ", "Input sisi Segitiga")
z = Segitiga(X, Y)
MsgBox ("Sisi sisi segitiga adalah : Sisi1= " & X & " Sisi2: " & Y & " Sisi3= " & z)
End Sub

perihal: Google (lihat di Google Wikipinggir)