[分享] 利用eval()函数对1～99、1～999、1～9999各数的排列！ - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → [分享] 利用eval()函数对1～99、1～999、1～9999各数的排列！

共有10971人关注过本帖树形打印复制链接主题：[分享] 利用eval()函数对1～99、1～999、1～9999各数的排列！

lxl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：蜘蛛侠帖子：1191 积分：-50 威望：0 精华：0 注册：2007/5/25 12:56:00

Post By：2008/2/28 9:40:00 [显示全部帖子]

如果用vb代码实现起来容易多了
Dim s As String
For i As Integer = 1 To 9999
s += Cstr(i).PadLeft(4,"0") & "|"
Next

主题：[分享] 利用eval()函数对1～99、1～999、1～9999各数的排列！