関数 高さと幅から斜線辺を求める-平方根
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
|
||
Function SquareRoot(y As Double, x As Double) As 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 |
