vb用2*3实现矩形转置矩阵

来源：蜘蛛抓取(WebSpider) 时间：2012-05-11 08:52 标签： excel表格转置
vb的例题3_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
下载文档到电脑，查找使用更方便
还剩10页未读，继续阅读
你可能喜欢急求vb冒泡排序，和矩阵转置两道题怎么编写_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：93,244贴子：
急求vb冒泡排序，和矩阵转置两道题怎么编写收藏
Private Sub Command1_Click()
Dim a(3, 2) As Integer, b(2, 3) As Integer
For i = 1 To 3
For j = 1 To 2
a(i, j) = Val(InputBox("输入第" & Str(i) & "行第" & Str(j) & "列", "", 0))
For i = 1 To 2
For j = 1 To 3
b(i, j) = a(j, i)
Print b(i, j),
Print (chr13)
Next i End Sub
我有点忘记冒泡法怎么做了
冒泡法来了-。-Private Sub Command2_Click()
Dim s(10) As Integer, i, j As Integer
For i = 1 To 10
s(i) = Int((50 - 1 + 1) * Rnd + 1)
For i = 1 To 9
For j = i + 1 To 10
If s(i) & s(j) Then
temp = s(i)
s(i) = s(j)
s(j) = temp
For i = 1 To 10
Print s(i)
Next i End Sub写的有点潦草貌似
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或用VB编写一过程，实现一个二维数组的转置。（数组作为参数）_百度知道
用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& & Print& Next i& zhuanzhi a, b& Print& Print &转置后的B数组：&& For i = 1 To 5& & For j = 1 To 3& & & Print b(i, j);& & Next j& & Print& Next i&&End SubSub 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 jNext iEnd Sub
其他类似问题
为您推荐：
PrintEnd SubPrivate Sub Trans(a() As Integer, 3Private Sub Command1_Click()
Dim a(1, b
For i = 0 To 2
For j = 0 To 1
Print b(i, j) = i * 3 + j
Print a(i, 1) As Integer
Dim i As Integer
Dim j As Integer
For i = 0 To 1
For j = 0 To 2
a(i, j), j) = a(j, 2) As Integer
Dim b(2, n As Integer, j);
Trans a, b() As Integer)
Dim i As Integer
Dim j As Integer
For i = 0 To n - 1
For j = 0 To m - 1
二维数组的相关知识
其他1条回答
转置后是放在同1个数组还是放在另1个数组？
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB矩阵转置.编写程序将2*3的矩阵转置,即转换成3*2的矩阵.
初始化二维2×3矩阵：Dim MyArray(1,2) As Integer然后运行过程中加入代码定义二维3×2矩阵：ReDim Preserve MyArray(2,1) As Integer再用一个镶嵌For...Next循环把值赋值过来就可以啦,很简单嘛.
为您推荐：
其他类似问题
扫描下载二维码能写得出来也不会老问阿
你能回答就回答嘛 不会就不要瞎搅和
您的举报已经提交成功，我们将尽快处理，谢谢！
正确代码如下：
Option Base 1
Private Sub Form_Click()
Dim A(3, 2), B(2, 3)
For I = ...
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'

我要回帖

更多关于 excel表格转置 的文章

 

随机推荐