hola a todos, voy por la tercera semana de ingieneria en computacion e informatica y nos pasaron una tarea donde debemos hacer un programa que pase de numeros a romano, y numeros a letras,llevo una casi 1 semana tratando de hacer el codigo, aqui se los presento, hay cosas que no deverian ir, pero estan porque lo he modificado cientos de veces y no me sale
Private Sub Command1_Click()
End Sub
Private Sub Text1_Change()
Dim num As Double
Dim umil As Double
Dim centena As Double
Dim resto As Double
Dim decena As Double
umil = num / 1000
resto = num Mod 1000
centena = resto / 100
resto = resto Mod 100
decena = resto / 10
unidad = resto Mod 10
Select Case umil
Case 3
umil = 3
MsgBox "MMM"
Case 2
umil = 2
MsgBox "MM"
Case 1
umil = 1
MsgBox "M"
End Select
If num >= 4000 Then
MsgBox "fuera de rango", vbCritical
End If
Select Case centena
Case 9
centena = 9
MsgBox "CM "
Case 8
centena = 8
MsgBox "DCCC"
Case 7
centena = 7
MsgBox "DCC"
Case 6
centena = 6
MsgBox "DC"
Case 5
centena = 5
MsgBox "D"
Case 4
centena = 4
MsgBox "CD"
Case 3
centena = 3
MsgBox "CCC"
Case 2
centena = 2
MsgBox "CC"
Case 1
centena = 1
MsgBox "C"
End Select
Select Case unidad
Case 9
unidad = 9
MsgBox "IX"
Case 8
unidad = 8
MsgBox "VIII"
Case 7
unidad = 7
MsgBox "VII"
Case 6
unidad = 6
MsgBox "VI"
Case 5
unidad = 5
MsgBox "V"
Case 4
unidad = 4
MsgBox "IV"
Case 3
unidad = 3
MsgBox "III"
Case 2
unidad = 2
MsgBox "II"
Case 1
unidad = 1
MsgBox "I"
End Select
End Sub
Private Sub Text2_Change()
Show num
End Sub
espero que puedan ayudarme a sacar adelante este programa, he buscado en la web pero no sale como lo estamos haciendo nosotros.