Private Sub Command1_Click()
Dim a(5, 5) As Integer
Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 100)
Print Tab(j * 4 - 3); a(i, j);
Next j
Next i
Max = a(1, 1)
Min = a(1, 5)
For i = 2 To 5
If a(i, i) > Max Then Max = a(i, i)
If a(i, 6 - i) < Min Then Min = a(i, 6 - i)
Next i
Print "主对角线上的最大值＝"; Max
Print "次对角线上的最小值＝"; Min
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024