VB程序编写假定公鸡每只2元,母鸡每只3元,小鸡每只5角,如果用100元钱买100只鸡,可以买公鸡、母鸡、小鸡数.

Private Sub Command1_Click()
Dim gj As Integer,mj As Integer,xj As Integer
Print "公鸡数","母鸡数","小鸡数"
For gj = 0 To 50
For mj = 0 To 33
For xj = 0 To 200
If gj + mj + xj = 100 And 2 * gj + 3 * mj + 0.5 * xj = 100 Then Print gj,mj,xj
Next xj
Next mj
Next gj
End Su