谁会VB的？？帮忙来看下这题目该如何解答

Question

1.[b]一个周长为90 cm 的圆，3点把圆周等分，3只蜗牛分别放在3点上，它们同时沿圆周顺时针爬行，爬行速度为：A父蜗牛：10cm / min ; B母蜗牛： 5cm / min ;C小蜗牛： 3cm / min ; 问它们一家多少分钟后第一次相会，多少分钟后第二次相会？

Answer 1

这个和最初摆放位置也有关系
ABC 最快会合
ACB 就慢点

Answer 2

上面错了
假设abc 
则(10X+60) mod 90=(5X+30) mod 90=3X mod 90
X=60 90 假设acb
则(10X+60) mod 90=(3X+30) mod 90=5X mod 90
X=18 36 

Answer 3

'每点击一次依次得出每次相遇的时刻
Private Sub Command1_Click()
    Static t1 As Long, t2 As Long
    Dim d1 As Long, d2 As Long, d3 As Long
    
    Do
        t1 = t1 + 1
        '以下三条的10、5、3可以互换位置，结果会不同
        d1 = (10 * t1) Mod 90
        d2 = (5 * t1 - 30) Mod 90
        d3 = (3 * t1 + 30) Mod 90
        
        If d1 = d2 And d1 = d3 Then
            MsgBox t1
            Exit Do
        End If
    Loop
End Sub

Answer 4

老师：谁会打DOTA？
全班举手
老师：帮我把窗户擦一下！

Answer 5

' 窗口界面设计：
'     一个标签    选择三只蜗牛的初始顺序：
' 二个单选按钮    ◎ Option1     ○ Option2
' 一个命令按钮        开始输出
' Option1 ---→ 顺时针
' Option2 ---→ 逆时针
' Option1 为默认选中
Option ExplicitPrivate Sub Command1_Click()
   Const TXTTPL  As String = "第 N 次相遇，经历时 T 分钟。"
   Dim lStepA&, lStepB&, lStepC&
   Dim lDistA&, lDistB&, lDistC&
   Dim i&, lCount&, lRltNum&
   lStepA = 10
   lStepB = 5
   lStepC = 3
   lDistA = 0
   If (Option1.Value) Then
      lDistB = 30
      lDistC = 60
   Else
      lDistB = 60
      lDistC = 30
   End If
   i = 0
   lRltNum = 100     '输出多少个结果
   Do
      i = i + 1
      lDistA = (lDistA + lStepA) Mod 90
      lDistB = (lDistB + lStepB) Mod 90
      lDistC = (lDistC + lStepC) Mod 90
      If ((lDistA = lDistB) And (lDistB = lDistC)) Then
         lCount = lCount + 1
         Debug.Print Replace(Replace(TXTTPL, "N", lCount), "T", i)
         If (lCount = lRltNum) Then Exit Do
      End If
   Loop
End Sub