VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 関数・メソッド・変数関係のメニュー
１．数学関数・三角関数の紹介
２．主要データ型等の変換関数等の紹介
３．Convert クラスのメソッドでのデータ型変換関数等の紹介
４．Microsoft.VisualBasic 名前空間の主要文字列関数の紹介　
５．System.String クラスの主要文字列関数の紹介
６．条件判断等を行う関数の紹介
７．日付・時刻に関する主要関数の紹介(Microsoft.VisualBasic名前空間)
８．日付・時刻に関する System 名前空間のメソッド等の紹介
９．その他の主要関数(メソッド)等の紹介　
10．
11．
12．
．
20．その他、当サイト内に掲載の関数・メソッド・変数に関するサンプル


１．数学関数・三角関数の紹介(11_Fnc_01)　(旧、SampleNo.001)
１ ．Abs メソッドの使用例(指定された数値の絶対値を返す)
２ ．Acos メソッドの使用例(コサインが指定数となる角度を返す)
３ ．Asin メソッドの使用例(サインが指定数となる角度を返す)
４ ．Atan メソッドの使用例(タンジェントが指定数となる角度を返す)
５ ．Atan2 メソッドの使用例(タンジェントが 2 つの指定された数の商である角度を返す)
６ ．BigMul メソッドの使用例(2 つの 32 ビット数値の完全な積を生成する)
７ ．Ceiling メソッドの使用例(指定した数以上の数のうち、最小の整数を返す)
８ ．Cos メソッドの使用例(指定された角度のコサインを返す)
９ ．Cosh メソッドの使用例(指定された角度のハイパーボリックコサインを返す)
10．DivRem メソッドの使用例(2 つの数値の商を計算し、出力パラメーターの剰余を返す)
11．Exp メソッドの使用例(指定した値で e を累乗した値を返す)
12．Floor メソッドの使用例(指定した数以下の数のうち、最大の整数を返す)
13．IEEERemainder メソッドの使用例(指定した数を別の指定数で除算した結果の剰余を返す)
14．Log メソッドの使用例(指定した数の対数を返します)
15．Log10 メソッドの使用例(指定した数の底 10 の対数を返す)
16．Max メソッドの使用例(指定された 2 つの数のうち、大きい方を返す)
17．Min メソッドの使用例(2 つの数のうち、小さい方を返す)
18．Pow メソッドの使用例(指定の数値を指定した値で累乗した値を返す)
19．Round メソッドの使用例(最も近い整数または指定した小数点数に値を丸める)
20．Sign メソッドの使用例(数値の符号を示す値を返す)
21．Sin メソッドの使用例(指定された角度のサインを返す)
22．Sinh メソッドの使用例(指定された角度のハイパーボリックサインを返す)
23．Sqrt メソッドの使用例(指定された数値の平方根を返す)
24．Tan メソッドの使用例(指定された角度のタンジェントを返す)
25．Tanh メソッドの使用例(指定された角度のハイパーボリックタンジェントを返す)
26．Truncate メソッドの使用例(数値の整数部を計算す)

