小明拿10元钱要买100个蛋,鹅蛋一分钱一个,鸭蛋一毛五一个,鸡蛋三毛一个,请问鹅蛋,鸭蛋,鸡蛋各

鹅蛋一分钱一个?
鹅蛋，鸭蛋，鸡蛋各x,y,z
x+y+z=100........................(1)
0.01x+0.15y+0.3z=10..............(2)
(2)化简
x+15y+30z=1000....................(3)

30*(1)-(3)
29x+15y=2000
x=(2000-15y)/29

(3)-(1)
14y+29z=900.......................(4)
z=(900-14y)/29....................(5)

我们从（4）分析
14y+29z=900
求y,z的整数解

14y+29z可以转化为14（y+2z)+z
即转化为14（y+2z)+z=900
显然29z<900,z<=31,14（y+2z）>=900-31=869
从869--900里面含有14的倍数只有2个，882和896

故有(1) 14（y+2z）=882,z=900-882=18,y=27,x=55
(2) 14（y+2z）=896,z=900-896=4,y=56,x=40

鹅蛋，鸭蛋，鸡蛋各40,56,4或者55，27，18

鸡蛋：75 鸭蛋：25 鹅蛋：0
鸡蛋：84 鸭蛋：8 鹅蛋：8
=====================================
用vb做的。
尽管你需要算法的可能性比较小 还是给你吧。
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
For x = 1 To 300
For y = 1 To 33
z = 100 - x - y
If x / 3 + y * 3 + z * 6 = 100 Then