for i = 0 to 3
成都创新互联主要从事网站设计、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务海曙,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
textbox_未知.text = a(i,1) a(i,2) a(i,3) a(i,4) vbcrlf
next
如果我吧长宽弄反了自行转正,
如果要间隔,请插入 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
Next
Next
'-------------------------------A 数组输出
Print "转置前:"
For I = 0 To 2
For J = 0 To 2
Print A(I, J);
Next
Next
'-------------------------------A 数组转置后放到 B 数组
For I = 0 To 2
For J = 0 To 2
B(J, I) = A(I, J)
Next
Next
'--------------------------------B 数组输出
Print "转置后:"
For I = 0 To 2
For J = 0 To 2
Print B(I, J);
Next
Next
End Sub
当前文章:vb.net数组转置 vba数组转置
当前网址:https://www.cdcxhl.com/article14/dddgoge.html
成都网站建设公司_创新互联,为您提供网站策划、网站改版、商城网站、ChatGPT、定制开发、移动网站建设
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联