公鸡5文钱一只，母鸡3文钱一只，小鸡3只一文钱，用100文钱买一百只鸡,其中公鸡，母鸡，小鸡都必须要有，问公鸡，母鸡，小鸡要买多少只刚好凑足100文钱。
Private Sub Form_Load()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 19
For j = 1 To 33
k = 100 - i - j
If 5 * i + 3 * j + k / 3 = 100 Then
List1.AddItem "公鸡" & i & " 母鸡" & j & " 小鸡" & k
End If
Next j
Next i
End Sub
程序解读：通过公鸡和母鸡枚举实现。
注：循环次数的优化，外循环采用次数最小的公鸡，内循环采用母鸡，小鸡采用100-公鸡-母鸡获得。