実使用例としては適切でない使用例も含まれているかも知れませんがご了承願います。
また、使用例以外にも引数が色々用意されていますので、詳しくは、MSDN や WEB 上で調べて下さい。
　下記プログラムコードに関する補足・注意事項　
動作確認：Windows Vista・Windows 7 (32bit)/VB2010(SP1Rel) Framework 4.0(SP1Rel)/ターゲットCPU：x86
Option　：[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports ：追加なし
参照設定：追加なし
その他　：Button1
　　　　：
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 １．Abs メソッドの使用例(指定された数値の絶対値を返す)
Math.Abs メソッド　[名前空間: System]　
指定した数値の絶対値を返します。(絶対値とは、その数値から符号を取り除いたものです)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = "１．Abs メソッドの使用例(指定された数値の絶対値を返す)" & vbCrLf
    Dim decimals() As Decimal = {Decimal.MaxValue, 12.34D, 0D, -12.34D, Decimal.MinValue}
    For Each value As Decimal In decimals
        TextBox1.Text &= String.Format("Abs({0}) = {1}", value, Math.Abs(value)) & vbCrLf
        Console.WriteLine("Abs({0}) = {1}", value, Math.Abs(value))
    Next
End Sub

上記実行結果
１．Abs メソッドの使用例(指定された数値の絶対値を返す)
Abs(79228162514264337593543950335) = 79228162514264337593543950335
Abs(12.34) = 12.34
Abs(0) = 0
Abs(-12.34) = 12.34
Abs(-79228162514264337593543950335) = 79228162514264337593543950335
このページのトップへ移動します。 ２．Acos メソッドの使用例(コサインが指定数となる角度を返す)
Math.Acos メソッド　[名前空間: System]
コサインが指定数となる角度を返します。(引数の値として-1.0から1.0の範囲外の値を指定するとNaN(非数値)を返します。)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    TextBox1.Text = "２．Acos メソッドの使用例(コサインが指定数となる角度を返す)" & vbCrLf
    Dim decimals() As Decimal = {0D, 0.5D, 1D, -0.5D, -1D}
    For Each value As Decimal In decimals
        TextBox1.Text &= String.Format("Degrees(Acos({0}) = {1}", value, Degrees(Math.Acos(value))) & vbCrLf
        Console.WriteLine("Degrees(Acos({0}) = {1}", value, Degrees(Math.Acos(value)))
    Next
End Sub

'下記関数は、他のメソッド等の使用例でも使用します、その場合は記載を省略します。
Private Shared Function Degrees(ByVal value As Double) As Double
'Excel のDEGREES 関数と同等の関数(ラジアンを度に変換します。)
    Return (value * 180 / Math.PI)
End Function


上記実行結果
２．Acos メソッドの使用例(コサインが指定数となる角度を返す)
Degrees(Acos(0) = 90
Degrees(Acos(0.5) = 60
Degrees(Acos(1) = 0
Degrees(Acos(-0.5) = 120
Degrees(Acos(-1) = 180
このページのトップへ移動します。 ３．Asin メソッドの使用例(サインが指定数となる角度を返す)
Math.Asin メソッド　[名前空間: System]
数値のアークサイン(逆サイン)を返します。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    TextBox1.Text = "３．Asin メソッドの使用例(サインが指定数となる角度を返す)" & vbCrLf
    Dim decimals() As Decimal = {0D, 0.5D, 1D, -0.5D, -1D}
    For Each value As Decimal In decimals
        TextBox1.Text &= String.Format("Asin({0}) = {1}", value, Math.Asin(value)) & vbCrLf
        Console.WriteLine("Asin({0}) = {1}", value, Math.Asin(value))
    Next
End Sub

上記実行結果
３．Asin メソッドの使用例(サインが指定数となる角度を返す)
Asin(0) = 0
Asin(0.5) = 0.523598775598299
Asin(1) = 1.5707963267949
Asin(-0.5) = -0.523598775598299
Asin(-1) = -1.5707963267949
このページのトップへ移動します。 ４．Atan メソッドの使用例(タンジェントが指定数となる角度を返す)
Math.Atan メソッド　[名前空間: System]
タンジェントが指定数となる角度を返します。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    TextBox1.Text = "４．Atan メソッドの使用例(タンジェントが指定数となる角度を返す)" & vbCrLf
    Dim decimals() As Decimal = {0D, 0.5D, 1D, -0.5D, -1D}
    For Each value As Decimal In decimals
        TextBox1.Text &= String.Format("Degrees(Atan({0}) = {1}", value, Degrees(Math.Atan(value))) & vbCrLf
        Console.WriteLine("Degrees(Atan({0}) = {1}", value, Degrees(Math.Atan(value)))
    Next
End Sub

上記実行結果
４．Atan メソッドの使用例(タンジェントが指定数となる角度を返す)
Degrees(Atan(0) = 0
Degrees(Atan(0.5) = 26.565051177078
Degrees(Atan(1) = 45
Degrees(Atan(-0.5) = -26.565051177078
Degrees(Atan(-1) = -45
このページのトップへ移動します。 ５．Atan2 メソッドの使用例(タンジェントが 2 つの指定された数の商である角度を返す)
Math.Atan2 メソッド　[名前空間: System]
タンジェントが 2 つの指定された数の商である角度を返します。

注意 VB2013 の場合は、Math.Atan2(y 座標, x 座標)になりますが、Excel の場合は、ATAN2(x 座標, y 座標)になります。
　従って、DEGREES(ATAN2(0,1)) = 90 になります。

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    TextBox1.Text = "５．Atan2 メソッドの使用例(タンジェントが 2 つの指定された数の商である角度を返す)" & vbCrLf
    Dim decimals() As Decimal = {0D, 0.5D, 1D, -0.5D, -1D}
    For Each value As Decimal In decimals
        TextBox1.Text &= String.Format("Degrees(Atan2({0},{1}) = {2}", 1D, value, Degrees(Math.Atan2(1D, value))) & vbCrLf
        Console.WriteLine("Degrees(Atan2({0},{1}) = {2}", 1D, value, Degrees(Math.Atan2(1D, value)))
    Next
End Sub

上記実行結果
５．Atan2 メソッドの使用例(タンジェントが 2 つの指定された数の商である角度を返す)
Degrees(Atan2(1,0) = 90
Degrees(Atan2(1,0.5) = 63.434948822922
Degrees(Atan2(1,1) = 45
Degrees(Atan2(1,-0.5) = 116.565051177078
Degrees(Atan2(1,-1) = 135
このページのトップへ移動します。 ６．BigMul メソッドの使用例(2 つの 32 ビット数値の完全な積を生成する)
Math.BigMul メソッド　[名前空間: System]
2 つの 32 ビット数値の完全な積を生成します。

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    TextBox1.Text = "６．BigMul メソッドの使用例(2 つの 32 ビット数値の完全な積を生成する)" & vbCrLf
    Dim values() As Integer = {1, 2, 3, 4, 5}
    For Each value As Integer In values
        TextBox1.Text &= String.Format("BigMul({0},{1})) ={2,3: ###0}", value, value, Math.BigMul(value, value)) & vbCrLf
        Console.WriteLine("BigMul({0},{1})) ={2,3: ###0}", value, value, Math.BigMul(value, value))
    Next
End Sub

上記実行結果
６．BigMul メソッドの使用例(2 つの 32 ビット数値の完全な積を生成する)
BigMul(1,1)) = 1
BigMul(2,2)) = 4
BigMul(3,3)) = 9
BigMul(4,4)) = 16
BigMul(5,5)) = 25
このページのトップへ移動します。 ７．Ceiling メソッドの使用例(指定した数以上の数のうち、最小の整数を返す)
Math.Ceiling メソッド　[名前空間: System]
指定した数以上の数のうち、最小の整数を返します。　　Math.Floor メソッドの使用例参照

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    TextBox1.Text = "７．Ceiling メソッドの使用例(指定した数以上の数のうち、最小の整数を返す)" & vbCrLf
    Dim values() As Double = {7.03, 7.64, 0.12, -0.12, -7.1, -7.6}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Ceiling({0})) = {1}", value, Math.Ceiling(value)) & vbCrLf
        Console.WriteLine("Ceiling({0})) = {1}", value, Math.Ceiling(value))
    Next
End Sub

上記実行結果
７．Ceiling メソッドの使用例(指定した数以上の数のうち、最小の整数を返す)
Ceiling(7.03)) = 8
Ceiling(7.64)) = 8
Ceiling(0.12)) = 1
Ceiling(-0.12)) = 0
Ceiling(-7.1)) = -7
Ceiling(-7.6)) = -7
このページのトップへ移動します。 ８．Cos メソッドの使用例(指定された角度のコサインを返す)
Math.Cos メソッド　[名前空間: System]
指定された角度のコサインを返します。

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    TextBox1.Text = "８．Cos メソッドの使用例(指定された角度のコサインを返す)" & vbCrLf
    Dim values() As Double = {0, 60, 120, 180, 240, 300}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Cos({0} * Math.PI / 180)) = {1}", value, Math.Cos(value * Math.PI / 180)) & vbCrLf
        Console.WriteLine("Cos({0} * Math.PI / 180)) = {1}", value, Math.Cos(value * Math.PI / 180))
    Next
End Sub

上記実行結果
８．Cos メソッドの使用例(指定された角度のコサインを返す)
Cos(0 * Math.PI / 180)) = 1
Cos(60 * Math.PI / 180)) = 0.5
Cos(120 * Math.PI / 180)) = -0.5
Cos(180 * Math.PI / 180)) = -1
Cos(240 * Math.PI / 180)) = -0.5
Cos(300 * Math.PI / 180)) = 0.5
このページのトップへ移動します。 ９．Cosh メソッドの使用例(指定された角度のハイパーボリックコサインを返す)
Math.Cosh メソッド　[名前空間: System]
指定された角度のハイパーボリックコサインを返します。

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    TextBox1.Text = "９．Cosh メソッドの使用例(指定された角度のハイパーボリックコサインを返す)" & vbCrLf
    Dim values() As Double = {0, 60, 120, 180, 240, 300}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Cosh({0} * Math.PI / 180)) = {1}", value, Math.Cosh(value * Math.PI / 180)) & vbCrLf
        Console.WriteLine("Cosh({0} * Math.PI / 180)) = {1}", value, Math.Cosh(value * Math.PI / 180))
    Next
