1樓：
這個index在程式中是integer，把它的值拿來做判斷，從而執行不同的事件。我看這個好像是個不停換圖的東西：
在form載入的時候，設定了index = 1
dim index as integer
private sub command1_click()
randomize
num = rnd //這裡的num也是一個拿來做隨機判斷的東西。如果num滿足下面的一些if條件，就執行相應的命令
if num < 0.33 then //如果num小於0.33，執行下面的語句。後面的if語句功能大同小異，不再註釋
rungo = 11
elseif num < 0.67 then
rungo = 12
else
rungo = 13
end if
for i = 1 to rungo //for迴圈
if index = 1 then //如果index=1，執行下面的命令。因為窗體載入的時候已經預設了index=1，所以一定會做下面的語句
picture1.picture = loadpicture("") //picture2清掉原來的圖
picture2.picture = loadpicture("d:\qq\newskins\qq2007\chatroombutton.
ico") //picture2載入一副圖-〉d:\qq\newskins\qq2007\chatroombutton.ico，後面的loadpicture用法相同，不再註釋
beep //蜂鳴，音箱發出一個聲音
index = 2
elseif index = 2 then //否則如果index=2，則執行下面的語句
picture2.picture = loadpicture("")
picture3.picture = loadpicture("d:\qq\newskins\qq2007\chatroombutton.ico")
beep
index = 3
else
picture3.picture = loadpicture("")
picture1.picture = loadpicture("d:\qq\newskins\qq2007\chatroombutton.ico")
beep
index = 1
end if
next i //繼續迴圈
end sub
private sub command2_click()
end //結束程式
end sub
private sub form_load()
picture1.picture = loadpicture("d:\qq\newskins\qq2007\chatroombutton.ico")
index = 1 //給index賦值為1
end sub
2樓：dl_會飛的青蛙
index就是自己定義的一個判斷條件！~
3樓：匿名使用者
index作為一個開關在三種情況中迴圈。
4樓：k流水
index 為下標 比如command1(3), 3就可以稱為index.
而這裡的index類似於一種條件,就象case 1,case 2 之類
可到vb程式設計的書上得到證實
vb程式設計計算VB程式設計計算
第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex...
vb程式設計題目，VB程式設計題目
private sub mand1 click if len text1 2 thentext1 left text1,2 end if end sub private sub mand2 click text1 end sub private sub form load label1.captio...
VB程式程式設計，什麼是VB程式設計？
private sub command1 click dim t x y z t val text1.text if t 100 or len text1.text 3 then msgbox 輸入的數字不符合要求 vbinformation exit sub end if z t mod 10 y...