VB程序，帮忙解释一下啥意思，越详细越好

Private Sub Command9_Click()
If List1.ListCount > 1 Then  'check list is not empty
For i = 0 To List2.ListCount
n = IIf(List2.List(i) > n, List2.List(i), n)
Next

'List1.ListIndex = k - 2
For i = 0 To List2.ListCount
If List2.List(i) = n Then
List1.ListIndex = i
BestSuport = Mid(List1.List(i), 1, 5)
End If
Next
End If
MsgBox "最佳供应商为" & ":" & BestSuport, vbOKOnly, "最佳供应商"

答案：1.第一个if语句是判断列表框1不为空的情况下，遍历列表框2：并挑出最大的值，赋值给变量n。
2.第二次遍历列表框2找到列表框2的值等于变量n的项，并将它的索引号赋值给列表1，然后在列表1中找到对应的项，用字符串截取函数mid截取前五个字符，并赋值给BestSuport 变量。
3.然后用msgbox显示

上一个：VB编程：设计一个体操评分程序， 20 位评委，除去一个最高分和一个最低分，计算平均分
下一个：求VB大神帮忙