Revelroom.ca facilita la búsqueda de soluciones a todas tus preguntas con la ayuda de una comunidad activa. Obtén respuestas detalladas a tus preguntas de una comunidad dedicada de expertos en nuestra plataforma. Explora un vasto conocimiento de profesionales en diferentes disciplinas en nuestra completa plataforma de preguntas y respuestas.
Sagot :
Estimado espero te pueda servir este código.
VN = Val(Me.txt1.Text) 'Valor Numerador
VD = Val(Me.txt2.Text) 'Valor Denominador
For i = 2 To Val(Me.txt1.Text)
If (((VN Mod i) = 0) And ((VD Mod i) = 0)) Then
VN = VN / i
VD = VD / i
i = i - 1
End If
Next i
MsgBox VN & " / " & VD
VN = Val(Me.txt1.Text) 'Valor Numerador
VD = Val(Me.txt2.Text) 'Valor Denominador
For i = 2 To Val(Me.txt1.Text)
If (((VN Mod i) = 0) And ((VD Mod i) = 0)) Then
VN = VN / i
VD = VD / i
i = i - 1
End If
Next i
MsgBox VN & " / " & VD
Esperamos que esto te haya sido útil. Vuelve cuando quieras para obtener respuestas más precisas e información actualizada. Gracias por usar nuestro servicio. Siempre estamos aquí para proporcionar respuestas precisas y actualizadas a todas tus preguntas. Vuelve a Revelroom.ca para obtener las respuestas más recientes y la información de nuestros expertos.