End Sub

上記実行結果
９．Cosh メソッドの使用例(指定された角度のハイパーボリックコサインを返す)
Cosh(0 * Math.PI / 180)) = 1
Cosh(60 * Math.PI / 180)) = 1.60028685770239
Cosh(120 * Math.PI / 180)) = 4.12183605386995
Cosh(180 * Math.PI / 180)) = 11.5919532755215
Cosh(240 * Math.PI / 180)) = 32.9790649099645
Cosh(300 * Math.PI / 180)) = 93.9599750339387
このページのトップへ移動します。 10．DivRem メソッドの使用例(2 つの数値の商を計算し、出力パラメーターの剰余を返す)
Math.DivRem メソッド　[名前空間: System]
2 つの数値の商を返し、出力パラメーターとして剰余を渡します、(10 \ 3)と(10 Mod 3)と同じです。
　　Math.IEEERemainder メソッドの使用例参照

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    TextBox1.Text = "10．DivRem メソッドの使用例(2 つの数値の商を計算し、出力パラメーターの剰余を返す)" & vbCrLf
    Dim intResult As Integer
    '　　　　　　　　　　　下記が (10 \ 3) で 　　　　　　下記が (10 Mod 3) に該当
    TextBox1.Text &= String.Format("Math.DivRem(10, 3, intResult) = {0}　 intResult= {1}", Math.DivRem(10, 3, intResult), intResult)
    Console.WriteLine("Math.DivRem(10, 3, intResult) = {0}　 intResult= {1}", Math.DivRem(10, 3, intResult), intResult)
