Private Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
For X = 0 To 100
   For Y = 0 To 100
      For Z = 0 To 100
         If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z) = 100) Then
            Print "母鸡：" & X&; "公鸡：" & Y&; "小鸡：" & Z
         End If
      Next Z
   Next Y
Next X
End Sub


俺是初学。

运行后会出现 编译错误

类型－声明字符与声明的数据类型不符合 这是怎么回事？

将X,Y,Z声明改为Double类型的

Print "母鸡：" & X&; "公鸡：" & Y&; "小鸡：" & Z
这句错了，改为
Print "母鸡：" & X & "公鸡：" & Y & "小鸡：" & Z

谢谢各位大哥，我成功了。哈哈

正解，是不是输入的时候就要输入空格？我是&Y&然后让系统自动空格的。

不是啦，你代码有重复了，“；”就是不换行的意思，你又加了“＆”，“＆”是连接的意思，有重复，系统把你加的“＆”当作十六进制隐含说明符，当然数据类型就不对啦。其实也可以这样改
Print "母鸡：" & X; "公鸡：" & Y; "小鸡：" & Z

多谢LOVEVE兄，非常感谢！！！

＆连接就是容易弄错，我每次都要改几次，呵呵