Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: suponga que M y N son números enteros positivos, ingrese M y cuando 2 elevado a la enésima potencia sea mayor o igual que M, encuentre el valor mínimo de N.

Programación VB: suponga que M y N son números enteros positivos, ingrese M y cuando 2 elevado a la enésima potencia sea mayor o igual que M, encuentre el valor mínimo de N.

Private Sub Command1_Click()

Dim m As Long, n As Integer

m = Val(InputBox("Ingrese un número"))

Para n = 1 A m

Si 2 ^ n >= m Entonces

MsgBox "M=" & m & vbCrLf & "Para hacer 2 a la enésima potencia mayor o igual a M, El valor mínimo de N es " & n

Salir para

Finalizar si

Siguiente n

End Sub