form1.frm

好用啊

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
   Print MySin(30)
End Sub

 '解法一
 
 Function MySin(sngInput As Single) As Single
    Dim int1 As Integer, intsgn As Integer, int2 As Integer
    Dim lng1 As Long
    Dim sngResult As Single, sng1 As Single, sngInput2 As Single
    sngInput2 = sngInput * 3.1415926 / 180              ' 由度计算弧度
    int1 = 1:  intsgn = 1
    sngResult = 0
    Do
        lng1 = 1                                        ' 计算阶乘
        For int2 = 1 To int1
            lng1 = lng1 * int2
        Next
        sng1 = sngInput2 ^ int1 / lng1                  ' 计算通项的值
        sngResult = sngResult + sng1 * intsgn
        intsgn = -intsgn
        int1 = int1 + 2
    Loop While Abs(sng1) > 0.00001
    MySin = sngResult
End Function

'解法二

'Function MySin(sngInput As Single) As Single
'    Dim int1 As Integer, int2 As Integer
'    Dim sngResult As Single, sng1 As Single, sngInput2 As Single
'    sngInput2 = sngInput * 3.1415926 / 180
'    int1 = 1
'    sngResult = 0
'    sng1 = sngInput2
'    sngResult = sng1
'    Do
'        sng1 = -1 * sng1 * sngInput2 * sngInput2 / (int1 + 1) / (int1 + 2)
'        sngResult = sngResult + sng1
'        int1 = int1 + 2
'    Loop While Abs(sng1) > 0.00001
'    MySin = sngResult
'End Function
'