Преобразование натуральных чисел, записанных в римской нумерации, в десятичную систему счисления - VB
Формулировка задачи:
здравствуйте кто знает как это сделать:
Составить программу преобразования натуральных чисел, записанных в римской нумерации, в десятичную систему счисления.подобную программу нашёл только на языке паскаль Преобразование чисел из римской системы в десятичную и обратно может кто знает как этот код переделать?
Решение задачи: «Преобразование натуральных чисел, записанных в римской нумерации, в десятичную систему счисления»
textual
Листинг программы
Function RimToDec(ByVal R As String)
For i = 1 To Len(R)
Select Case UCase(Mid$(R, i, 1))
Case "I": s = 1
Case "V": s = 5
Case "X": s = 10
Case "L": s = 50
Case "C": s = 100
Case "D": s = 500
Case "M": s = 1000
Case Else: RimToDec = " ERROR ": Exit Function
End Select
If p < s Then s = s - p * 2
p = s
RimToDec = RimToDec + s
Next i
End Function
Sub Command1_Click()
MsgBox RimToDec(InputBox("Введите римское число:"))
End Sub