大师作文网一道电脑算法题（用vb做）
来源：学生作业帮 编辑：大师作文网作业帮 分类：数学作业 时间：2024/11/10 14:42:08
一道电脑算法题（用vb做）
有一只蜗牛,每天白天能爬行60cm,他最初在井底,井深5m,他晚上会向下滑,滑落的距离为0-1之内的一个随机小数*100cm,输出用多少天他会爬到井口或失败
有一只蜗牛,每天白天能爬行60cm,他最初在井底,井深5m,他晚上会向下滑,滑落的距离为0-1之内的一个随机小数*100cm,输出用多少天他会爬到井口或失败
Private Sub Command1_Click()
Dim x#, i%
Randomize Time
x = 60: i = 1
Do While x < 500
x = x - Rnd() * 100
If x < 0 Then x = 0 ': Exit Do'如果这样算失败!
x = x + 60: i = i + 1
Loop
Print x, i
End Su
Dim x#, i%
Randomize Time
x = 60: i = 1
Do While x < 500
x = x - Rnd() * 100
If x < 0 Then x = 0 ': Exit Do'如果这样算失败!
x = x + 60: i = i + 1
Loop
Print x, i
End Su