関数 高さと幅から斜線辺を求める-平方根

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][関数 高さと幅から斜線辺を求める-平方根]
  • yとxから
  • zを求める。
Option Explicit


Function SquareRoot(y As Double, x As DoubleAs Double
'*************************************
'高さと幅から斜線辺を求める-平方根
'*************************************
'正弦と余弦から正接を求める
'引数yには高さ、xには幅
'ピタゴラス

If (x ^ 2 + y ^ 2) > 0 Then
    SquareRoot = Sqr(x ^ 2 + y ^ 2)
Else
    SquareRoot = 0
End If

'Sqr 関数
'数式の平方根を倍精度浮動小数点数型 (Double) の値で返す数値演算関数です。
'
'構文
'Sqr (Number)
'
'引数 number は必ず指定します。
'引数 number には、0 以上の倍精度浮動小数点数型 (Double) の数値または
'任意の有効な数式を指定します。

End Function


Private Sub test()
Debug.Print SquareRoot(15, 10)
'18.0277563773199
End Sub





Production Japan Import Application. Since 1998