'8天Private Sub Command1_Click()i = 1020j = 0Do While i > 0j = j + 1i = i / 2 - 2LoopMsgBox "用了" & j & "天!"End Sub