正文
vb.net二维数组转置 vba 二维数组转置
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
用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 "产生vb.net二维数组转置的A数组vb.net二维数组转置："
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 "转置后vb.net二维数组转置的B数组vb.net二维数组转置："
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
相关问答
Q1: vb.net 如何给二维数组赋值 我要第一维存值，第二维存值的位置(像excel一样) 该怎么做，谢谢！
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I, J As Integer
Dim A(500, 2)
Set xlsApp = Excel.Application
xlsApp.Visible = False
'假设Excel文件在vb.net二维数组转置：D:\Book1.xls
Set xlsBook = xlsApp.Workbooks.Open("D:\Book1.xls")
For I = 1 To 500
For J = 1 To 2
A(I - 1, J - 1) = xlsapp.cells(I, J)
Next J
Next I
'以下是退出Excel
xlsBook.Close (False)
xlsApp.Quit
Set xlsApp = Nothing
'=================================
'Excel中vb.net二维数组转置的500×2的数据已读入到数组A()中vb.net二维数组转置，以下可以添加vb.net二维数组转置你要运算的代码。
'=================================
End Sub
Q2: vb中，如何将二维数组转化为一维
何出此问vb.net二维数组转置？
a(1
to
8,1
to
8)就是二维数组啊
之所以有
“把二维数组转化为一维数组”这种说法，实际上是对二维数组vb.net二维数组转置的一种形象解释
即a(1
to
8,1
to
8)
可看成8个a(1
to
8)一维数组
不只vb如此
c、c++讲的时候也是这样讲的
再引申点
计算机内部储存数据
一般也只用一维的
之所以有多维数组的概念是为使人们使用上方便些
Q3: 在VB.net 中将一个二维数组分成一维数组，并转类型
病情分析：
根据你的情况，可能是由于内分泌失调或激素水平改变引起的
指导意见：
建议去医院做个激素检查，也可以吃中药调理下，平时应保持外阴部的清洁干燥，注意经期和性生活时的卫生。祝你健康
病情分析：
您好，您的情况如果是有性生活，如果是有这样的情况，当然是有怀孕的可能；也可能是月经推迟的问题；正常情况下，如果是月经推迟在一周之内是可能的；
指导意见：
所以，现在可以观察几天看看，如果是几天后来了，量和以前差不多，就应该是没有什么问题的；如果是还是不来，只能是到医院检查一下才能知道是什么原因的
病情分析：
如果是月经推迟超过1周还没有正常的月经，那么是要考虑是不是有内分泌失调，如果是上个月还是有同房，那么也有可能是怀孕
指导意见：
建议可以到正规医院查一下血孕酮以及hcg，确定是不是怀孕
病情分析：
你好，根据你的简单描述，考虑早孕流产可能
指导意见：
建议注意休息，立即当地正规医院彩超及血HCG检查，必要时保胎治疗
病情分析：
你好，以你说的情况还是由于炎症或者是子宫病变引起的症状
指导意见：
建议你最好是到医院妇科做一个全面的检查后，再做对症治疗，祝健康
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编程，应用二维数组产生随机矩阵5*5，并实现矩阵的转置。
VB源程序如下：
Option Base 1
Private Sub Command1_Click()
Dim A(5, 5) As Integer, B(5, 5) As Integer
For x = 1 To 5
For y = 1 To 5
A(x, y) = Int(10 + Rnd * 90) '随机产生两位数的整数
Print A(x, y); '输出
Next
Next
For x = 1 To 5
For y = 1 To 5
B(x, y) = A(y, x) '转置
Print B(x, y); '输出
Next
Next
End Sub
程序输出结果如下：
扩展资料：
VB：编写程序，实现如下规律的5*5矩阵存入数组，并输出该数组
Private Sub Command1_Click()
Dim a(1 To 6, 1 To 6) As Integer
For i = 1 To 5
For j = 1 To 5
tmp = 99
If i tmp Then
tmp = i
End If
If j tmp Then
tmp = j
End If
If 6 - i tmp Then
tmp = 6 - i
End If
If 6 - j tmp Then
tmp = 6 - j
End If
a(i, j) = tmp
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Picture1.Print Tab(j * 5); a(i, j);
Next j
Picture1.Print
Next i
End Sub
程序输出结果如下：
vb.net二维数组转置的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba 二维数组转置、vb.net二维数组转置的信息别忘了在本站进行查找喔。
