Private Sub Form_Click()
Dim a(1 To 5, 1 To 5), t%, r%, c%, max%, min%
max = 10: min = 99
For r = 1 To 5
For c = 1 To 5
Randomize
t = Int(Rnd * 90) + 10
a(r, c) = t
Print a(r, c);
If r = 1 Or r = 5 Or c = 1 Or c = 5 Or r = c Then
If t > max Then max = t
If t < min Then min = t
End If
Next c
Print
Next r
Print "Max: "; max
Print "Min: "; min
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024