哪位大佬可以把第三题的vb代码给我一下，本人是大一新生，很急很急，

Private Sub Form_Load()
Randomize
For i = 1 To 8
List1.AddItem Int(Rnd * 90) + 10
Next i
End Sub
rem 删除选中项
Private Sub Command1_Click()
Rem 没有选中项,退出过程
If List1.ListIndex = -1 Then Exit Sub
List1.RemoveItem List1.ListIndex
End Sub
rem 清空列表框
Private Sub Command2_Click()
List1.Clear
End Sub