从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图