lgcmeli
发表于 2008-9-28 12:36
<p>mid函数</p>
lgcmeli
发表于 2008-9-28 12:59
<p>Function dx(s)<br/>dx = VBA.StrReverse(s)<br/>End Function</p><p>Function daoxu(dx)<br/> a = Len(dx)<br/> For i = a To 1 Step -1<br/> b = Mid(dx, i, 1)<br/> daoxu = daoxu & b<br/> Next i<br/>End Function</p><p>以上2个代码都可以。</p>
rujunming
发表于 2008-9-28 13:01
雪中娉婷
发表于 2008-9-28 16:01
<p>学习一下</p>
零时代
发表于 2008-9-28 16:02
summer127
发表于 2008-10-8 10:52
yejizh
发表于 2008-10-29 16:26
<p>学习</p>
聆听
发表于 2008-11-23 17:45
学习
默默贝贝
发表于 2008-11-23 18:23
学习
linlin3618
发表于 2008-11-24 22:42
kankana
页:
1
2
3
4
5
6
7
8
[9]
10
11
12
13
14