Question

vb 里的SIN函数怎么使用？帮我解释一下下面的代码谢谢

Const pi = 3.1415926
Private Sub Form_Load()
Me.Scale (19, -18)-(-19, 22)
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Height) / 2
Width = Height
End Sub

Private Sub Label5_Click()
Me.Label5.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim x As Integer
Dim y As Integer
Dim a As Integer, b As Integer, C As Integer
a = Second(Time)
b = Minute(Time)
C = Hour(Time)
Me.Cls
Me.DrawWidth = 2
x = 10 * Sin(pi * a * 6 / 180)
y = 10 * Cos(pi * a * 6 / 180)
Me.Line (0, 0)-(x, y), red
Me.DrawWidth = 2
x = 8 * Sin(pi * b * 6 / 180)
y = 8 * Cos(pi * b * 6 / 180)
Me.Line (0, 0)-(x, y), vbBlue
Me.DrawWidth = 2
x = 6 * Sin(pi * C * 6 / 180)
y = 6 * Cos(pi * C * 6 / 180)
Me.Line (0, 0)-(x, y), vbGreen
Circle (0, 0), 15
End Sub
Private Sub Timer2_Timer()
Me.Label5.Caption = Now
End Sub

重点解释这两句
Cos(pi * C * 6 / 180)
Sin(pi * C * 6 / 180)
cos(a) 里面的a不是不能超过90度吗？
如果sin(a*3.145926/180)>sin(90度) 的话是不是违反三角函数定理了？

Answer 1

Cos(pi * C * 6 / 180) 中的 pi是π值，C 是变量，pi * C * 6 / 180 计算出的是弧度数。
Sin(pi * C * 6 / 180) 同上。
Sin(mm) 中的 mm 可以是任何有理数（正无穷大到负无穷大），即可以是一个正的有理数，也可以是一个负的有理数，同样也可以是0，在VB计算时程序就认为 mm 是弧度数，故此，只要 mm 是有理数，那么就可以的。
如果 mm 是角度数，必须转换为弧度数。

追问

比如说上面那副时钟图，它的时分秒针是怎么旋转起来的呢？当旋转到一定角度后为什么x会变成负数呢？？

画线那些不用说了，重点帮我说下x和y是怎么变化的！谢谢

追答

时钟的指针一端是在坐标的原点，另一端的坐标随函数在变化，如你的图形中三个指针重合的点就是原点。在指针在右边时，X的坐标是正值，在左边时，X的坐标是负值，同样在上边Y的坐标是正值，在下边，Y的坐标是负值。
指针旋转当然是根据指针的坐标旋转的，由于指针的一端是固定的，那么另一端肯定是坐标变化了。
至于X、Y是怎么变化的，我感到你应该知道Cos、Sin函数吧（中学就学过）？可能不需要再说这二个函数了吧？