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