Private Sub Command1_Click()
Dim a(1 To 12) As Integer
Dim i As Integer
Dim zeile, zeile1, zeile2 As String
Dim z, r As Integer
 
List1.Clear
 
zeile = "a:"
For i = 1 To 12
a(i) = Int(Rnd * 199) - 99
If a(i) > 0 Then
zeile = zeile & " + " & a(i) & " ;"
Else
zeile = zeile & " " & a(i) & " ;"
End If
Next i
List1.AddItem zeile
List1.AddItem ""
 
 
i = 0
zeile1 = "positve Zahlen:"
zeile2 = "negative Zahlen:"
 
For i = 1 To 12
If a(i) > 0 Then
zeile1 = zeile1 & a(i) & ","
Else
zeile2 = zeile2 & a(i) & ","
End If
Next i
List1.AddItem zeile1
List1.AddItem ""
List1.AddItem zeile2
 
 
i = 0
r = 0
 
 
 
For i = 1 To 12
If a(i) > 0 Then
r = r + 1
End If
Next i
 
Label1.Caption = "Postive Elemente: " & r
 
 
klz = a(1)
 
For i = 1 To 12
If klz > a(i) Then
klz = a(i)
End If
Next i
 
 
Label2.Caption = "Kleinste Zahl : " & klz
End Sub