三角函数问题！

sin怎么不计算？Double一开始是0，所以sin会是0

Private Sub Text6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text6.Text = ""
End Sub
Private Sub Text7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text7.Text = ""
End Sub
Private Sub Text8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text8.Text = ""
End Sub
'定义三角函数
Function sin(number As Double) As Double
End Function
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
a = Val(Text6) + Val(Text7) / 60 + Val(Text8) / 3600
Text13 = sin(a)
Text13 = Format(Text13, "0.00")
End Sub
确实算不对，结果都是0

你定义的sin函数过程，什么运算也没有，结果当然是0了，这个0是double型

回复：4楼
该怎么定义才对？

VB自带sin函数， 你去掉function sin 试试。
如果你想自己写个sin函数，就在这个function里写上运算的代码，

原来sin函数不用再定义了啊，知道了，3Q

别高兴太早 VB的SIN函数用的是弧度

回复：8楼
谢谢提醒，早有准备，软件已经做成功了，感谢大家帮助，呵呵