哪位高手会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 Explicit

Private 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

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

相关推荐