神马品牌网铜陵学院图书馆:VB编程题
来源：百度文库 编辑：神马品牌网 时间：2024/05/11 05:48:17
鸡翁一、值钱五、鸡母一、值钱三，鸡雏三、值钱一，百钱买百鸡，问鸡翁、母、雏各几何？
For x = 1 To 20
For y = 1 To 34
For z = 1 To 100
Sum = x + y + z
price = 5 * x + 3 * y + z / 3
If (Sum = 100) And price = 100 Then
Print x, y, z
End If
Next z
Next y
Next x
For x = 1 To 20
For y = 1 To 34
For z = 1 To 100
Sum = x + y + z
price = 5 * x + 3 * y + z / 3
If (Sum = 100) And price = 100 Then
Print x, y, z
End If
Next z
Next y
Next x