vb程序365转换叁陆伍
请求帮助 初学者多多关照感激不尽谢谢
直接用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
我觉得可以不过应该双循环做会更好
我们老师有点刁 这样做给他看他肯定会把365改成3650的
请求帮助 初学者多多关照感激不尽谢谢
直接用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
我觉得可以不过应该双循环做会更好
我们老师有点刁 这样做给他看他肯定会把365改成3650的