一道电脑算法题（用vb做）

问题描述：

一道电脑算法题（用vb做）
有一只蜗牛,每天白天能爬行60cm,他最初在井底,井深5m,他晚上会向下滑,滑落的距离为0-1之内的一个随机小数*100cm,输出用多少天他会爬到井口或失败

1个回答分类：数学 2014-10-13

问题解答：

我来补答

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

展开全文阅读

上一页：求补英语

下一页：化学计算在实验中的应用