编写程序实现：设有1m长的绳子,每次剪掉一半,问至少要剪多少次,绳子的长度等于

Question

编写程序实现：设有1m长的绳子,每次剪掉一半,问至少要剪多少次,绳子的长度等于

Answer 1

Private Sub Form_Click()
l = 1
num = 0
Do While l >= 0.00001 ‘在这里修改为你需要的值
l = l / 2
num = num + 1
Loop
Print num
End Sub