vb中如何算百元买百鸡问题详解

Private Sub Command1_Click()

 For i = 1 To 20

  For j = 1 To 33

   For k = 1 To 99 Step 2

    If i  5 + j  3 + k / 3 = 100 Then

      Text1Text = Text1Text & "公鸡：" & i & "只" & "母鸡：" & j & "只" & "小鸡：" & k & "只" & Chr(13) & Chr(10)

    End If

   Next

  Next

 Next

End Sub

文本框的MULTILING属性设为TRUE，SCROLLBARS属性设为2垂直。

以下为改进版

Private Sub Command1_Click()

 For i = 1 To 20

  For j = 1 To 33

    k = 100 - i  5 - j  3

    If k >= 0 And k Mod 3 = 0 Then

      Text1Text = Text1Text & "公鸡：" & i & "只" & "母鸡：" & j & "只" & "小鸡：" & k & "只" & Chr(13) & Chr(10)

    End If

  Next

 Next

End Sub

% 百钱百鸡问题

[X,Y] = meshgrid(0:fix(100/5),0:fix(100/3));

Z = 3(100-5X-3Y);

L = mod(Z,3)==0 & Z>=0 & Z<=99;

XX = X(L); YY = Y(L); ZZ = Z(L);

S = XX+YY+ZZ;

id = S==100;

R = [XX(id) YY(id) ZZ(id)]

R =

   0    25    75

   4    18    78

   8    11    81

  12     4    84

#include <stdlibh>

#include <stdioh>

int main()

{

int a,b,c,num,mon,i;

//a,b分别为公鸡母鸡数量，c为雏鸡数量除以3

printf("本程序用来解决百钱买百鸡的问题。\n");

system("pause");

for(c=0;c<=33;c++)

{

num=100-3c;mon=100-c;

if((mon-3num)%2==0)

{

a=(mon-3num)/2;

if(a<0||a>15) continue;

b=num-a;

if(b<0||b>25) continue;

//通过两个条件分别判断a和b的值是否在指定区间（否则会产生负值和很大的值）

printf("分配：公鸡%d只，母鸡%d只，雏鸡%d

只，为百钱买百鸡的答案。\n",a,b,3c);

}

}

system("PAUSE");

return 0;

}

以上就是关于vb中如何算百元买百鸡问题详解全部的内容，包括:vb中如何算百元买百鸡问题详解、怎样用MATLAB编写程序解决百钱买百鸡问题、c 语言百钱买百鸡 一 次 循环 解决 求思路等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！