[求助]各位帮帮新手,看下这个代码是否有错。
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
俺是初学。