高手进,难题??????????????????????????????????????????

来源：百度知道 编辑：UC知道 时间：2024/06/22 12:22:16
用VB编个程序，算这道题
把时钟某一刻的时针和分针调换位置，仍显示的是正确的时间，请为这个时刻是几点，把所有答案都算出来

Private Sub Command1_Click()
Dim i As Long '时针
Dim j As Long '分针

For i = 0 To 11
For j = 0 To 59
If i / 12 * 360 = j / 60 * 360 Then
'此时时针分针相同
Debug.Print i & ":" & j
End If
Next
Next

End Sub

本时针为数字钟表^^ 非模拟钟表^^ 想改成模拟钟表请修改部分算法

模拟时钟如下

Private Sub Command1_Click()
Dim i As Long '时针
Dim j As Long '分针

For i = 0 To 11
For j = 0 To 59
If i / 12 * 360 + j = j / 60 * 360 Then
'此时时针分针相同
Debug.Print i & ":" & j
End If
Next
Next

End Sub

只可能出现在时针和分针重合的时候
也就,时针以每12小时1圈的速度绕着表框跑,分针以每小时1圈的速度跑,假设从00:00开始赛跑,赛跑时间为12小时(超过的都是重复)
时针只跑1圈
分针跑了12圈
一圈内不可能有两次重复
.....
0:00~1:00间在0:00时候重合一次
1:00~2:00间在1:05时候重合一次
2:00~3:00间在2:10时候重合一次