扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网