各位师兄师姐，帮个忙，做哈vb的作业嘛

如图：一个窗体、两个列表框、四个文本框（分别命名为Textyy、Textsx、Textwl、Textave）、两个按钮， “test10in.dat”随便写得，这个文件自己弄，我的vb是精简版的，不能链接数据库，另写的程序，生成的文件不能用，所以数据得自己弄……
Dim yy!(200), sx!(200), wl!(200)
Private Sub Form_Load()
Dim i%
Dim no!, name$
Open "test10in.dat" For Input As #1
i = 0
Do While Not EOF(1)
Input #1, no, name, yy(i), sx(i), wl(i)
List1.AddItem no
List2.AddItem name
i = i + 1
Loop
List1.ListIndex = 0
List2.ListIndex = 0
End Sub
Private Sub Command1_Click()
Dim i%
Dim total!
i = List1.ListIndex
total = Val(Textyy.Text) + Val(Textsx.Text) + Val(Textwl.Text)
Textave = Format(total / 3, "00.00")
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub List1_Click()
Dim i%
i = List1.ListIndex
List2.ListIndex = List1.ListIndex
Textyy.Text = yy(i)
Textsx.Text = sx(i)
Textwl.Text = wl(i)
Textave = ""
End Sub
Private Sub List2_Click()
Dim i%
i = List2.ListIndex
List1.ListIndex = List2.ListIndex
Textyy.Text = yy(i)
Textsx.Text = sx(i)
Textwl.Text = wl(i)
Textave = ""
End Sub


你是成都校区选秀蔡英的VB么？