Private Sub Command1_Click()Dim a(1 To 5,1 To 5) As IntegerDim sum,cj,wx,wy,maxRandomizecj = 1For i = 1 To 5For j = 1 To 5a(i,j) = Int(Rnd * 100)If i = j Thensum = sum + a(i,j)cj = cj * a(i,j)End IfIf...