5 5矩阵，和最大对调.frm

Visual Basic课程举例1 有很好的例题

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   " cc"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Dim a(5, 5) As Integer
Dim b(5) As Integer
Dim i As Integer, j As Integer
Dim tMax As Long, tt As Long
Dim maxColNum As Long
tMax = 0
tt = 0
maxColNum = 0
For i = 0 To 4
For j = 0 To 4
a(j, i) = Val(InputBox("输入矩阵数据:第" & i + 1 & "列,第" & j + 1 & "行:", ""))
tt = tt + a(j, i)
If tt > tMax Then
tMax = tt
maxColNum = i
End If
Next j
Next i
'对调
If maxColNum > 0 Then
For i = 0 To 4
b(i) = a(i, 0)
a(i, 0) = a(i, maxColNum)
a(i, maxColNum) = b(i)
Next
End If
'输出
For i = 0 To 4
For j = 0 To 4
Me.Print a(i, j) & ",";
Next j
Me.Print
Next i
End Sub