1樓:匿名使用者
在general中定義
dim a(10, 10) as integer, b(10, 10) as integer
設定**框picture1的autoredraw屬性為true,text1的mutiline屬性為true.
private sub form_activate()'*****如果a已有值,則省略以下5行
for i = 1 to 10
for k = 1 to 10
a(i, k) = (i - 1) * 10 + knext
next
'***************===
'====列印a陣列
for i = 1 to 10
for k = 1 to 10
if a(i, k) < 10 then picture1.print " ";
picture1.print a(i, k);
next
picture1.print
next
end sub
private sub command1_click()for i = 1 to 10
for k = 1 to 10
if i <> k then
b(i, k) = a(i, k)
else
b(i, k) = 0 'b對角線置0
end if
next
next
'====文字框顯示b陣列
dim t as string
for i = 1 to 10
for k = 1 to 10
if b(i, k) < 10 then
t = t + " " + str(b(i, k))else
t = t + str(b(i, k))
end if
next
t = t & vbcrlf
text1 = t
next
2樓:匿名使用者
'建個按鈕,picturebox,拷入程式即可使用,精簡版除錯通過dim a(100) as double
dim b(10, 10) as doubleprivate sub command1_click()for i = 1 to 10
for j = 1 to 10
text1 = text1 & b(i, j) & " "
next j
text1 = text1 & vbcr & vblfnext i
end sub
private sub form_load()picture1.autoredraw = truerandomize
for i = 1 to 100
a(i) = int(1000 * rnd)picture1.print a(i) & " ";
x = int((i - 1) / 10) + 1y = (i - 1) mod 10 + 1b(x, y) = a(i)
if x = y then b(x, y) = 0if i mod 10 = 0 then picture1.print
next i
end sub
3樓:
什麼叫將陣列b中的主對角線元素全部設為0,最後按行輸出陣列b?這句不懂
**框怎麼可能輸出陣列a啊
vb陣列插入,陣列元素的插入 VB
1 text2中的內容是由手工輸入還是由電腦隨機生成?2 插入的位置如何界定?比如輸入1,是插入第一個元素的前面還是後面?vb這樣在陣列中新增新資料?沒有好方法,只能用迴圈把插入點以後的所有元素後移一個,然後在插入點寫入新增的資料。給你一個方法,但是 來不及幫你寫了 1 陣列自己可以定義成不定大小的...
VB在textbox中輸出陣列,VB給陣列賦值後如何在文字框Text裡輸出
private sub form load dim a 1 to 1000 as integer 在text的屬性欄設定這2個屬性 text1.scrollbars 2 vertical text1.multiline truetext1.text for i 1 to 1000 a i i tex...
vb怎麼用陣列記錄y座標,VB怎麼用陣列記錄x,y座標
更直接的方法 不用自定義型別,通過節點號來讀寫座標dim bs 1 to 25 as single i as long for i 1 to 25 bs i 第 i 個節點的x座標 h7fff 第 i 個節點的y座標 記錄座標,第 i 個節點的x和y座標你自己改 next i 下面公式是讀取座標的 ...