正文
vb.net数组转置 vb数组交换位置
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb中 数组转置是什么意思~~
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
相关问答
Q1: vb.net数组型转换为数字型
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)
Q2: 求助,初学者想问VB.NET，怎么输入一维列矩阵或者一维行矩阵怎么转置成一维列矩阵？谢谢了！
在程序设计语言里，用二维数组来保存矩阵的值。
一维列矩阵，就是由：若干行、一列组成的二维数组。
一维行矩阵，就是由：一行、若干列组成的二维数组。
比如一维列矩阵，的输入：
dim a(10,1) as integer '10行，1列
dim i as integer
for i = 1 to 10
a(i,1) = inputbox("")
next i
Q3: 如何将VB.NET字符串转换成字节数组
1、字节数组转换为字符串
byte[] byBuffer = new byte[20];
String strRead = new String(byBuffer);
strRead = String.copyValueOf(strRead.toCharArray(), 0, byBuffer.length]);
2、字符串转换成字节数组
byte[] byBuffer = new byte[200];
String strInput=abcdefg;
byBuffer= strInput.getBytes();
注意：如果字符串里面含有中文，要特别注意，在android系统下，默认是UTF8编码，一个中文字符相当于3个字节，只有gb2312下一个中文相当于2字节。这种情况下可采取以下办法：
Q4: vb.net的问题，编程实现将一个3*4的二维数组A，转置后在textbox中显示
for i = 0 to 3
textbox_未知.text = a(i,1) a(i,2) a(i,3) a(i,4) vbcrlf
next
如果我吧长宽弄反了自行转正,
如果要间隔,请插入 VBtab
Q5: 用VB编写一过程，实现一个二维数组的转置。（数组作为参数）
Private Sub Command1_Click()
Dim a(1 To 3, 1 To 5) As Integer, b(1 To 5, 1 To 3) As Integer
Cls
Print "产生的A数组："
For i = 1 To 3
For j = 1 To 5
a(i, j) = Int(Rnd * 100)
Print a(i, j);
Next j
Next i
zhuanzhi a, b
Print "转置后的B数组："
For i = 1 To 5
For j = 1 To 3
Print b(i, j);
Next j
Next i
End Sub
Sub zhuanzhi(ByRef a() As Integer, ByRef b() As Integer)
For i = LBound(a, 1) To UBound(a, 1)
For j = LBound(a, 2) To UBound(a, 2)
b(j, i) = a(i, j)
Next j
Next i
End Sub
关于vb.net数组转置和vb数组交换位置的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
