1只公鸡5块钱，1只母鸡3块钱，3只小鸡1块钱，100块钱买100只鸡，那公鸡，母鸡，小鸡各多少个，用VB语言解

dim num1,num2,total
dim i,j
dim result
dim isEnd
isEnd = false
for i = 1 to 100
num1 = i
for j = 1 to 100 - i - 1
num2 = j
total = num1 * 5 + num2 * 3 + (100 - num1 - num2)/3
if total = 100 then
result = "公鸡有" & num1 & "只，母鸡有" & num2 & "只，小鸡有" & (100-num1-num2) & "只。"
isEnd = true
exit for
end if
next
if isEnd then
exit for
end if
next

main()
{inti,j,k;
for(i=1;i<=33;i++)
for(j=1;j<=50;j++)
for(k=1;k<=100;k++)
if(i+j+k=100&&3*i+2*j+k/4=100)
printf("%d,%d,%d",i,j,k);
}

Sub a()
Dim i, j, k
For i = 1 To 33
For j = 1 To 20
For k = 1 To 100
If i + j + k = 100 And i * 3 + j * 5 + k * 1 = 100 Then
MsgBox "公鸡" & j & "只，母鸡" &