| 主要数学関数の使用例 (17個) (SNo.001) Abs 指定した数値の絶対値を返します。 Atan タンジェントが指定数となる角度を返します。 Cos 指定された角度のコサインを返します。 DivRem 2つの数値の商を返し、出力パラメーターとして剰余を渡します。 Exp 指定した値で e を累乗した値を返します。 Fix 指定した数値の整数部分を返します IEEERemainder 指定した数を別の指定数で除算した結果の剰余を返します。 Int 指定した数値の整数部分を返します Log 指定した数の対数を返します Max 指定された 2 つの数のうち、大きい方を返します。 Min 2 つの数のうち、小さい方を返します。 Rnd 単精度浮動小数点数型 (Single) の乱数を返します Round 指定した値に最も近い数値を返します。 Sign 数値の符号を示す値を返します。 Sin 指定された角度のサインを返します。 Sqrt 指定された数値の平方根を返します。 Tan 指定された角度のタンジェントを返します |
|
| 使用コントロール | Button1 〜 Button17 |
| その他条件 | WindowsXP Visual Basic .NET 2003 |
| Math.Abs メソッド Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'Math.Abs メソッド [名前空間: System] '指定した数値の絶対値を返します。 '(数値の絶対値とは、その数値から符号を取り除いたものです) Debug.WriteLine(System.Math.Abs(50.3)) '結果 50.3 を返します。 Debug.WriteLine(System.Math.Abs(-50.3)) '結果 50.3 を返します。 End Sub |
|
| Math.Atan メソッド Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'Math.Abs メソッド [名前空間: System] 'タンジェントが指定数となる角度を返します。 Dim pi As Double pi = 4 * System.Math.Atan(1) '円周率を求めます。 Debug.WriteLine(pi) '結果 3.14159265358979 End Sub |
|
| Math.Cos メソッド Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'Math.Cos メソッド [名前空間: System] '指定された角度のコサインを返します。 Debug.WriteLine(1 / System.Math.Cos(1.3)) '結果 3.73833412707544 End Sub |
|
| Math.DivRem メソッド Private Sub Button17_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button17.Click 'Math.DivRem メソッド [名前空間: System] '2 つの数値の商を返し、出力パラメーターとして剰余を渡します。 Dim intResult As Integer Debug.WriteLine(System.Math.DivRem(10, 3, intResult)) '結果 3 (10 \ 3) Debug.WriteLine(intResult) '結果 1 (10 Mod 3) 'Math.IEEERemainder メソッド を参照 End Sub |
|
| Math.Exp メソッド Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click 'Math.Exp メソッド [名前空間: System] '指定した値で e を累乗した値を返します。 Dim angle, hSin As Double angle = 1.3 '角度 (ラジアン) を設定します。 '双曲線サインを計算します。 hSin = (System.Math.Exp(angle) - System.Math.Exp(-1 * angle)) / 2 Debug.WriteLine(hSin) '結果 1.69838243729262 End Sub |
|
| Fix 関数 Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click 'Fix 関数 [名前空間 : Microsoft.VisualBasic] '指定した数値の整数部分を返します。 Debug.WriteLine(Fix(5.6)) '結果 5 Debug.WriteLine(Microsoft.VisualBasic.Fix(5.6)) Debug.WriteLine(Fix(-5.6)) '結果 -5 'この場合 Int 関数とでは結果が違います End Sub |
|
| Math.IEEERemainder メソッド Private Sub Button6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click 'Math.IEEERemainder メソッド [名前空間: System] '指定した数を別の指定数で除算した結果の剰余を返します。 Debug.WriteLine(Math.IEEERemainder(10, 3)) '結果 1 (VB6.0 の 10 Mod 3 と同じ) Debug.WriteLine(10 Mod 3) 'Math.DivRem メソッド を参照 End Sub |
|
| Int 関数 Private Sub Button7_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button7.Click 'Int 関数 [名前空間 : Microsoft.VisualBasic] '指定した数値の整数部分を返します。 Debug.WriteLine(Int(5.6)) '結果 5 Debug.WriteLine(Microsoft.VisualBasic.Int(5.6)) Debug.WriteLine(Int(-5.6)) '結果 -6 'この場合 Fix 関数とでは結果が違います End Sub |
|
| Math.Log メソッド Private Sub Button8_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button8.Click 'Math.Log メソッド [名前空間: System] '指定した数の対数を返します。 '双曲線サインの逆関数を計算します。 Dim angle As Double = 1.3 Dim myLog As Double myLog = System.Math.Log(angle + System.Math.Sqrt(angle * angle + 1)) Debug.WriteLine(myLog) '結果 1.0784510589549 End Sub |
|
| Math.Max メソッド Private Sub Button9_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button9.Click 'Math.Max メソッド [名前空間: System] '指定された 2 つの数のうち、大きい方を返します。 Debug.WriteLine(System.Math.Max(123, 456)) '結果 456 End Sub |
|
| Math.Min メソッド Private Sub Button10_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button10.Click 'Math.Min メソッド [名前空間: System] '2 つの数のうち、小さい方を返します。 Debug.WriteLine(System.Math.Min(123, 456)) '結果 123 End Sub |
|
| Rnd 関数 Private Sub Button11_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button11.Click 'Rnd 関数 [名前空間 : Microsoft.VisualBasic] '単精度浮動小数点数型 (Single) の乱数を返します '任意の範囲の整数の乱数を生成するには、次の式を使用してください。 'CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound)) '１〜９の範囲の乱数を２０個生成します。 For i As Integer = 1 To 20 Debug.Write(CInt(Microsoft.VisualBasic.Int((9 - 1 + 1) * Microsoft.VisualBasic.Rnd()) + 1)) '結果 7 5 6 3 3 7 1 7 8 7 1 4 8 8 4 9 8 1 9 4 Next i End Sub |
|
| Math.Round メソッド Private Sub Button12_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button12.Click 'Math.Round メソッド [名前空間: System] '指定した値に最も近い数値を返します。 Debug.WriteLine(System.Math.Round(3.34, 1)) '結果 3.3 Debug.WriteLine(System.Math.Round(3.35, 1)) '結果 3.4 Debug.WriteLine(System.Math.Round(3.36, 1)) '結果 3.4 Debug.WriteLine(System.Math.Round(3.44, 1)) '結果 3.4 Debug.WriteLine(System.Math.Round(3.45, 1)) '結果 3.4 Debug.WriteLine(System.Math.Round(3.46, 1)) '結果 3.5 End Sub |
|
| Math.Sign メソッド Private Sub Button13_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button13.Click 'Math.Sign メソッド [名前空間: System] '数値の符号を示す値を返します。 Debug.WriteLine(System.Math.Sign(-2.4)) '結果 -1 (value が 0 未満です。) Debug.WriteLine(System.Math.Sign(0.0)) '結果 0 (value が 0 です。) Debug.WriteLine(System.Math.Sign(2.4)) '結果 1 (value が 0 より大きい値です。) End Sub |
|
| Math.Sin メソッド Private Sub Button14_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button14.Click 'Math.Sin メソッド [名前空間: System] '指定された角度のサインを返します。 Debug.WriteLine(1 / System.Math.Sin(1.3)) '結果 1.0378200456748 End Sub |
|
| Math.Sqrt メソッド Private Sub Button15_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button15.Click 'Math.Sqrt メソッド [名前空間: System] '指定された数値の平方根を返します。 Debug.WriteLine(System.Math.Sqrt(4)) '結果 2 End Sub |
|
| Math.Tan メソッド Private Sub Button16_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button16.Click 'Math.Tan メソッド [名前空間: System] '指定された角度のタンジェントを返します。 Debug.WriteLine(1 / System.Math.Tan(1.3)) '結果 0.277615646541125 End Sub |
|