首先在部件栏里添加microsoft internet controls和Microsoft Internet Transfer Control两个部件。如图：

添加一个textbox---Text1，和一个按钮-- Command1。
添加第一部的两个部件。自己放好位置，如图

Private Sub C1_Click()
Dim x, y, z As Integer
For x = 1 To 20
For y = 1 To 33
z = 100 - x - y
If 5 * x + 3 * y + (z / 3) = 100 Then
Print "公鸡，母鸡，小鸡的数目分别为:"
Print x, y, z