作业帮 > 综合 > 作业

百元买百鸡VB程设计百钱买百鸡:已知公鸡一只5元,母鸡一只3元,小鸡三只一元,如一百元买100只鸡,那么公鸡、母鸡和小鸡

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 05:27:44
百元买百鸡VB程设计
百钱买百鸡:已知公鸡一只5元,母鸡一只3元,小鸡三只一元,如一百元买100只鸡,那么公鸡、母鸡和小鸡各买多少只?
Dim x, y
For x = 1 To 20
For y = 1 To 33
If 5 * x + y * 3 + (100 - x - y) / 3 = 100 Then
MsgBox ("x=" & x & " y=" & y & " z=" & 100 - x - y)
End If
Next y
Next x