GetVariousValuesOfSinAndCosFunctions [2008-05-27-PM-09-03-25]

    Public Function GetVariousValuesOfSinAndCosFunctions() As String
        ' (本段程式之目的) Purpose:
        '     Get various values of sin and cos functions.
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating:  60%
        ' (再利用的可能性) Chances of reuse:  40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 05 27 PM 08 58 50)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim AngleInRadian_角度以弧度為單位 As Double
        Dim AngleInDegree_角度以度數為單位 As Double

        Dim SB As New System.Text.StringBuilder

        For i As Integer = 0 To 180
            AngleInDegree_角度以度數為單位 = i
            '   AngleInRadian_角度以弧度為單位 = AngleInDegree_角度以度數為單位 * (Math.PI / 180)
            AngleInRadian_角度以弧度為單位 = AngleInDegree_角度以度數為單位 * (Math.PI / 180)

            With SB
                .Append("Sin(")
                .Append(AngleInDegree_角度以度數為單位 & "度")
                .Append(")")
                .Append(" = ")
                .Append(Math.Sin(AngleInRadian_角度以弧度為單位))

                .Append(vbTab)

                .Append("Cos(")
                .Append(AngleInDegree_角度以度數為單位 & "度")
                .Append(")")
                .Append(" = ")
                .Append(Math.Cos(AngleInRadian_角度以弧度為單位))
                .Append(vbNewLine)
            End With
        Next

        Return SB.ToString
    End Function ' GetVariousValuesOfSinAndCosFunctions
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -