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


俺是初学。

运行后会出现 编译错误

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

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

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

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