用VB程序编写:大鸡是3元,中鸡是2元 小鸡是0.5元Sub Command1_Click()
Dim X
'大鸡数量
Dim Y
'中鸡数量
Dim Z
'小鸡数量
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))
Print X, Y, Z
End If
Next
Next
NextEnd Sub...
Private Sub Command1_Click()Dim A As Integer, B As Integer, C As IntegerFor A = 1 To 33
For B = 1 To 50
If A * 3 + B * 2 + (100 - A - B) * 0.5 = 100 Then ...