VB求一道题

Public Sub aaa()
Dim vTemp() As Variant
Dim vMaxminCol() As Variant

Dim iMax As Integer
Dim iMin As Integer
Dim iMaxCol As Integer
Dim iMinCol As Integer
Dim iCol As Integer

Dim i As Integer
Dim j As Integer

ReDim vTemp(3, 3)
ReDim vMaxminCol(UBound(vTemp, 2), 3)
For j = 0 To 3
iMax = vTemp(0, j)
iMin = vTemp(0, j)
iMaxCol = 0
iMinCol = 0
For i = 0 To 3
If vTemp(i, j) * vTemp(i, j) > iNum * iNum Then
iNum = vTemp(i, j)
iMaxCol = i
End If
If vTemp(i, j) * vTemp(i, j) < iMin * iMin Then
iMin = vTemp(i, j)
iMinCol = i
End If
Next j
ReDim Preserve vMaxminCol(iCol, 3)
vMaxminCol(iCol, 0) = iNum