End Sub

上記実行結果
10．DivRem メソッドの使用例(2 つの数値の商を計算し、出力パラメーターの剰余を返す)
Math.DivRem(10, 3, intResult) = 3　 intResult= 1
このページのトップへ移動します。 11．Exp メソッドの使用例(指定した値で e を累乗した値を返す)
Math.Exp メソッド　[名前空間: System]
指定した値で e を累乗した値を返します。

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    TextBox1.Text = "11．Exp メソッドの使用例(指定した値で e を累乗した値を返す)" & vbCrLf
    Dim values() As Double = {0, 1, 1.5, 2, 2.5}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Exp({0}) = {1}", value, Math.Exp(value)) & vbCrLf
        Console.WriteLine("Math.Exp({0}) = {1}", value, Math.Exp(value))
    Next
End Sub

上記実行結果
11．Exp メソッドの使用例(指定した値で e を累乗した値を返す)
Math.Exp(0) = 1
Math.Exp(1) = 2.71828182845905
Math.Exp(1.5) = 4.48168907033806
Math.Exp(2) = 7.38905609893065
Math.Exp(2.5) = 12.1824939607035
このページのトップへ移動します。 12．Floor メソッドの使用例(指定した数以下の数のうち、最大の整数を返す)
Math.Floor メソッド　[名前空間: System]
指定した数以下の数のうち、最大の整数を返します。　Math.Ceiling メソッドの使用例参照

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
    TextBox1.Text = "12．Floor メソッドの使用例(指定した数以下の数のうち、最大の整数を返す)" & vbCrLf
    Dim values() As Double = {7.03, 7.64, 0.12, -0.12, -7.1, -7.6}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Floor({0}) = {1}", value, Math.Floor(value)) & vbCrLf
        Console.WriteLine("Math.Floor({0}) = {1}", value, Math.Floor(value))
    Next
