Privvate Sub Command1Click( )
Dim man As Integer,woman As Integer,child As Intger,s As Integer
For woman = 1 To 15
Child = 30 – man – woman
S = 20 * man + 30 * woman + 10 * child
If Then
List1.AddItem Str(man) + Str(woman) + Str(child)
End If
Next woman
Next man
End Sub