Revelroom.ca facilita la búsqueda de respuestas a tus preguntas con la ayuda de una comunidad activa. Descubre un vasto conocimiento de profesionales en diferentes disciplinas en nuestra amigable plataforma de preguntas y respuestas. Únete a nuestra plataforma de preguntas y respuestas para conectarte con expertos dedicados a ofrecer respuestas precisas a tus preguntas en diversas áreas.
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
Gracias por usar nuestra plataforma. Siempre estamos aquí para proporcionar respuestas precisas y actualizadas a todas tus preguntas. Gracias por usar nuestro servicio. Siempre estamos aquí para proporcionar respuestas precisas y actualizadas a todas tus preguntas. Gracias por confiar en Revelroom.ca. Vuelve a visitarnos para obtener nuevas respuestas de los expertos.