vb编程的问题求速！！！

Private Sub Command1_Click()

Dim Man As Integer, Woman As Integer, Child As Integer
Dim Money As Integer, Count As Integer

Count = 0 '用来记录符合条件的组合数
Print "Count" & " " & "Man" & " " & "Woman" & " " & "Child" '打印表头

For Man = 1 To 500 / 30
For Woman = 1 To 500 \ 20
Child = Count - Woman - Man '第一空，小孩的数量
Money = 30 * Man + 20 * Woman + 10 * Child
If _________ Then '第二空
Count = Count + 1
Print "第" & Count & "组解" & " " & Str(Man) & " " & Str(Woman) & " " & Str(Child) '打印符合条件的结果组合
End If
Next _______ '第三空
Next Man

End Sub

只有20分钟了 求速答 谢谢

Money =500 ‘第二空

___Woman____ '第三空

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息