%Function LeftStr(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
t=0
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=StrLen Then
LeftStr=left(Str,i)&"..."
Exit For
Else
LeftStr=Str
End If
Next
End Function
%>
| 作者: admin 来源:深圳太极网 时间:01月15日 15:44 提交:sztjq 访问: |
为丰富队员们的生活,本中心于01月12日组队攀登深圳最高峰----梧桐山。下午3时30分,在总教练魏老师的带领下,由20多人组成的登山队浩浩荡荡地从梅林出发,前往梧桐山。
我们的第一站是----好汉坡,车队到达好汉坡后,大家一起练习了一套老架一路,大家真正地放松心情,尽情地呼吸着大自然的新鲜空气,太极拳练习之后,大家精神抖擞。
活动之后,只见几个年青小伙,撒开腿就向顶峰冲去。大家一路高歌,不时有人放声大喊,为在队伍后面的队友呐喊加油,在大家开心的笑脸上,可以看得出,我们的队伍多么和谐,团结。

练习太极拳后,大家在好汉坡合影

我们的旗手,首当其冲






坚持到底,胜利属于你!


登上最高峰,我们在欢呼!
|
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |