چاپ معدل در لیست باکس

[mohammad9516]

سلام
من به یک مشکلی برخوردم
یه برنامه ای نوشتم که 5 تا اسم می گیره بعد 4 تا نمره می گیره بعد معدل گیری می کنه و توی لیست با چاپ می کنه
من تو قسمت چاپش به مشکل بر خوردم
اینم کد



Dim B(0 To 4) As Byte
Dim nam(5) As String
Private Sub Command1_Click()
For i = 0 To 4
nam(i) = InputBox("Name Ra Vared Konid:", "Name")
For j = 0 To 4
B(i, j) = InputBox("Nomre Ra Vared Konid:", i)
Next j
Next i
End Sub

Private Sub Command2_Click()
For i = 0 To 4
Print nam(i)
For j = 0 To 2

Next j
Print
Next i
End Sub

[mohammad9516]

کسی نیست به من کمک کنه
اینم یه کد دیگه مشکل از کجاست؟




Dim B(4, 4) As Integer
Dim nam(4) As String
Dim aver As Integer
Private Sub Command1_Click()
For i = 0 To 4
nam(i) = InputBox("Name:", i)
For j = 0 To 4
B(i, j) = InputBox(j, i)
aver = B(i, j)
Next j
Next i
End Sub

Private Sub Command2_Click()
For i = 0 To 4
Print nam(i)
For j = 0 To 4
List.AddItem (nam(i) & aver)
Next j
Print
Next i
End Sub