哪位高手可以帮忙用vb写一个阿拉伯数字转换成罗马数字的函数啊,谢谢

谁能帮忙用vb写一个阿拉伯数字转换成罗马数字的函数, 谢谢。比如传过来的数是1,给转换成I,传的数字是2,给转换成II

vb

2个回答

可以这样:

Public Function ToRomanNumeral(ByVal input As Integer) As String

    If (input < 1 OrElse input > 999) Then
        Throw New ArgumentOutOfRangeException("input", "Cannot convert integers outside of the range 1-999")
    End If

    Dim indices() As Integer = {1, 2, 3, 4, 5, 10, 50, 100, 500, 1000}
    Dim romanNumerals() As String = {"I", "II", "III", "IV", "V", "X", "L", "C", "D", "M"}
    Dim output As String = String.Empty

    While input > 0

        Dim i As Integer = 0
        While indices(i) <= input
            i += 1
        End While
        If i > 0 Then
            i -= 1
        End If
        output = output & romanNumerals(i)
        input = input - indices(i)

    End While

    Return output
End Function

如果对您有帮助,请采纳答案好吗,谢谢!

你把 数字定义一个 数组 var a = {1,2,3,4,。。。}

再把 罗马数字 定义一个 数组 var b ={“1”:“I”,“2”“II”,。。}

用两套循环 不就行了

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