下面是美国黄金储备在世界黄金储备总量中所占的比重表

上述数据说明

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