weixin_44702271 2021-03-23 12:27 采纳率: 100%
浏览 196
已采纳

VB.net如何将一个一维数组根据排列组合转化为二维数组

假设数组arr1(x)={1,2,3,2}

如何由数组arr1得到一个二维数组arr2

arr2(y,x)

{

0,0,0,0

0,0,0,1

0,0,0,2

0,0,1,0

0,0,1,1

0,0,1,2

0,0,2,0

.....

}

即二维数组每一行的值为一维数组每个值从0开始的排列组合,一维数组长度不一定是4,可能会更长。

  • 写回答

2条回答 默认 最新

  • 天际的海浪 2021-03-23 21:14
    关注
    Module Module1
    
    	Sub Main()
    		Dim arr1() As Integer = {1,3,1,2}
    		Dim snm, v, i, j, t As Integer
    		snm = 1
    		For Each v in arr1
    			snm = snm * (v+1)
    		Next
    		Dim arr2(snm-1,arr1.Length-1) As Integer
    		For i = 0 To snm-1
    			t = 1
    			For j = arr1.Length-1 To 0 step -1
    				arr2(i,j) = (i\t) MOD (arr1(j)+1)
    				t = t * (arr1(j)+1)
    		 	Next
    		Next
    
    		For i = 0 To snm-1
    			For j = 0 To arr1.Length-1
    				Console.Write(arr2(i,j)&" ")
    		 	Next
    			Console.WriteLine()
    		Next
    	End Sub
    
    End Module
    

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥20 收一个快手协议下单算法
  • ¥15 求一个图片中的成交量选股公式
  • ¥15 已知正方形内随机生成坐标matlab
  • ¥30 关于#python#的问题:我想要的是这79个大特征对于房屋售价的最大的影响前十名(相关搜索:随机森林)
  • ¥15 使用matlab计算自定义特殊函数的二重积分,改变积分顺序所得的结果不同的问题?
  • ¥15 mysql做碎片化处理老是报错怎么办
  • ¥15 如何正确在vs2010中初始化map对象
  • ¥30 mmdet3d模型部署问题
  • ¥15 comsol仿真反射率、吸收率时峰值位置和深度不对!
  • ¥30 Visual Studio找不到sdk,如何解决?