求VB编程。设计一个5*5的方阵,其中的元素由计算机...
Private Sub Command1_Click() Dim a(1 To 5, 1 To 5) As Integer Dim sum, cj, wx, wy, max Randomize cj = 1 For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 100) If i = j Then sum = sum + a(i, j) cj = cj * a(i, j) End If If a(i, j...