Private Sub Command1_Click()Dim m As Long, n As Integerm = Val(InputBox("请输入一个数"))For n = 1 To m If 2 ^ n >= m Then MsgBox "M=" & m & vbCrLf & "要使2的N次方大于等于M时,N的最小值为" & n Exit For End IfNext nEnd Sub希望能解决您的问题。