End Sub

上記実行結果
12．Floor メソッドの使用例(指定した数以下の数のうち、最大の整数を返す)
Math.Floor(7.03) = 7
Math.Floor(7.64) = 7
Math.Floor(0.12) = 0
Math.Floor(-0.12) = -1
Math.Floor(-7.1) = -8
Math.Floor(-7.6) = -8
このページのトップへ移動します。 13．IEEERemainder メソッドの使用例(指定した数を別の指定数で除算した結果の剰余を返す)
Math.IEEERemainder メソッド　[名前空間: System]
指定した数を別の指定数で除算した結果の剰余を返します。(VB6.0 の 　10 Mod 3　と同じです。)
　　Math.DivRem メソッドの使用例参照
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
    TextBox1.Text = "13．IEEERemainder メソッドの使用例(指定した数を別の指定数で除算した結果の剰余を返す)" & vbCrLf
    TextBox1.Text &= String.Format("Math.IEEERemainder(10, 3) = {0}", Math.IEEERemainder(10, 3))
    Console.WriteLine("Math.IEEERemainder(10, 3) = {0}", Math.IEEERemainder(10, 3))
End Sub

上記実行結果
13．IEEERemainder メソッドの使用例(指定した数を別の指定数で除算した結果の剰余を返す)
Math.IEEERemainder(10, 3) = 1
このページのトップへ移動します。 14．Log メソッドの使用例(指定した数の対数を返します)
Math.Log メソッド　[名前空間: System]
指定した数の対数を返します。

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
    TextBox1.Text = "14．Log メソッドの使用例(指定した数の対数を返します)" & vbCrLf
    TextBox1.Text &= String.Format("Math.Log(1000) = {0}", Math.Log(1000)) & vbCrLf
    TextBox1.Text &= String.Format("Math.Log(1000,10) = {0}", Math.Log(1000, 10)) & vbCrLf
    TextBox1.Text &= String.Format("Math.Log(1024, 2) = {0}", Math.Log(1024, 2)) & vbCrLf

    Console.WriteLine("Math.Log(1000) = {0}", Math.Log(1000))
    Console.WriteLine("Math.Log(1000,10) = {0}", Math.Log(1000, 10))
    Console.WriteLine("Math.Log(1024, 2) = {0}", Math.Log(1024, 2))
End Sub

上記実行結果
14．Log メソッドの使用例(指定した数の対数を返します)
Math.Log(1000) = 6.90775527898214
Math.Log(1000,10) = 3
Math.Log(1024, 2) = 10
このページのトップへ移動します。 15．Log10 メソッドの使用例(指定した数の底 10 の対数を返す)
Math.Log10 メソッド　[名前空間: System]
指定した数の底 10 の対数を返します。

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
    TextBox1.Text = "15．Log10 メソッドの使用例(指定した数の底 10 の対数を返す)" & vbCrLf
    TextBox1.Text &= String.Format("Math.Log10(1000) = {0}", Math.Log10(1000)) & vbCrLf
    TextBox1.Text &= String.Format("Math.Log10(1024) = {0}", Math.Log10(1024)) & vbCrLf

    Console.WriteLine("Math.Log10(1000) = {0}", Math.Log10(1000))
    Console.WriteLine("Math.Log10(1024) = {0}", Math.Log10(1024))
