五个数按要求排列组合

beiounanhai

beiounanhai

如何编写代码得出正确的结果

liulang0808

没有太明白楼主的意思
随机选三个数字，还是所有的三个数字的组合？
论坛内有案例，楼主先搜一下
三层for循环+排序，应该可以搞定的

beiounanhai

liulang0808 发表于 2020-12-27 21:19
没有太明白楼主的意思
随机选三个数字，还是所有的三个数字的组合？
论坛内有案例，楼主先搜一下

版主就是第一行的五个数选三个符合要求的

beiounanhai

liulang0808 发表于 2020-12-27 21:19
没有太明白楼主的意思
随机选三个数字，还是所有的三个数字的组合？
论坛内有案例，楼主先搜一下

好的我试试

liulang0808

Sub test()
    Dim b(1 To 3)
    Set d = CreateObject("scripting.dictionary")
    A = [a1:e1].Value
    For Each x In A
        d(x) = ""
    Next x
    For j = 1 To 3
        n = WorksheetFunction.RandBetween(0, d.Count - 1)
        b(j) = d.keys()(n)
        d.Remove d.keys()(n)
    Next j
    For j = 1 To UBound(b)
        For i = j + 1 To UBound(b)
            If b(j) > b(i) Then
                tm = b(j)
                b(j) = b(i)
                b(i) = tm
            End If
        Next i
    Next j
    [h1] = Join(b)
End Sub

liulang0808

附件内容供参考。。。。

beiounanhai

beiounanhai 发表于 2020-12-27 21:51
好的我试试

随机选三个但是要满足上述的两个条件

lmgz007

liulang0808 发表于 2020-12-27 22:02
附件内容供参考。。。。

我的理解：楼主的意思应该是在不打乱给定顺序的情况下，选出3个按序排列的组合。比如：25341，没有123 的组合。

liulang0808

lmgz007 发表于 2020-12-27 22:17
我的理解：楼主的意思应该是在不打乱给定顺序的情况下，选出3个按序排列的组合。比如：25341，没有123 的 ...

可以按照你的理解，给楼主提供下解决方案的。