...1只,母鸡5元1只,小鸡1元3只,怎样用100元买100只鸡。把
发布网友
发布时间：2024-10-16 16:57
共2个回答
热心网友
时间：2024-10-16 23:05
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
热心网友
时间：2024-10-16 23:05
