Преобразование натуральных чисел, записанных в римской нумерации, в десятичную систему счисления - 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

Оцени полезность:

7   голосов , оценка 3.429 из 5
Похожие ответы