...100元钱买100只鸡，可以买公鸡、母鸡、小鸡数.VB程...

精选知识

Private Sub Command1_Click()

Dim gj As Integer,mj As Integer,xj As Integer

Print "公鸡数","母鸡数","小鸡数"

For gj = 0 To 50

For mj = 0 To 33

For xj = 0 To 200

If gj + mj + xj = 100 And 2 * gj + 3 * mj + 0.5 * xj = 100 Then Print gj,mj,xj

Next xj

Next mj

Next gj

End Sub

其他类似问题

问题1：公鸡3元一只,母鸡2元一只,小鸡1元3只.有100元要买100只鸡,必须花光钱,怎样买?[数学科目]

公鸡 母鸡 小鸡

5 32 63

10 24 66

15 16 69

20 8 72

25 0 75

0 40 60

问题2：100元买100只鸡、公鸡每只5元、母鸡每只2元、小鸡1元5只 怎么买啊[数学科目]

楼主怀疑的你的题目是不是有问题?

请楼主示下给我们看看正确答案、、、、

我算的只能100元买101只就是算不到100元买100只

公鸡11只55元

母鸡15只30元

小鸡75只15元

问题3：vb题 百元买鸡问题.小鸡每只五角,公鸡每只2元,母鸡每只3元.现有100元,要求买100只鸡,编程列出所有可能的购鸡方案.最好用循环结构,要写对哦,我要vb程序

设小鸡x 公鸡y 母鸡z

0.5x+2y+3z=100

x+y+z=100

得出3y+5z=100-------1

3x-2z=200--------2

鸡个数要为整,由1式得出y必须要为5的倍数才能得出z也是整数y要小于35

y=5 z=17 x=78

y=10 z=14 x=76

y=15 z=11 x=74

y=20 z=8 x=72

y=25 z=5 x=70

y=30 z=2 x=68

就这几种了

问题4：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

问题5：一百元买一百只鸡；其中公鸡3元一只,母鸡2元一只,小鸡0.5元一只,问能买公鸡,母鸡小鸡各多少只?穷举法

这个程序在很简单.

#include "stdio.h"

void main()

{

int cocks=0,hens,chicks;

while(cocks<=33)

{

hens=0;

while(hens<=50)

{

chicks=100-cocks-hens;

if(3*cocks+2*hens+chicks/2.0==100)

printf("%d,%d,%d\n",cocks,hens,chicks);

hens++;

}

cocks++;

}

}