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

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

  • 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
  • はてなブックマークに追加

 

2016年10月01日|[VBサンプルコード]:[関数]