纳闷：随机并不随机

weiyingde

huang1314wei 发表于 2017-8-26 12:22
我还想问一下，老师，你会写程序，难度不会调试发现问题？调试代码，应该是基本功吧

已经发现，稍迟一步。谢谢提醒

weiyingde

huang1314wei 发表于 2017-8-26 12:20
For j = 1 To q
    ReDim Preserve crr(1 To q, 1 To 3)
    crr(j, 1) = arr1(i)

ReDim Preserve crr(1 To j, 1 To 3)
改了之后，反而没有任何反应，真是怪了。

weiyingde

huang1314wei 发表于 2017-8-26 12:20
For j = 1 To q
    ReDim Preserve crr(1 To q, 1 To 3)
    crr(j, 1) = arr1(q)

ReDim Preserve crr(1 To j, 1 To 3)
改了之后，反而没有任何反应，真是怪了。

weiyingde

改成：
For j = 1 To q
    ReDim Preserve crr(1 To j, 1 To 3)
    crr(j, 1) = arr1(j)
    crr(j, 2) = arr2(j)
    crr(j, 3) = arr3(j)
  Next
还是没有随机效果

weiyingde

huang1314wei 发表于 2017-8-26 12:20
For j = 1 To q
    ReDim Preserve crr(1 To q, 1 To 3)
    crr(j, 1) = arr1(q)

黄老师，改成
改成：
For j = 1 To q
    ReDim Preserve crr(1 To j, 1 To 3)
    crr(j, 1) = arr1(j)
    crr(j, 2) = arr2(j)
    crr(j, 3) = arr3(j)
  Next
还是什么效果也没有，不只是哪里出现问题。麻烦你再看看。

huang1314wei

weiyingde 发表于 2017-8-26 14:39
黄老师，改成
改成：
For j = 1 To q

ReDim Preserve crr(1 To j, 1 To 3)   这个里面的还是q，不能改成 j

weiyingde

huang1314wei 发表于 2017-8-26 14:40
ReDim Preserve crr(1 To j, 1 To 3)   这个里面的还是q，不能改成 j

改成这样成功了。
ReDim crr(1 To q, 1 To 3)
  For j = 1 To q
    crr(j, 1) = arr1(j)
    crr(j, 2) = arr2(j)
    crr(j, 3) = arr3(j)
  Next

weiyingde

huang1314wei 发表于 2017-8-26 14:40
ReDim Preserve crr(1 To j, 1 To 3)   这个里面的还是q，不能改成 j

你的指导也是对你的，我仔细想想，谢谢你。