1樓：企鵝
sub showpicbox()
dim i as integer, h as singlefor i = 3 to 0 step -1if picture1(i).visible thenh = h + picture1(i).heightpicture1(i).
move 300, me.scaleheight - h - 150
end if
next
end sub
private sub form_load()dim i as integer
me.show
showpicbox
for i = 0 to 3
picture1(i).print i + 1next
end sub
private sub picture1_click(index as integer)
picture1(index).visible = falseshowpicbox
end sub
vb怎麼將一個一維陣列不斷右迴圈移動？每次移動一位。
2樓：匿名使用者
private sub command1_click()dim a(7) as integer, i as integer, j as integer, t as integer
for i = 1 to 7
a(i) = i
print a(i);
next i
for i = 1 to 7
t = a(7)
for j = 7 to 2 step -1a(j) = a(j - 1)
next j
a(1) = t
for j = 1 to 7
print a(j);
next j
next i
end sub
vb中將陣列中某個位置的元素移動到指定位置
3樓：匿名使用者
很簡單啊。假定陣列為a(n)，移動元素a(i)至a(j)，則可設一中間變數t，**：t=a(i)：
a(i)=a(j)：a(j)=t，就ok了。如果是從一個陣列移到另一個陣列就更簡單了。
a(i) 到 b(j)：b(j)=a(i)。如果是批量移動則再加上迴圈控制既可。
VB怎麼宣告陣列，VB中陣列怎麼定義
如果有規律就可以用for next 來賦值，如果沒有規律，資料又很多的話，就從檔案裡面讀。dim 陣列名 as int new int vb中陣列怎麼定義 是這麼定義的 陣列中的第一個元素的下標稱為下界，最後一個元素的下標稱為上界，其餘的元素連續地分佈在上下界之間，且陣列在記憶體中也是用連續的區域來...
vb符串陣列型別不匹配，vb 字串陣列型別不匹配
首先你這個是一維陣列，如果只是想顯示陣列內容應該這樣寫 private sub form load dim i as integer i 0 dim text 2 text 0 第一句 text 1 第二句 text 2 第三句 for i 0 to ubound text msgbox text ...
在VB中，陣列下標的預設下界是什麼
vb中定義陣列的起始下標預設從0開始。用option base 1語句將陣列預設起始下標設定為 1。1 不使用optioan base 語句，陣列起始下標預設為 0option explicit 沒有用 option base 語句，陣列下標從0開始 因此，陣列 a 包含了 11 個元素 dim a...