Private Sub Command1_Click()
Dim Cock As Integer
Dim Hen As Integer
Dim Chick As Integer
Form1.Print "公鸡数", "母鸡数", "雏鸡数"
For Cock=0 To 20
For Hen=0 To 33
For Chick=0 To 100
If 【7】 Then
Form1.Print Cock, Hen, Chick
End If
Next Chick
Next Hen
Next Cock
End Sub