编写程序实现：设有1m长的绳子,每次剪掉一半,问至少要剪多少次,绳子的长度等于
问题描述：
编写程序实现：设有1m长的绳子,每次剪掉一半,问至少要剪多少次,绳子的长度等于
答
Private Sub Form_Click()
l = 1
num = 0
Do While l >= 0.00001 ‘在这里修改为你需要的值
l = l / 2
num = num + 1
Loop
Print num
End Sub要用for来做，麻烦帮我再弄下一定要用for?l=1for i=1 to 1000l=l/2if l