一道电脑算法题（用vb做）
问题描述：
一道电脑算法题（用vb做）
有一只蜗牛,每天白天能爬行60cm,他最初在井底,井深5m,他晚上会向下滑,滑落的距离为0-1之内的一个随机小数*100cm,输出用多少天他会爬到井口或失败
答
Private Sub Command1_Click()
Dim x#, i%
Randomize Time
x = 60: i = 1
Do While x x = x - Rnd() * 100
If x x = x + 60: i = i + 1
Loop
Print x, i
End Sub