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<0.000001 then exit fornextprint i