VB求一道题
来源:百度知道 编辑:UC知道 时间:2024/09/21 08:20:44
谢谢了
知道的赶紧联系
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