vb程序365转换叁陆伍

Question

请求帮助 初学者多多关照感激不尽谢谢

Answer 1

 直接用replace替换就可以
dim s(1 to 10) as string
s(1) = "壹"
s(2) = "贰"
...
dim s1 as string
s1 = 365 & ""
for i = 1 to 10
    s1 = replace(s1, i & "", s(i))
next
msgbox s1