答案 0 :(得分:0)
无论如何我得到了答案。
Dim UnicodeSuperscriptConversion As New Dictionary(Of String, String) From
{
{"0", ChrW(&H2070)},
{"1", ChrW(&HB9)},
{"2", ChrW(&HB2)},
{"3", ChrW(&HB3)},
{"4", ChrW(&H2074)},
{"5", ChrW(&H2075)},
{"6", ChrW(&H2076)},
{"7", ChrW(&H2077)},
{"8", ChrW(&H2078)},
{"9", ChrW(&H2079)},
{".", ChrW(&HB7)},
{"-", ChrW(&H207B)}
}
Dim newString As String = ""
newString += UnicodeSuperscriptConversion(3) '3 for cube.