Private Sub Command8_Click()
Print
For i = 1 To 5
 For j = 1 To 5
        If (Niz(i, j) Mod 3 = 0) Then
        sumadj3 = sumadj3 + Niz(i, j)
        End If
    Next j
Next i
Print "Suma djeljivih sa 3: "; sumadj3
End Sub

Private Sub Command9_Click()
Print
For j = 1 To 5
sumapr = sumapr + Niz(1, j)
Next j
Print "Suma prvog reda: "; sumapr
End Sub
Private Sub Command10_Click()
Print
For i = 1 To 5
sumad = sumad + Niz(i, i)
Next i
Print "Suma dijagonale :"; sumad
End Sub
Private Sub Command11_Click()
brojneg = 0
Print
For j = 1 To 5
If (Niz(3, j) < 0) Then brojneg = brojneg + 1
Next j
Print "Broj negativnih u trecoj koloni: "; brojneg
End Sub