大神求教啊，有程序不会写，谢谢帮忙啊

我也是初学者，刚好这个我会，，， Private Sub Form_click()
Print "男人", "女人", "小孩"
Dim x As Integer, y As Integer, z As Integer
For x = 1 To 24
For y = 1 To 24
z = 24 - x - y
If 3 * x + 2 * y + 1 \ 3 * x = 24 Then Print x, y, z
Next y, x
End Sub
你是白云我是蓝天