End Sub

上記実行結果
15．Log10 メソッドの使用例(指定した数の底 10 の対数を返す)
Math.Log10(1000) = 3
Math.Log10(1024) = 3.01029995663981
このページのトップへ移動します。 16．Max メソッドの使用例(指定された 2 つの数のうち、大きい方を返す)
Math.Max メソッド　[名前空間: System]
指定された 2 つの数のうち、大きい方を返します。

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
    TextBox1.Text = "16．Max メソッドの使用例(指定された 2 つの数のうち、大きい方を返す)" & vbCrLf
    TextBox1.Text &= String.Format("Math.Max(123, 456) = {0}", Math.Max(123, 456))
    Console.WriteLine("Math.Max(123, 456) = {0}", Math.Max(123, 456))
End Sub

上記実行結果
16．Max メソッドの使用例(指定された 2 つの数のうち、大きい方を返す)
Math.Max(123, 456) = 456
このページのトップへ移動します。 17．Min メソッドの使用例(2 つの数のうち、小さい方を返す)
Math.Min メソッド　[名前空間: System]
2 つの数のうち、小さい方を返します。

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
    TextBox1.Text = "17．Min メソッドの使用例(2 つの数のうち、小さい方を返す)" & vbCrLf
    TextBox1.Text &= String.Format("Math.Min(123, 456) = {0}", Math.Min(123, 456))
    Console.WriteLine("Math.Min(123, 456) = {0}", Math.Min(123, 456))
End Sub

上記実行結果
17．Min メソッドの使用例(2 つの数のうち、小さい方を返す)
Math.Min(123, 456) = 123
このページのトップへ移動します。 18．Pow メソッドの使用例(指定の数値を指定した値で累乗した値を返す)
Math.Pow メソッド　[名前空間: System]
指定の数値を指定した値で累乗した値を返します。

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
    TextBox1.Text = "18．Pow メソッドの使用例(指定の数値を指定した値で累乗した値を返す)" & vbCrLf
    TextBox1.Text &= String.Format("Math.Pow(2, 10) = {0}", Math.Pow(2, 10))
    Console.WriteLine("Math.Pow(2, 10) = {0}", Math.Pow(2, 10))
End Sub

上記実行結果
18．Pow メソッドの使用例(指定の数値を指定した値で累乗した値を返す)
Math.Pow(2, 10) = 1024
このページのトップへ移動します。 19．Round メソッドの使用例(最も近い整数または指定した小数点数に値を丸める)
Math.Round メソッド　[名前空間: System]
最も近い整数または指定した小数点数に値を丸めます。

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
    TextBox1.Text = "19．Round メソッドの使用例(最も近い整数または指定した小数点数に値を丸める)" & vbCrLf
    Dim values() As Double = {4.4, 4.5, 4.6, 5.4, 5.5, 5.6}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Round({0}) = {1}", value, Math.Round(value)) & vbCrLf
        Console.WriteLine("Math.Round({0}) = {1}", value, Math.Round(value))
    Next
End Sub

上記実行結果
19．Round メソッドの使用例(最も近い整数または指定した小数点数に値を丸める)
Math.Round(4.4) = 4
Math.Round(4.5) = 4
Math.Round(4.6) = 5
Math.Round(5.4) = 5
Math.Round(5.5) = 6
Math.Round(5.6) = 6
このページのトップへ移動します。 20．Sign メソッドの使用例(数値の符号を示す値を返す)
Math.Sign メソッド　[名前空間: System]
数値の符号を示す値を返します。

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
    TextBox1.Text = "20．Sign メソッドの使用例(数値の符号を示す値を返す)" & vbCrLf
    Dim values() As Double = {-2.5, -1, 0, 1, 2.5, 10}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Sign({0}) = {1}", value, Math.Sign(value)) & vbCrLf
        Console.WriteLine("Math.Sign({0}) = {1}", value, Math.Sign(value))
    Next
