方法一：穷举法
使用三个循环来遍历所有可能的公鸡、母鸡和小鸡的数量组合。
```vb
For i = 0 To 20
For j = 0 To 33
k = 100 - i - j
If 5 * i + 3 * j + k / 3 = 100 And k Mod 3 = 0 Then
MsgBox（"公鸡数量：" & i & "，母鸡数量：" & j & "，小鸡数量：" & k）
End If
Next j
Next i
```
方法二：Python实现
利用Python的简洁语法和强大功能来解决问题。
```python
for cock in range（0, 21）:
for hen in range（0, 34）:
chicken = 100 - cock - hen
if chicken % 3 == 0 and 5 * cock + 3 * hen + chicken // 3 == 100:
print（'公鸡{}只，母鸡{}只，小鸡{}只'.format（cock, hen, chicken））
```
方法三：C++实现
使用C++编写，通过嵌套循环和条件判断来找出所有可能的解。
```cpp
include using namespace std； int main（） { for （int gj = 0； gj <= 20； gj++） { for （int mj = 0； mj <= 33； mj++） { int xj = 100 - gj - mj； if （xj % 3 == 0 && 5 * gj + 3 * mj + xj / 3 == 100） { cout << gj << " " << mj << " " << xj << endl； } } } return 0； } ``` 方法四：VB6.0实现 在VB6.0中通过窗体和命令按钮实现，列出所有可能的购鸡方案。 ```vb Private Sub Command1_Click（） Dim t1 As Double t1 = Time For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And x + y + z = 100 Then Picture1.Print x, y, z End If Next z Next y Next x t2 = Time Picture1.Print "方法一花去"； Format（t2 - t1, "0.00"） & "秒时间"； End Sub ``` 方法五：Java实现 使用Java编写，通过嵌套循环和条件判断来找出所有可能的解。 ```java public class Main { public static void main（String[] args） { int m = 0； for （int a = 0； a < 100； a++） { for （int b = 0； b < 100； b++） { for （int c = 0； c < 100； c++） { if （5 * a + 3 * b + c / 3 == 100 && a + b + c == 100） { m++； } } } } System.out.println（"一百元买一百只鸡有" + m + "种买法"）； } } ``` 总结 以上方法都可以用来解决“百钱买百鸡”问题，选择哪种方法取决于具体的需求和编程环境。Python和Java方法较为简洁，易于理解和实现；而VB6.0方法则可以在Windows环境下快速开发。