搀和一下，把上面程序做个优化，：Dim x As Integer Dim y As Integer Dim z As Integer For x = 0 To 9 For y = 0 To 12 For z = 0 To 36 If (x + y + z = 36) And (4 * x + 3 * y + 0.5 * z = 36) Then Print "男子" & x & "女子" & y & "儿童" & z End If Next z Next y Next x 声明，我这是抄的 forKid 的程序，如觉得不错请采纳 forKid的。我只搀和一下。
Dim x As IntegerDim y As IntegerDim z As IntegerFor x = 0 To 36
For y = 0 To 36
For z = 0 To 36
If (x + y + z = 36) And (4 * x + 3 * y + 0.5 * z = 36) Then
Print "男子" & x & "女子" & y & "儿童" & z
End If
Next z
Next yNext x
