1樓：
重排一下，你那樣寫太沒層次了，看著暈
private sub command1_click()dim a(5) '定義 a(0) - a(5) 6個for i = 0 to 4 '0-4 五次迴圈a(i) = i + 1
t = i + 1
if t = 3 then '這有個條件判斷,t=3，也就是i=2的時候才是true
print a(i);
a(t - 1) = a(i - 2)
else 'i<>2的時候就執行這裡a(t) = a(i)
end if
if i = 3 then a(i + 1) = a(t - 4)a(4) = 1
print a(i);
next i '到這裡再回到for i那裡，直到i=5為止end sub
其他的就沒什麼難的了，運算有點亂，用紙寫寫就行了
2樓：匿名使用者
0分有點懶
private sub command1_click() '當按鈕1被單擊時
dim a(5) 『定義一個一維陣列，內部5個元素for i = 0 to 4 』i從1到4- -不懂？那基礎就.....for的結構自己看
a(i) = i + 1'
t = i + 1
if t = 3 then
print a(i);
a(t - 1) = a(i - 2)
else
a(t) = a(i)
end if
if i = 3 then a(i + 1) = a(t - 4)a(4) = 1
print a(i);
next i
end sub
VB程式設計高手來下，什麼是VB程式設計
a shell cmd c ping vbhide 判斷a的值，具體是什麼值我沒試，你看看聯網執行返回的值和斷網後的值比較一下。至於你說的什麼紅色綠色的，就根據餓這個值來判斷就可以了。這也用vb啊 bat一句就可以了。ping n 1 nul echo 連通 echo 不通。一樓的牛x直接呼叫cmd...
VB程式設計的簡單問題，VB簡單程式設計問題
1.do while loop 如果while的條件成立，就執行裡面的語句 比如，while a 2，先判斷a，a不大於2就不執行了 這個是不滿足就不執行 2.do loop while e 這個是不管while的條件成不成立，都會先執行裡面的語句，執行完之後再判斷while的條件成不成立，成立就繼...
程式設計高手請進
不用1維更方便 var a,b,c,n integer function mun v,t integer integer var j1,j2,j3 integer begin j1 v div100 j2 v j1 100 div 10 j3 v j1 100 j2 10 if t 1 then m...