VB问题！！！希望各位大大帮忙解决下！！！感谢了！！！

[a1119019731]

Option Explicit

Private Sub Command1_Click()
Dim a As Double, b As Double
Dim y As Double
Const Pi As Single = 3.14
Dim i As Double, j As Double
a = Val(InputBox("请输入任意整数a："))
b = Val(InputBox("请输入任意整数b："))
i = Sin((a / 360) * 2 * Pi): j = Cos((b / 360) * 2 * Pi)
If a > 0 And b > 0 Then
y = Log(a) + Log(b)
ElseIf a > 0 And b <= 0 Then
y = Sin((a / 360) * 2 * Pi) + Sin((b / 360) * 2 * Pi)
ElseIf a <= 0 Then
y = Sin((a / 360) * 2 * Pi) + Cos((b / 360) * 2 * Pi)
End If
Print y
End Sub

Private Sub Form_Load()
Command1.Caption = "确定"
End Sub


上面是我的代码，为什么当a<0时，SIN+COS的输出会有问题，按道理应该是0左右，但是VB输出的是6.4左右。希望各位给出解答！！！！

[threenewbee]

VB使用的是弧度，不是角度。
360角度 = 2 * pi 弧度。