taniatt

No te preocupes la posibilidad de un embarazo en esas circunstancias es muy baja

Son muy caros pero te recomiendo ponerte un implante implanon que va colocado en el brazo y te garantiza 5 años de protección

Carlo Navarro Rojas respondió: Prueba con esto: Option Explicit Dim a!, b!, x!, y!, aux!, r!, mcd! Private Sub cmdejecutar_Click() a = InputBox("Dame el valor de Dividendo") b = InputBox("Dame el valor de Divisor") x = a y = b If a > b Then aux = a a = b b = aux End If r = b Mod a...

Carlo Navarro Rojas respondió: A todas las variables que le ingreses números debes declararlas como LONG o entero largo, para que no sufras por el error 6 overflow o desbordamiento, la manera que debes hacerlo es la siguiente, esto debes tipearlo arriba, fuera de los controles,...

Roberto Alvarado respondió: El tipo de variable o dato que usas es muy pequeño para el numero que resulta de la operación que realizas, por ejemplo usas un entero y solo soporta hasta hasta 32000 el resultado de tu operación es mayor a ese numero, de alliq ue cuando quieres...

Roberto Alvarado respondió: Private Sub cmdcalcular_Click() termino = Int(Val(txtterminos.Text)) genera = 1 Do While (genera <= termino) genera = genera + 1 lblpi = ((2 * termino) / ((2 * termino) - 1) * (2 * termino) / ((2 * termino) + 1)) Loop -------------- La linea en...

Roberto Alvarado respondió: En el evento textchanged del control textbox, validas que el carácter que ingresa es un numero. Aquí va un ejemplo: Private Sub f4_KeyPress(KeyAscii As Integer) If (KeyAscii < 48) Or (KeyAscii > 57) Then KeyAscii = 0 MsgBox "Solo se aceptan números",...