哪位高手会VB的？帮忙来看下这题目该怎么解答

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



[解决办法]

VB code

' 窗口界面设计：'     一个标签    选择三只蜗牛的初始顺序：' 二个单选按钮    ◎ 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   LoopEnd Sub