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分钟了 求速答 谢谢