主题：字符型转大写

参考代码

dim str as string = "12月”
Dim months() As String = {"一","", "", "", "", "", "七", "八", "", "十", "十一", "十二"}
str = months(str.replace("月", "")-1) & "月"

msgbox(str)