Form(2darray)

Private Sub Command1_Click()
Max = Niz(1, 1)
For i = 1 To 5
 For j = 1 To 5
 If Niz(i, j) > Max Then Max = Niz(i, j)
 Next j
Next i
Print
Print "Maksimalna vrijednost u nizu je: "; Max
End Sub

Private Sub Command2_Click()
BrojPozElem = 0
For i = 1 To 5
 For j = 1 To 5
 If Niz(i, j) > 0 Then BrojPozElem = BrojPozElem + 1
 Next j
Next i
Print
Print "Broj pozitivnih elemenata u nizu je: "; BrojPozElem
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Min = Niz(1, 1)
For i = 1 To 5
 For j = 1 To 5
 If Niz(i, j) < Min Then Min = Niz(i, j)
 Next j
Next i
Print
Print "Minimalna vrijednost u nizu je: "; Min
End Sub

Private Sub Command5_Click()
BrojNegElem = 0
For i = 1 To 5
 For j = 1 To 5
 If Niz(i, j) < 0 Then BrojNegElem = BrojNegElem + 1
 Next j
Next i
Print
Print "Broj negativnih elemenata u nizu je: "; BrojNegElem
End Sub

Private Sub Command6_Click()
Dim Title$
Dim Prompt$
Cls
Title$ = "Unesi vrijednosti elementima 2D niza,"
For i = 1 To 5
 For j = 1 To 5
 Prompt$ = "za elemenat Niz (" & i & "," & j & ")"
 Niz(i, j) = InputBox(Prompt$, Title$)
 Next j
Next i
End Sub

Private Sub Command7_Click()
Dim a As Integer
Print "Vrijednosti elemenata 2D niza:"
Print
a = 100
For i = 1 To 5
a = a + 300
 For j = 1 To 5
 CurrentY = a
 CurrentX = 0 + 500 * j
 Print Niz(i, j)
 Next j
Next i
End Sub