2012-4-12 22:53
'###############################################################################
' 文 件 名: 百钱买百鸡.bas
' 描 述: 鸡翁一,值钱五,鸡母一,值钱三,鸡雏三,值钱一,百钱买百鸡,问翁、母、雏各几何?
'
' 创 建 者:
' 创建日期: 04-12-2012
' 备 注: 公鸡、母鸡和小鸡都要有
'
'################################维护历史#######################################
' <日期> <修改者>
'
'
' <修改内容>
'
'###############################################################################
Print !"公鸡\t母鸡\t小鸡"
'公鸡5元一只,最多只能买19只,要留下钱买母鸡与小鸡
For x As Integer = 1 To 19
'母鸡3元一只,最多只能买30只
For y As Integer = 1 To 30
'小鸡1元3只,最多只能买96只
For z As Integer = 3 To 96 Step 3
'是否100只鸡,先计算加法,增加效率。
If x + y + z = 100 Then
'是否共花100元
If x * 5 + y * 3 + z / 3 = 100 Then
'打印结果
Print Str(x) + !"\t" + Str(y) + !"\t" + Str(z)
EndIf
EndIf
Next
Next
Next
Sleep