• Home
 · 
• Math/Dates
 · 
• Pythagorum Theorum

Pythagorum Theorum

Pythagorum Theorum

Rate Pythagorum Theorum

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   '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