vb.net数组转置 vba数组转置

vb.net的问题，编程实现将一个3*4的二维数组A，转置后在textbox中显示

for i = 0 to 3

成都创新互联主要从事网站设计、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务海曙,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

textbox_未知.text = a(i,1) a(i,2) a(i,3) a(i,4) vbcrlf

如果我吧长宽弄反了自行转正,

如果要间隔,请插入 VBtab

Dim byts1() As Byte = {255, 255, 0, 0}

'4位16进制数组转Integer

Dim value As Integer = BitConverter.ToInt32(byts1, 0)

'Integer转4位16进制数组()

Dim byts2() As Byte = BitConverter.GetBytes(value)

1 2 3 1 4 7

4 5 6 转置后： 2 5 8

7 8 9 3 6 9

代码示例：

Private Sub Form_Load()

Me.Show

Dim A(2, 2) As Long, B(2, 2) As Long

Dim I As Long, J As Long, N As Long

'------------------------------A 数组赋值

For I = 0 To 2

For J = 0 To 2

N = N + 1

A(I, J) = N

'-------------------------------A 数组输出

Print "转置前："

For I = 0 To 2

For J = 0 To 2

Print A(I, J);

'-------------------------------A 数组转置后放到 B 数组

For I = 0 To 2

For J = 0 To 2

B(J, I) = A(I, J)

'--------------------------------B 数组输出

Print "转置后："

For I = 0 To 2

For J = 0 To 2

Print B(I, J);

End Sub

当前文章：vb.net数组转置 vba数组转置
分享网址：http://jkwzsj.com/article/dddgoge.html