二维数组如何随机排序

今铭昔

一招秒杀 发表于 2023-10-6 17:10
SQL原生支持多线程，电脑有多少个线程，想最多用多少个线程，0为不限制。

就是说啊，SQL这么牛bi，偏偏开发安卓应用是Kotlin与Java，开发Mac,IOS应用是Swift，Win桌面端是C#，VB.net，鸿蒙应用是ArkTS，前端有三大件，后端有Java,Golang，可恶的是，它们有多线程编程技术，可以实现异步编程，可以上线程锁实现同步保证线程安全，可以高并发，可以自行管理线程资源，还能实现网络编程，还有完善的IO机制，还有异常处理模型，还能调用系统API，更可恶的是，它们都有各自的包管理器，能够自动构建依赖关系使用各种轮子，还提供各种框架解耦合，甚至有的提供GUI类库开发图形化界面。

最让人不能忍受的是，它们可以连接数据库写SQL语句，这简直欺负我大SQL无人啊，我SQL这么牛bi的技术，谷歌，苹果，微软，华为等等都是一个个不识货的shabi，吾辈应当扬我SQL之大名，威震武林！

lizhipei78

一招秒杀 发表于 2023-10-6 14:30
做这个是没有前途的，就如幼儿园小朋友过家家，写的代码就是个笑话，用数据库 可以好过它 千百倍以上。
...

谢谢你给我们科普，我们大多数网友只是涉及到小数据，所以VBA目前来说还是足的，我觉得解决问题才是关键，至于效率并不是很重要，10s与1s对我们来说关系好像不是很要紧。
各有各的好，有能力就学习更先进的编程，但是不要看不起用低级程序的人，各有各的好，只要存在就合理，这就是百态人生。

aman1516

一招秒杀 发表于 2023-10-6 16:57
就算ChartGPT会骗你，文心一言，不可能 也联合起来骗你吧。
我以为那么基础的、粗浅的常识，一说别人就都 ...

“据说”ChartGPT 的代码准确率也只有65%，文心一言试过了，一半能直接能运行算不错了，
若真的以人们期望AI的目标来说，现时的AI只是“幼儿”水平，骗不骗人不说，也不至于太相信了

一招秒杀

上面的内容 不是代码，是基础常识，实践是检验真理的唯一标准，随便一试就知道真假了。
Excel 数据 、公式 稍多，电脑很容易卡，看CPU 占用率，基本只有1个核心或者线程占用率很高，其他可能都在空闲。
而数据库轻易处理单表几千万或者几十亿的数据，当需要大规模运算时，所有的CPU核心全部上阵，决不会有一个忙死，其他闲死的情况。

bajifeng

lizhipei78 发表于 2023-10-5 22:17
原来跟一维是一样的，转不过弯来，非常感谢

虽然这是一个随机问题, 结果可能都是随机的, 但是3楼贴的这个代码有两个瑕疵
1. 没有使用randomize初始化
2. 虽然不影响结果, 但for循环的上限应该是ubound(arr)-1, 否则, 到了最后一行,它自己跟自己交换, 多余的运算.

bajifeng

1. Sub randomRows() 'by bajifeng
   
2. Dim ar, i&, r&, j%, t
   
3. ar = [a1].CurrentRegion 'in
   
4. Randomize 'initialize
   
5. For i = 2 To UBound(ar) - 1 'has title
   
6.     r = Int((UBound(ar) - i + 1) * Rnd() + i)
   
7.     For j = 1 To UBound(ar, 2)
   
8.         t = ar(i, j): ar(i, j) = ar(r, j): ar(r, j) = t
   
9.     Next
   
10. Next
    
11. [f1].Resize(UBound(ar), UBound(ar, 2)) = ar 'out
    
12. End Sub

复制代码

一招秒杀

今铭昔 发表于 2023-10-6 17:42
就是说啊，SQL这么牛bi，偏偏开发安卓应用是Kotlin与Java，开发Mac,IOS应用是Swift，Win桌面端是C#，VB.n ...

几乎任何的商业数据都是保存在数据库中，无论你前端、后端用什么开发语言，它们都是要连接数据库的，如果你连这个都不知道，那就太可惜了。阿里、美团、字节跳动、百度、京东、谷歌、腾讯，微信、QQ，X、拼多多、FaceBook等等。
算了，我也不知道你在酸些什么东西，不知道如何回答你了。
反正你写的那些代码，我都觉得太幼稚，如果我要实现你的那些功能，可能只需要你一半以下的代码。

lizhipei78

bajifeng 发表于 2023-10-6 21:01
虽然这是一个随机问题, 结果可能都是随机的, 但是3楼贴的这个代码有两个瑕疵
1. 没有使用randomize初始 ...

randomize初始化，这个东西是否真的有用？我一直持怀疑态度，反正有没有我感觉是一样的呀，有它能起什么作用？

准提部林

lizhipei78 发表于 2023-10-6 23:42
randomize初始化，这个东西是否真的有用？我一直持怀疑态度，反正有没有我感觉是一样的呀，有它能起什么 ...

將以下式碼執行一次, 結果貼在B列,
再執行一次, 結果貼在C列,
存檔..關檔...
重新開啟, 再執行兩次看看~~

Sub tt()
For i = 1 To 5
    Cells(i, 1) = Rnd
Next i
End Sub

lizhipei78

准提部林 发表于 2023-10-7 13:41
將以下式碼執行一次, 結果貼在B列,
再執行一次, 結果貼在C列,
存檔..關檔...

试了一下，果然不加Randomize ，会重复，真的好奇怪