学生党求教，还剩两个作业不会了第三和第四题，就是搬砖和图形显示

有大神帮帮忙吗

用的软件是VB2010

Private Sub Command1_Click()
Dim man, woman, child As Integer
For man = 0 To 72 / 4
For woman = 0 To 72 / 3
For child = 0 To 72 Step 2
If man * 4 + woman * 3 + child * 0.5 = 72 And man + woman + child = 72 Then
Text2.Text = "结果：男人" & man & " 女人" & woman & " 小孩" & child
Exit For
End If
Next child
Next woman
Next man
End Sub
我用的是VB 6.0