已解決VB編程問題（有獎），幫朋友問的，我沒學過VB（斑竹鎖）

能幫忙寫全嗎？我不懂，沒學過VB
剛開始學C

'窗體加載時在列表框中加載4個選項
Private Sub form_Load()
list1.addItem("item1")
list1.addItem("item2")
list1.addItem("item3")
list1.addItem("item4")
End sub
'單擊按鈕文本框中顯示在列表框選中的項
private sub C1_Click()
dim selectstring as string
'循環判斷是否選中
for i=0 to list1.listCount-1
if list1.selected(i)=true then
exit for
endif
next

if i=list1.listCount then
'沒有項被選中
msgbox("沒有選中項")
exit sub
else
'有選中的項
selectstring=list1.list(i)
text1.text=selectstring
end if

end sub
'備注：此程序是我默寫的，沒有經過IDE，相信能夠通過！

獎勵已經發出了嗎？

text1=list1.text

三樓的寫的在複雜了,前麵加載那幾個是對的,至於選中的直接複製在文本框上不用for 來判斷,直接text1.text=list1.listindex.text就可以了

Private Sub Form_Load()
List1.AddItem ("item1")
List1.AddItem ("item2")
List1.AddItem ("item3")
List1.AddItem ("item4")
End Sub

Private Sub C1_Click()
Text1 = List1.Text
End Sub

題目是：
在窗體上有一個列表框,名稱為List1,一個文本框,名稱為Text1,和一個命令按鈕,名稱為C1,標題為”複製”.要求程序運行後,在列表框中自動建立4個列表項,分別為” Item1” “Item2” “Item3” “Item4”.如果選擇列表框中的一項,則單擊”複製”按鈕時,可以把該項複製到文本框中.

不會編，希望哪位幫忙編下
謝謝了

幫忙編的獎勵500DY