「Sqr関数」の編集履歴（バックアップ）一覧はこちら

「Sqr関数」(2007/08/30 (木) 16:46:28) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

Sqr関数

----

構文
Sqr(num)
引数numには、任意の数式を指定します。

解説
引数numで指定された数値の平方根を返します。
引数numには、０以上の数値を指定します。

サンプル
次の例は、ユーザーが入力した数値の平方根を表示します。

Sub Sample()
    Dim num As Integer
    num = InputBox("数値を入力してください")
    MsgBox Sqr(num)
End Sub
------------------------------------------------------
Dim MySqr
MySqr = Sqr(4)     '2 を返します。
MySqr = Sqr(23)    '4.79583152331272 を返します。
MySqr = Sqr(0)     '0 を返します。
MySqr = Sqr(-4)    '実行時エラーが発生します。

Sqr関数
----
構文
Sqr(num)
引数numには、任意の数式を指定します。

解説
引数numで指定された数値の平方根を返します。
引数numには、０以上の数値を指定します。

サンプル
次の例は、ユーザーが入力した数値の平方根を表示します。

Sub Sample()
    Dim num As Integer
    num = InputBox("数値を入力してください")
    MsgBox Sqr(num)
End Sub
------------------------------------------------------
Dim MySqr
MySqr = Sqr(4)     '2 を返します。
MySqr = Sqr(23)    '4.79583152331272 を返します。
MySqr = Sqr(0)     '0 を返します。
MySqr = Sqr(-4)    '実行時エラーが発生します。