by Waty Thierry (60 Submissions)
Category: Math/Dates
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 13th April 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Pythagorum Theorum
'Check out DiP's VB World at:
'http://come.to/dipsvbworld
'Make sure to enter "?" for the value that you want to find
If a = "?" Then
PythagorumTheorum = Sqr(C ^ 2 - b ^ 2)
ElseIf b = "?" Then
PythagorumTheorum = Sqr(C ^ 2 + a ^ 2)
ElseIf C = "?" Then
PythagorumTheorum = Sqr(a ^ 2 + b ^ 2)
Else: PythagorumTheorum = "?" ' returns a "?" if no "?" was entered for one of the values
End If
End Function