写程序解决百钱买百鸡问题:公鸡3元1只，母鸡5元1只，小鸡1元3只，怎样用100元买100只鸡。把

写程序解决百钱买百鸡问题:公鸡3元1只，母鸡5元1只，小鸡1元3只，怎样用100元买100只鸡。把

Dim x, y, z
Private Sub Command1_Click()
Cls
Print "小鸡", "公鸡", "母鸡"
For x = 0 To 20 Step 1
For y = 0 To 34 Step 1
If (100 - x - y) / 3 + 3 * y + 5 * x = 100 Then
z = 100 - x - y
Print z, y, x
End If
Next y
Next x
End Sub

我靠 居然是vb

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息