用vb编写一个程序，解决搬砖问题：

i为男人,j为女人,o为小孩子。

for(i=0i<9i++){

for(j=0j<12j++){

for(o=0o<36o=o+2){

if((i+i+o==36)&&(4*i+3*j+o/2==36)){

print(i&"=="&j&"=="&o)}}}

这是个不定方程，有多种答案

Private Sub Command1_Click()

For a = 1 To 36 / 4

For b = 1 To 36 / 3

For c = 1 To 36 / 0.5

If a * 4 + b * 3 + c * 0.5 = 36 Then Print a, b, c

Next

Next

Next

End Sub

---