vb 编程:设M和N是正整数,输入M,求当2的N次方大于等于M时,N的最小值

2025-05-21 11:08:39
推荐回答(1个)
回答1:

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