【vb百钱买百鸡，三重循环小鸡每只5角，公鸡每只2元，母鸡每只3源，有100元要求买100只鸡书上有二重循环的，老师要求用三重循环，自己写了一点但是计算的次数不对..求大神！dimx%,y%,z%,n%,s$】
1人问答
问题描述：
vb百钱买百鸡，三重循环
小鸡每只5角，公鸡每只2元，母鸡每只3源，有100元要求买100只鸡
书上有二重循环的，老师要求用三重循环，自己写了一点但是计算的次数不对..求大神！
dimx%,y%,z%,n%,s$
forx=0to33
fory=0to50
forz=0to200
ifx+y+z=100and3*x+2*y+0.5*z=100
n=n+1
thenprintx,y,z
endif
nextz
nexty
nextx
吉峰回答：
PrivateSubCommand1_Click()
Dimx%,y%,z%,n%,s$
Forx=0To33
Fory=0To50
Forz=0To200
Ifx+y+z=100And3*x+2*y+0.5*z=100Then
Printx,y,z
EndIf
Nextz
Nexty
Nextx
EndSub
其它推荐
![（1）已知函数（a＞0且a≠1）．（Ⅰ）求f（x）的定义域和值域；（Ⅱ）讨论f（x）的单调性．（2）已知f（x）=2+log3x（x∈[1，9]），求函数y=[f（x）]2+f（x2）的最大值与最小值．](/UploadFile/wdimg/2071/3297549726/16/3641884688.jpg)
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 