战舰世界怎么发无线电: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 & "只，母鸡" & i & "只，小鸡" & k & "只", , "计算结果"
Exit Sub
End If
Next
Next
Next
MsgBox "条件不成立", , "提示"
End Sub

Private Sub Form_click()
Me.Print " 公鸡", " 母鸡", "小鸡"
Dim i, j, k '公鸡 i，母鸡j ，小鸡k 。
For i = 0 To 20
For j = 0 To 33
For k = 0 To 100
If 5 * i + 3 * j + k / 3 = 100 And i + j + k = 100 Then
Me.Print i, j, k
End If
Next k
Next j
Next i
End Sub