求VB陣列問題

2023-02-10 11:05:32 字數 1705 閱讀 3906

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 下面公式是讀取座標的 ...