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