1樓：網海1書生
private sub list1_click()a$ = list1.text
select case a
case "馬拉多納"
label1.caption = "...."
case "貝肯鮑爾"
label1.caption = "...."
case "羅納爾多"
label1.caption = "...."
case "貝克漢姆"
label1.caption = "...."
end select
end sub
或者private sub list1_click()a = list1.listindex
select case a
case 0
label1.caption = "...."
case 1
label1.caption = "...."
case 2
label1.caption = "...."
case 3
label1.caption = "...."
end select
end sub
2樓：酒瓶裡的蚊子
a = list1.listindex
3樓：論宇之新宇宙觀
將過程選node click
VB程式設計的簡單問題，VB簡單程式設計問題
1.do while loop 如果while的條件成立，就執行裡面的語句 比如，while a 2，先判斷a，a不大於2就不執行了 這個是不滿足就不執行 2.do loop while e 這個是不管while的條件成不成立，都會先執行裡面的語句，執行完之後再判斷while的條件成不成立，成立就繼...
vb程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
vb程式設計問題，高手請進
重排一下，你那樣寫太沒層次了，看著暈 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 ...