Function sum%(b%())
 Dim i%
 For i = LBound(b) To UBound(b)
  If b(i) < 0 Then
     sum = sum + b(i)
  End If
 Next i
End Function
Private Sub Form_Click()
 Dim a%(10), s%, i%
 For i = 1 To 10
     a(i) = Int(Rnd * 100) - 50
......................