在一天的24小时之中,时钟的时针,分针和秒针完全重合在一起的时候有几次?
   请编程解答

版主：这样行吗？

Private Sub Command1_Click()
For z = 0 To 12
For y = 0 To 60     '分针
For x = 0 To 60     '秒针

a = 360 / 60 * x     '秒针度数

'b = 360 / 60 * y + 360 / 3600 * x      '分针度数
'c = 360 / 12 * z + 360 / 720 * y + 360 / 3600 / 12 * x      '时针度数

b = 360 / 60 * y + a / 60    '分针度数
c = 360 / 12 * z + b / 12    '时针度数

If Abs(a - b) < 0.1 Then a = b
If Abs(c - b) < 0.1 Then c = b
If a = b And c = b Then Print z, y, x

Next x
Next y
Next z
End Sub


运行结果：
 0             0             0
 11            59            60

请高手指教

如果把下面两句：

If Abs(a - b) < 0.1 Then a = b
If Abs(c - b) < 0.1 Then c = b

改成：

If Abs(a - b) < 2 Then a = b
If Abs(c - b) < 2 Then c = b



运行结果：

 0             0             0
 2             11            11
 3             16            16
 8             43            44
 9             48            49
 11            59            60

谢谢版主指点。