我试着写了一下,
结果差不多.不过,我优化了代码.与你的结果差不多.
优化的过程就是,
角度单位使用格.每格相当于 6度来计算.
Private Sub Command1_Click()
Cls
Dim x As Long, y As Long, z As Long
Dim i As Single, j As Single, k As Single
Dim s As Long
'角度单位是格, 每格为 6 度 。 一圈是 60 格,360度
For s = 0 To 1
'0 上午,1 下午
For x = 0 To 59 Step 5
'小时,每小时走 5 格
For y = 0 To 59
'分,每分走 1 格
For z = 0 To 59
'秒,每秒走1格,不计算小数秒
k = z
j = y + k / 60
'计算分钟位置
i = x + j / 60
'计算时针位置
'误差 0.1 格,相当于 0.6度
If Abs(i - j) < 0.1 Then
If Abs(k - j) < 0.1 Then
Print 12 * s + x / 5, y, z
End If
End If
Next z
Next y
Next x
Next s
End Sub