[求助]如何生成随机长度的WBS编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何生成随机长度的WBS编号

共有2083人关注过本帖树形打印复制链接主题：[求助]如何生成随机长度的WBS编号

chnfo

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

加好友

发短信

等级：九尾狐帖子：2216 积分：18225 威望：0 精华：0 注册：2011/11/26 20:21:00

[求助]如何生成随机长度的WBS编号 发帖心情

Post By：2016/7/29 11:43:00 [显示全部帖子]

因做试验数据，要生成大量的随机的分解结构。

例如

1.1

1.1.1

1.1.1.1

1.1.1.2

1.1.1.3

1.1.2

1.1.3

1.1.3.1

1.1.3.1.1

1.1.2.1.2

1.2

……

即：每一个节点的直属下级节点的个数并不完全相同；即使共有一个父节点，子节点有的有下级节点，有的没有。

这个该如何实现呢？

[此贴子已经被作者于2016/7/29 11:43:09编辑过]

chnfo

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

加好友

发短信

等级：九尾狐帖子：2216 积分：18225 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2016/7/29 13:42:00 [显示全部帖子]

稍调整了一下。

For i As Integer = 1 To 10

Dim str As String = "1." &i

output.show(str)

For i2 As Integer = 1 To Rand.Next(1,6)

Dim str2 As String = str & "." & i2

output.show(str2)

If rand.Next(3) > 0 Then

Continue For

End If

For i3 As Integer = 1 To Rand.Next(2,8)

Dim str3 As String = str2 & "." & i3

output.show(str3)

不过，这样写限定了最多的层数是4层，如果要扩展到7层，就会很麻烦，是否定义函数，自我调用会好一些。

[此贴子已经被作者于2016/7/29 13:42:38编辑过]

下一主题 >> << 上一主题

主题：[求助]如何生成随机长度的WBS编号