Перевод арабских чисел в римские и обратно - VB

Формулировка задачи:

Составить программу для перевода арабских чисел в римские и для обратного перевода. Например 255 = CCLV Даже начать с чего не знаю ...

Решение задачи: «Перевод арабских чисел в римские и обратно»

textual
                            Листинг программы 
                        

                            Function NumToRom(iNum As Integer) As String
'Г”ГіГ*ГЄГ¶ГЁГї ГўГ®Г§ГўГ°Г*Г№Г*ГҐГІ Г·ГЁГ±Г«Г® Гў ГўГЁГ¤ГҐ Г°ГЁГ¬Г±ГЄГЁГµ Г¶ГЁГґГ°
'Г„Г«Гї Г§Г*ГЇГЁГ±ГЁ Г¶ГҐГ«Г»Гµ Г·ГЁГ±ГҐГ« Гў Г°ГЁГ¬Г±ГЄГ®Г© Г*ГіГ¬ГҐГ°Г*Г¶ГЁГЁ ГЁГ±ГЇГ®Г«ГјГ§ГіГѕГІГ±Гї Г±ГҐГ¬Гј Г®Г±Г*Г®ГўГ*Г»Гµ Г·ГЁГ±ГҐГ«:
'i = 1
'V = 5
'X = 10
'L = 50
'C = 100
'D = 500
'M = 1000
'ГЏГ°ГЁ ГЅГІГ®Г¬ Г*ГҐГЄГ®ГІГ®Г°Г»ГҐ ГЁГ§ Г¶ГЁГґГ° (I, X, C, M) Г¬Г®ГЈГіГІ ГЇГ®ГўГІГ®Г°ГїГІГјГ±Гї, Г*Г® Г*ГҐ ГЎГ®Г«ГҐГҐ ГІГ°ГҐГµ Г°Г*Г§, ГІГ*ГЄГЁГ¬ Г®ГЎГ°Г*Г§Г®Г¬ Г± ГЁГµ ГЇГ®Г¬Г®Г№ГјГѕ Г¬Г®Г¦Г*Г® Г§Г*ГЇГЁГ±Г*ГІГј Г«ГѕГЎГ®ГҐ Г¶ГҐГ«Г®ГҐ Г·ГЁГ±Г«Г® Г*ГҐ ГЎГ®Г«ГҐГҐ 3999 (MMMCMXCIX)
If iNum = 0 Or iNum > 3999 Then NumToRom = "OVF": Exit Function
Dim arrRom, arrWeight, iTmp As Integer, kNum As Integer, i As Integer, sStr As String
arrRom = Array("M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I")
arrWeight = Array(1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1)
Do
    iTmp = Len(CStr(iNum)) - 1
    kNum = iNum Mod 10 ^ iTmp
    iNum = iNum - kNum
    While iNum > 0
        If arrWeight(i) <= iNum Then
            sStr = sStr & arrRom(i)
            iNum = iNum - arrWeight(i)
            i = i - 1
        End If
        i = i + 1
    Wend
    iNum = kNum
Loop While iNum > 0
NumToRom = sStr
End Function
                        