整数转罗马数字

GeoGebra 命令及参数

1. Text(If[v ≟ 0, "", If[v ≟ 1, "I", If[v ≟ 2, "II", If[v ≟ 3, "III", If[v ≟ 4, "IV", If[v ≟ 5, "V", If[v ≟ 6, "VI", If[v ≟ 7, "VII", If[v ≟ 8, "VIII", "IX"]]]]]]]]]) → text3
2. Text(If[t ≟ 0, "", If[t ≟ 1, "X", If[t ≟ 2, "XX", If[t ≟ 3, "XXX", If[t ≟ 4, "XL", If[t ≟ 5, "L", If[t ≟ 6, "LX", If[t ≟ 7, "LXX", If[t ≟ 8, "LXXX", "XC"]]]]]]]]]) → text4
3. Text(If[h ≟ 0, "", If[h ≟ 1, "C", If[h ≟ 2, "CC", If[h ≟ 3, "CCC", If[h ≟ 4, "CD", If[h ≟ 5, "D", If[h ≟ 6, "DC", If[h ≟ 7, "DCC", If[h ≟ 8, "DCCC", If[h ≟ 9, "CM", "M"]]]]]]]]]]) → text5
4. Textfield(textAns) → InputBox1