VB程序编写假定公鸡每只2元,母鸡每只3元,小鸡每只5角,如果用100元钱买100只鸡,可以买公鸡、母鸡、小鸡数.VB程序编写假定公鸡每只2元,母鸡每只3元,小鸡每只5角,如果用100元钱买100只鸡,可以买
更新时间：2026-09-30 15:06:37
问题描述:
VB程序编写假定公鸡每只2元,母鸡每只3元,小鸡每只5角,如果用100元钱买100只鸡,可以买公鸡、母鸡、小鸡数.
VB程序编写假定公鸡每只2元,母鸡每只3元,小鸡每只5角,如果用100元钱买100只鸡,可以买公鸡、母鸡、小鸡各多少只.
马凯回答:
PrivateSubCommand1_Click() DimgjAsInteger,mjAsInteger,xjAsInteger Print"公鸡数","母鸡数","小鸡数" Forgj=0To50 Formj=0To33 Forxj=0To200 Ifgj+mj+xj=100And2*gj+3*mj+0.5*xj=100ThenPrintgj,mj,xj Nextxj Nextmj Nextgj EndSub