End Sub

上記実行結果
20．Sign メソッドの使用例(数値の符号を示す値を返す)
Math.Sign(-2.5) = -1
Math.Sign(-1) = -1
Math.Sign(0) = 0
Math.Sign(1) = 1
Math.Sign(2.5) = 1
Math.Sign(10) = 1
このページのトップへ移動します。 21．Sin メソッドの使用例(指定された角度のサインを返す)
Math.Sin メソッド　[名前空間: System]
指定された角度のサインを返します。
　構文　指定された角度のサイン = Math.Sin(ラジアンで計測した角度)

Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
    TextBox1.Text = "21．Sin メソッドの使用例(指定された角度のサインを返す)" & vbCrLf
    Dim values() As Double = {0, 15, 30, 45, 90, 180}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Sin({0} * Math.PI / 180) = {1}", value, Math.Sin(value * Math.PI / 180)) & vbCrLf
        Console.WriteLine("Math.Sin({0} * Math.PI / 180) = {1}", value, Math.Sin(value * Math.PI / 180))
    Next
End Sub

上記実行結果
21．Sin メソッドの使用例(指定された角度のサインを返す)
Math.Sin(0 * Math.PI / 180) = 0
Math.Sin(15 * Math.PI / 180) = 0.258819045102521
Math.Sin(30 * Math.PI / 180) = 0.5
Math.Sin(45 * Math.PI / 180) = 0.707106781186547
Math.Sin(90 * Math.PI / 180) = 1
Math.Sin(180 * Math.PI / 180) = 1.22460635382238E-16
このページのトップへ移動します。 22．Sinh メソッドの使用例(指定された角度のハイパーボリックサインを返す)
Math.Sinh メソッド　[名前空間: System]
指定された角度のハイパーボリックサインを返します。
　構文 指定された角度のハイパーボリックサイン = Math.Sinh(ラジアンで計測した角度)

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
    TextBox1.Text = "22．Sinh メソッドの使用例(指定された角度のハイパーボリックサインを返す)" & vbCrLf
    Dim values() As Double = {0, 15, 30, 45, 90, 180}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Sinh({0} * Math.PI / 180) = {1}", value, Math.Sinh(value * Math.PI / 180)) & vbCrLf
        Console.WriteLine("Math.Sinh({0} * Math.PI / 180) = {1}", value, Math.Sinh(value * Math.PI / 180))
    Next
End Sub

上記実行結果
22．Sinh メソッドの使用例(指定された角度のハイパーボリックサインを返す)
Math.Sinh(0 * Math.PI / 180) = 0
Math.Sinh(15 * Math.PI / 180) = 0.264800227602271
Math.Sinh(30 * Math.PI / 180) = 0.54785347388804
Math.Sinh(45 * Math.PI / 180) = 0.86867096148601
Math.Sinh(90 * Math.PI / 180) = 2.30129890230729
Math.Sinh(180 * Math.PI / 180) = 11.5487393572577
このページのトップへ移動します。 23．Sqrt メソッドの使用例(指定された数値の平方根を返す)
Math.Sqrt メソッド　[名前空間: System]
指定された数値の平方根を返します。
　構文　指定された数値の平方根 = Math.Sqrt(数値)

Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
    TextBox1.Text = "23．Sqrt メソッドの使用例(指定された数値の平方根を返す)" & vbCrLf
    Dim values() As Double = {0, 1, 2, 3, 4, 5}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Sqrt({0}) = {1}", value, Math.Sqrt(value)) & vbCrLf
        Console.WriteLine("Math.Sqrt({0}) = {1}", value, Math.Sqrt(value))
    Next
End Sub

