Question

VB程序设计，这道题的第三问，求大神指导！

Answer 1

应该是这个代码

Private A(1 To 4, 1 To 5) As Integer

Private Sub SwitchArrE(ByVal AIndex As Integer, ByVal BIndex As Integer)
Dim i, k As Integer

For i = 1 To 5
k = A(AIndex, i)
A(AIndex, i) = A(BIndex, i)
A(BIndex, i) = k
Next i
End Sub
Private Sub Command1_Click()
Dim i, j, iMax, iMin, iMaxIndex, iMinIndex, iSum As Integer

Randomize
For i = 1 To 4
iSum = 0
For j = 1 To 5
k = Int(Rnd * 100)
If k < 10 Then k = k + 10
A(i, j) = k
iSum = iSum + k
Next j
'打印数组
Picture1.Print A(i, 1), A(i, 2), A(i, 3), A(i, 4), A(i, 5)
Next i
'交换第一和第三列
SwitchArrE 1, 3
'计算最大行和最小行
For i = 1 To 4
k = 0
For j = 1 To 5
k = A(i, j) + k
Next j
If i = 1 Then
iMax = k
iMin = k
iMaxIndex = i
iMinIndex = i
Else
If k > iMax Then
iMax = k
iMaxIndex = i
Else
If k < iMin Then
iMin = k
iMinIndex = i
End If
End If
End If
Next i
'交换最大和最小行
SwitchArrE iMaxIndex, iMinIndex
'打印处理后的数组
For i = 1 To 4
Picture2.Print A(i, 1), A(i, 2), A(i, 3), A(i, 4), A(i, 5)
Next i
End Sub