谁能帮忙用vb写一个阿拉伯数字转换成罗马数字的函数, 谢谢。比如传过来的数是1,给转换成I,传的数字是2,给转换成II
2条回答 默认 最新
- 战在春秋 2017-06-28 06:28关注
可以这样:
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
如果对您有帮助,请采纳答案好吗,谢谢!
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥40 复杂的限制性的商函数处理
- ¥15 程序不包含适用于入口点的静态Main方法
- ¥15 素材场景中光线烘焙后灯光失效
- ¥15 请教一下各位,为什么我这个没有实现模拟点击
- ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来
- ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
- ¥20 有关区间dp的问题求解
- ¥15 多电路系统共用电源的串扰问题
- ¥15 slam rangenet++配置
- ¥15 有没有研究水声通信方面的帮我改俩matlab代码