vb程序设计事件双击窗体响应公鸡三元一只母

2021-02-10 18:13:07 字数 1823 阅读 7051

1楼:听不清啊

private sub form_dblclick()print "公鸡

duzhi", "母鸡", "小鸡dao"

for a = 0 to 33

for b = 0 to 19

c = 100 - a - b

if c mod 3 = 0 and 3 * a + b * 5 + c / 3 = 100 then

print a, b, c

n = n + 1

end if

next b

next a

print "共"; n; "种方回案答"

end sub

公鸡5元一只,母鸡三元一只,小鸡一元三只,用一百块钱买一百只鸡。编写程序解此题??

2楼:匿名用户

提供来思路如下,程序主要自是思路。

做3层循环bai,公鸡母鸡和小鸡,每du层可以优化的是,当超过zhi100块就不再循环。

for 公鸡dao=1to 100

for 母鸡=1 to 100

for 小鸡=1 to 100

if 公鸡×5+母鸡×3+小鸡=100 then输出并结束

end if

endfor 小鸡

endfor 母鸡

endfor 公鸡

用一百元钱买一百只鸡,公鸡五元一只,母鸡三元一只,小鸡一元三只。问买公鸡,母鸡,小鸡各几只?

3楼:匿名用户

设公鸡x只,

母鸡y只,则小鸡(100-x-y)吸,

5x+3y+1/3(100-x-y)=10015x+9y+100-x-y=300

14x+8y=200

7x+4y=100

x=(100-4y)/7,

令100-4y=0,x=0,y=25,100-x-y=75,令100-4y=7,14、21、35、42、49、63、70、77、91、98时,y无正整数解,

令100-4y=28,x=4,y=18,100-x-y=78,令100-4y=56,x=8,y=11,100-x-y=81,令100-4y=84,x=12,y=4,100-x-y=84,∴公鸡、母鸡、小鸡分别为

0、25、75或

4、18、78

8、11、81

12、4、84

4楼:知知知知知道

你先别算,你先看下题目对不对行不?再说了:“明明母鸡比公鸡贵”

一百元买一百只鸡,公鸡五元一只,母鸡三元一只,小鸡一元三只,请问怎么买?(用初一知识解答)

5楼:刘兴

设公鸡x只,

抄母鸡y只,则小鸡袭(100-x-y)吸,5x+3y+1/3(100-x-y)=10015x+9y+100-x-y=300

14x+8y=200

7x+4y=100

x=(100-4y)/7,

令100-4y=0,x=0,y=25,100-x-y=75,令100-4y=7,14、21、35、42、49、63、70、77、91、98时,y无正整数解,

令100-4y=28,x=4,y=18,100-x-y=78,令100-4y=56,x=8,y=11,100-x-y=81,令100-4y=84,x=12,y=4,100-x-y=84,∴公鸡、母鸡、小鸡分别为

0、25、75或

4、18、78

8、11、81

12、4、84

6楼:time哈小哈

5x+3y+1/3z=100