[求助]
百钱买百鸡:公鸡5元一只,母鸡3元一只,小鸡1元3只,100元钱买100只鸡,问公鸡,母鸡,小鸡可各买多少只??
百钱买百鸡:公鸡5元一只,母鸡3元一只,小鸡1元3只,100元钱买100只鸡,问公鸡,母鸡,小鸡可各买多少只??
公鸡:0母鸡:25小鸡:75
公鸡:4母鸡:18小鸡:78
公鸡:8母鸡:11小鸡:81
公鸡:12母鸡:4小鸡:84
[此贴子已经被作者于2005-12-22 12:00:30编辑过]
Private Sub Command1_Click()
Dim X, Y, Z As Integer
Text1.Text = ""
For X = 0 To 20
For Y = 0 To 33
For Z = 0 To 300
If 5 * X + 3 * Y + Z / 3 = 100 Then
If X + Y + Z = 100 Then
Text1.Text = Text1.Text & vbCrLf & " 公鸡: " & X & " 母鸡: " & Y & " 小鸡: " & Z & vbCrLf
End If
End If
Next Z
Next Y
Next X
Text1.Text = Text1.Text & vbCrLf & " 计算结束!" & vbCrLf
End Sub