VB的一个循环控制的例题

乌龟第一秒爬了1米。第二秒爬了1/2米。第三秒爬了1/3米。第四秒爬了1/4米。如此等等。问这只乌龟1小时能爬多远？爬20米需要多长时间
假设i表示秒数。dist表示乌龟爬行的距离。找出规律。分析循环控制条件分别是i<60*60 和dist<20
分析循环控制条件分别是i<60*60 和dist<20\

Private Sub Command1_Click()
For i = 1 To 60
dist = dist + 1 / i
Next i
Print dist
End Sub

Private Sub Command2_Click()
Do While dist < 10
i = i + 1
dist = dist + 1 / i
Loop
Print i
End Sub

Option Explicit

Private Sub Command1_Click()

'乌龟第一秒爬了1米。第二秒爬了1/2米。第三秒爬了1/3米。第四秒爬了1/4米。如此等等。问这只乌龟1小时能爬多远？爬20米需要多长时间
'假设i表示秒数。dist表示乌龟爬行的距离。找出规律。分析循环控制条件分别是i<60*60 和dist<20
'分析循环控制条件分别是i<60*60 和dist<20\

Dim i As Long
Dim dist As Double
Do While i < 60 * 60
dist = dist + 1 / (i + 1)
i = i + 1
Loop

Print "一小时 " & dist

dist = 0
i = 1
Do While dist < 20
dist = dist + 1 / i
i = i + 1

' If i > 100000000 Then
' Print "爬不到了,累死了"
' Print "100000000 s 爬了" & dist
' Exit Sub