Here is a sample program that will ask the user to give a number and then it will be converted into roman numeral value using Visual Basic 6.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Public Function ConvertRoman(ByVal n As Integer) As String
If n = 0 Then FormatRoman = "0": Exit Function
Const r = "IVXLCDM"
Dim i As Integer: i = Abs(n)
Dim s As String, p As Integer
For p = 1 To 5 Step 2
Dim d As Integer: d = i Mod 10: i = i \ 10
Select Case d
Case 0 To 3: s = String(d, Mid(r, p, 1)) & s
Case 4: s = Mid(r, p, 2) & s
Case 5 To 8: s = Mid(r, p + 1, 1) & String(d - 5, Mid(r, p, 1)) & s
Case 9: s = Mid(r, p, 1) & Mid(r, p + 2, 1) & s
End Select
Next
s = String(i, "M") & s
If n < 0 Then s = "-" & s
ConvertRoman = s
End Function
Private Sub Command1_Click()
Label2.Caption = "The equivalent value of " & Text1.Text & " is " & ConvertRoman(Text1.Text) & "."
End Sub
Private Sub Command2_Click()
End
End Sub
