一道电脑算法题(用vb做)
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/08/09 14:50:27
一道电脑算法题(用vb做)
有一只蜗牛,每天白天能爬行60cm,他最初在井底,井深5m,他晚上会向下滑,滑落的距离为0-1之内的一个随机小数*100cm,输出用多少天他会爬到井口或失败
有一只蜗牛,每天白天能爬行60cm,他最初在井底,井深5m,他晚上会向下滑,滑落的距离为0-1之内的一个随机小数*100cm,输出用多少天他会爬到井口或失败
![一道电脑算法题(用vb做)](/uploads/image/z/4397310-54-0.jpg?t=%E4%B8%80%E9%81%93%E7%94%B5%E8%84%91%E7%AE%97%E6%B3%95%E9%A2%98%EF%BC%88%E7%94%A8vb%E5%81%9A%EF%BC%89)
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