100买100人小姑娘7元1个小媳妇3元一个老婆婆1元3个问100元能买多少个小姑娘.小媳

vb代码，
Private Sub Command1_Click()
Dim gn, xf, pp
For gn = 0 To 14
For pp = 0 To 90 Step 3
xf = 100 - gn - pp
If gn * 7 + xf * 3 + pp / 3 = 100 Then
Print gn, xf, pp
Else
End If
Next pp
Next gn
End Sub结果就是6种：
0，25，75
2，20，78
4，15，81
6，10，84
8，5，87
10，0，90

十个小姑娘，零个小媳妇，九十个老太婆。或者分别是：8，5，87或者是：6,10,84或者2,15,83

十三个小姑娘，三个小媳妇，不要老婆婆