Type Proizvod
Sifra As Integer
Kolicina As Integer
End Type
Private Sub Command1_Click()
Dim p(5) As Proizvod
Dim kol As Integer
For i=1 To 5
p(i).Sifra= InputBox ("Unesi sifru:")
p(i).Kolicina= InputBox ("Unesi kolicinu:")
Next
kol=50
For i=1 To 5
If p(i).Kolicina>kol Then
MsgBox ("Sifra:" &p(i).Sifra & "Kolicina:" &p(i).Kolicina)
Else
MsgBox ("Kolicina nije veca od 50")
End If
Next
End Sub