随机排列

gexia

zopey

看着像珠心算

liulang0808

代码见截图

liulang0808

附件内容供参考。。。

gexia

liulang0808 发表于 2018-6-21 18:02
附件内容供参考。。。

负数怎么会少个

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, n, sum, t, flag As Boolean
  arr = [d2].Resize(5)
  ReDim brr(1 To UBound(arr, 1), 1 To 20)
  For j = 1 To UBound(brr, 2)
    Randomize
    Do
      n = Int(Rnd * UBound(arr, 1)) + 1
    Loop Until arr(n, 1) > 0
    t = arr(1, 1): arr(1, 1) = arr(n, 1): arr(n, 1) = t
    Do
      For i = 2 To UBound(arr, 1)
        n = Int(Rnd * (UBound(arr, 1) - 1)) + 2
        t = arr(i, 1): arr(i, 1) = arr(n, 1): arr(n, 1) = t
      Next
      flag = True
      For i = 2 To UBound(arr, 1) - 1
        If arr(i, 1) < 0 And arr(i + 1, 1) < 0 Then flag = False: Exit For
      Next
      If flag Then
        For i = 1 To UBound(arr, 1) - 1
          If Right(arr(i, 1), 1) = Right(arr(i + 1, 1), 1) Then flag = False: Exit For
        Next
      End If
      If flag Then
        sum = arr(1, 1)
        For i = 2 To UBound(arr, 1)
          sum = sum + arr(i, 1)
          If sum <= 0 Then flag = False: Exit For
        Next
      End If
    Loop Until flag
    For i = 1 To UBound(arr, 1): brr(i, j) = arr(i, 1): Next
  Next
  [i1].Resize(UBound(arr, 1), UBound(brr, 2)) = brr
End Sub

liulang0808

gexia 发表于 2018-6-21 18:24
负数怎么会少个

楼主的需求没有看太明白
建议结合附件模拟结果出来看看吧