• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

遍历字符串"A1a2d5m8Qz",取出所有小写字母及数字,并按... [复制链接]

1#
Dim Str, k, XiaoXie, 新字符串
Str = "A1a2d5m8Qz"
For k = 1 To Len(Str)
XiaoXie = LCase(mid(Str, k, 1))
If XiaoXie = mid(Str, k, 1) Then
新字符串 = XiaoXie & 新字符串
End If
Next
TracePrint 新字符串

2#

一看就是抄袭的

发新话题 回复该主题