[原创] vbs学习习题 - 百元买百鸡问题

shelluserwlb

'100元钱买100只鸡，小鸡1元3只，公鸡3元1只，母鸡5元1只。有多少种买法？(每种鸡至少买1只)
Option Explicit 
Dim i,j,k
Dim intSum,strResult
intSum = 1 
For i = 1 To 276
	For j = 1 To 31
		For k = 1 To 19
			If k=100-(i+j) And ((1/3)*i)+(3*j)+(5*k)=100 Then 
				strResult = strResult & cstr(intSum) & _
							": 小鸡：" & i & "只，公鸡"& j &  _
							"只，母鸡" & k & "只。" & Chr(10)
				intSum = intSum + 1
			End if 
		Next
	Next 
Next 
MsgBox strResult
复制代码