上記実行結果
23．Sqrt メソッドの使用例(指定された数値の平方根を返す)
Math.Sqrt(0) = 0
Math.Sqrt(1) = 1
Math.Sqrt(2) = 1.4142135623731
Math.Sqrt(3) = 1.73205080756888
Math.Sqrt(4) = 2
Math.Sqrt(5) = 2.23606797749979
このページのトップへ移動します。 24．Tan メソッドの使用例(指定された角度のタンジェントを返す)
Math.Tan メソッド　[名前空間: System]
指定された角度のタンジェントを返します。
　構文　指定された角度のタンジェント = Math.Tan(ラジアンで計測した角度)

Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
    TextBox1.Text = "24．Tan メソッドの使用例(指定された角度のタンジェントを返す)" & vbCrLf
    Dim values() As Double = {0, 15, 30, 45, 90, 180}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Tan({0} * Math.PI / 180) = {1}", value, Math.Tan(value * Math.PI / 180)) & vbCrLf
        Console.WriteLine("Math.Tan({0} * Math.PI / 180) = {1}", value, Math.Tan(value * Math.PI / 180))
    Next
End Sub

上記実行結果
24．Tan メソッドの使用例(指定された角度のタンジェントを返す)
Math.Tan(0 * Math.PI / 180) = 0
Math.Tan(15 * Math.PI / 180) = 0.267949192431123
Math.Tan(30 * Math.PI / 180) = 0.577350269189626
Math.Tan(45 * Math.PI / 180) = 1
Math.Tan(90 * Math.PI / 180) = 1.63317787283838E+16
Math.Tan(180 * Math.PI / 180) = -1.22460635382238E-16
このページのトップへ移動します。 25．Tanh メソッドの使用例(指定された角度のハイパーボリックタンジェントを返す)
Math.Tanh メソッド　[名前空間: System]
指定された角度のハイパーボリックタンジェントを返します。
　構文 指定された角度のハイパーボリックタンジェント = Math.Tanh(ラジアンで計測した角度)

Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
    TextBox1.Text = "25．Tanh メソッドの使用例(指定された角度のハイパーボリックタンジェントを返す)" & vbCrLf
    Dim values() As Double = {0, 15, 30, 45, 90, 180}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Tanh({0} * Math.PI / 180) = {1}", value, Math.Tanh(value * Math.PI / 180)) & vbCrLf
        Console.WriteLine("Math.Tanh({0} * Math.PI / 180) = {1}", value, Math.Tanh(value * Math.PI / 180))
    Next
End Sub

上記実行結果
25．Tanh メソッドの使用例(指定された角度のハイパーボリックタンジェントを返す)
Math.Tanh(0 * Math.PI / 180) = 0
Math.Tanh(15 * Math.PI / 180) = 0.255977789245685
Math.Tanh(30 * Math.PI / 180) = 0.480472778156452
Math.Tanh(45 * Math.PI / 180) = 0.655794202632672
Math.Tanh(90 * Math.PI / 180) = 0.917152335667274
Math.Tanh(180 * Math.PI / 180) = 0.99627207622075
このページのトップへ移動します。 26．Truncate メソッドの使用例(数値の整数部を計算す)
Math.Truncate メソッド　[名前空間: System]
数値の整数部を計算します。
　構文　数値の整数部 = Math.Truncate(切り捨て対象の数値)

Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
    TextBox1.Text = "26．Truncate メソッドの使用例(数値の整数部を計算する)" & vbCrLf
    Dim values() As Double = {-5.5, -1, 0, 1, 5.5}
    For Each value As Double In values
        TextBox1.Text &= String.Format("Math.Truncate({0}) = {1}", value, Math.Truncate(value)) & vbCrLf
        Console.WriteLine("Math.Truncate({0}) = {1}", value, Math.Truncate(value))
    Next
End Sub

上記実行結果
26．Truncate メソッドの使用例(数値の整数部を計算する)
Math.Truncate(-5.5) = -5
Math.Truncate(-1) = -1
Math.Truncate(0) = 0
Math.Truncate(1) = 1
Math.Truncate(5.5) = 5
このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。