1樓:葉小閒
需要**,不知道你則麼寫的。
使用printline因該不會有這種問題。
vb中 陣列轉置是什麼意思~~
2樓:網友
1 2 3 1 4 7
4 5 6 轉置後: 2 5 8
**示例:private sub form_load()
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
nextnext
--a 陣列輸出。
print "轉置前:"
for i = 0 to 2
for j = 0 to 2
print a(i, j);
nextprint
next---a 陣列轉置後放到 b 陣列。
for i = 0 to 2
for j = 0 to 2
b(j, i) = a(i, j)
nextnext
--b 陣列輸出。
print "轉置後:"
for i = 0 to 2
for j = 0 to 2
print b(i, j);
nextprint
nextend sub
3樓:網友
所謂矩陣的轉置,通俗地講,就是把矩陣的行變成列,列變成行。
在excel裡也有這個功能,選中乙個矩形資料區域,複製 --選擇性貼上,就可以勾選「轉置」,進行相關操作。
用vb編寫一過程,實現乙個二維陣列的轉置。(陣列作為引數)
4樓:聽不清啊
private sub command1_click()
dim a(1 to 3, 1 to 5) as integer, b(1 to 5, 1 to 3) as integer
clsprint "產生的a陣列:"
for i = 1 to 3
for j = 1 to 5
a(i, j) = int(rnd * 100)
print a(i, j);
next j
printnext i
zhuanzhi a, b
printprint "轉置後的b陣列:"
for i = 1 to 5
for j = 1 to 3
print b(i, j);
next j
printnext 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
5樓:匿名使用者
轉置後是放在同1個陣列還是放在另1個陣列?
編寫vb程式,實現矩陣轉置,即將乙個nⅹm的矩陣的行和列互換。
6樓:home若夕陽西下
private sub command1_click()dim a#(),n1#, n2#, i#, j#n1 = : n2 =
redim a(1 to n1, 1 to n2)redim b(1 to n2, 1 to n1)texttoarray text3, a
for i = 1 to n1
for j = 1 to n2
b(j, i) = a(i, j)
nextnext
arraytotext b, text4
end sub
我也給難住了,在網上找了半天無果後,自己做出來了。。。
雖然對你來說有點晚(n1,n2就是m,n),希望對別人有幫助吧。
vb程式設計,應用二維陣列產生隨機矩陣5*5,並實現矩陣的轉置。
7樓:珈藍惜夢
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); '輸出。
nextprint
nextprint
for x = 1 to 5
for y = 1 to 5
b(x, y) = a(y, x) '轉置print b(x, y); '輸出。
nextprint
nextend sub
程式輸出結果如下:
8樓:會飛滴包子
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); '輸出。
nextprint
nextprint
for x = 1 to 5
for y = 1 to 5
b(x, y) = a(y, x) '轉置print b(x, y); '輸出。
nextprint
nextend sub
如何批量刪除幾個文字檔案中某段相同的文字
將要刪除的文字替換成空白的內容 在offie裡可以批量換,把它換成空格就可以 如何批量刪除一和txt檔案中的多個特定的相同文字.開啟txt檔案 左上角編輯 替換 查詢內容為你特定的相同文字,替換為留空 然後按全部替換。另外一種方式,去搜尋一款 字元替換器 軟體,可以批量處理多個txt檔案 可以在開啟...
c如何判斷文字檔案為空
c 判斷文字檔案為空,必須要先讀一下檔案 讀一個字元 才能判斷是否為空。剛開啟檔案時,檔案狀態標識都是初始化狀態,eof 函式是根據檔案狀態標識來判斷當前是否到了檔案尾,而不是用來判斷檔案是否為空。當讀取檔案資料時,遇到檔案尾時,系統會更改檔案狀態標識為檔案尾,同時,返回eof標誌。include ...
文字與檔案有什麼區別,什麼是文字檔案和文字文件,它們有什麼不同嗎?
計算copy機文字是計算機的一bai種文件型別。該類文件du主要用於記載和儲存文字信 zhi息,dao而不是影象 聲音和格式化資料。常見的文字文件的副檔名有.txt doc.docx wps等。計算機檔案屬於檔案的一種,與普通檔案載體不同,計算機檔案是以計算機硬碟為載體儲存在計算機上的資訊集合。檔案...